Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / CreateObject("Word.Application") / 12 сообщений из 12, страница 1 из 1
22.08.2007, 14:43
    #34744948
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
Всем привет
IE, ASP


на сервере пытаюсь выполнить следующее
Код: plaintext
1.
2.
3.
4.
5.
    	  response.Write "253"  & "<br>"
          Set WordApp = CreateObject("Word.Application")
    	  response.Write "257" & "<br>"
	  response.End

получаю ошибку
Microsoft VBScript runtime error '800a0046'

Permission denied: 'CreateObject'

/Rishui2005/Reports/_rishui/_report.asp, line 259

что как раз и указывает на Set WordApp = CreateObject("Word.Application")


а раньше это работало, что примечательно что на клиенте работает


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
<script language=VBScript>
    dim  WordApp 
    dim  FlagWQuit
    
    FlagWQuit= 0 
 
    Function fnOpenWordDoc(fAddPath,fPath,fAddParam )
        FlagWQuit= 1 
   	    Dim  fFullName
		Set WordApp = CreateObject("Word.Application")
        Set WordApp = Getobject(, "Word.Application")
        If Err.Number <>  0  Then
            Err.Clear  
		    Set WordApp = CreateObject("Word.Application")
		else
		    WordApp.Quit
            Set WordApp=nothing
            Set WordApp = CreateObject("Word.Application")
		end if
   
		fFullName=trim(replace(fAddPath,"/","\")) & trim(replace(fPath,"/","\"))
		WordApp.Application.Documents.Open(fFullName)
		WordApp.Application.Visible = True
    End Function
   
   
    Function fnClose()
        if FlagWQuit= 1  then
            Set WordApp = CreateObject("Word.Application") 
            Set WordApp = Getobject(, "Word.Application")
            If Err.Number =  0  Then            
                WordApp.Quit           
            else
                err.Clear
            end if 
            FlagWQuit= 2  
        end if      
        Set WordApp=nothing
        window.close()
    End Function
  
   
   
</script>




каких пермишн не хватает серверу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 15:50
    #34745190
%?*?%
%?*?%
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
DCOM Config
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 15:53
    #34745206
Пьяный Лох
Пьяный Лох
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
Может не в тему, но наверное всё-таки лучше использовать Server.CreateObject
?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 16:21
    #34745305
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
DCOM Config это было первое куда пошла смотреть
всё было отмечено

не работает
перезагружаю сервер
посмотрим
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 16:32
    #34745351
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 16:53
    #34745417
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
есть некоторое продвижение

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    	  response.Write "253"  & "<br>"
          Set WordApp = CreateObject("Word.Application")
    	  response.Write "257" & "<br>"
      	  response.Write "filePath=" & filePath & "<br>"
    	  WordApp.Documents.Open(filePath)
    	  response.Write "11" & "<br>"

теперь CreateObject проходит,
валится на WordApp.Documents.Open(filePath)
filePath проверен, файл создан, отдельно открывается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 18:07
    #34745653
%?*?%
%?*?%
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
По-моему, все-таки это
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 18:14
    #34745684
%?*?%
%?*?%
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2007, 18:15
    #34745690
%?*?%
%?*?%
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
Considerations for server-side Automation of Office
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2007, 10:32
    #34746673
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
UP
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2007, 11:13
    #34746889
belugin
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
TatianaTUP

а что говорит Err.Description
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2007, 12:34
    #34747311
TatianaT
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CreateObject("Word.Application")
ничего не говорит
молча умирает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / CreateObject("Word.Application") / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 284ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1457765]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 169ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 15ms
total:  284ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]