Я пишу навигационную систему в классическом ASP (на Windows CE).Мне требуется способ динамического включения файлов навигации на основе вызывающего скрипта.Я придумал следующий код, который включает nav.inc, который находится в папке вызывающего скрипта, чтобы разные папки имели разные навигационные функции.
Это отлично работает на моем тестовом компьютере с Windows, но НЕ когдаЯ развертываю в Windows CE.Код и ошибка показаны ниже.Если кто-то может предоставить обходной или какой-либо обратной связи, было бы здорово.Спасибо
Код:
<%
'Get path name
Dim i
fullname = Request.ServerVariables("SCRIPT_NAME")
my_array=split(fullname,"/")
fname=my_array(ubound(my_array))
fname = ""
For i = 0 to ubound(my_array) - 1
fname = fname & my_array(i) & "/"
Next
fname = fname & "nav.inc"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath(fname)))=true Then
Server.Execute(fname)
End If
%>
Ошибка:
Ошибка выполнения Microsoft VBScript: '800a01b6'
Описание: объект не поддерживаетэто свойство или метод: 'Server.CreateObject'
Если я изменяю код так, чтобы просто сказать Set fs=CreateObject("Scripting.FileSystemObject")
, я получаю следующую ошибку:
Ошибка времени выполнения Microsoft VBScript:'800a01ad'
Описание: компонент ActiveX не может создать объект: 'Scripting.FileSystemObject'
Обновление Я только что попытался запустить Server.Execute напрямую иэто тоже не удается.Похоже, у меня нет доступа к объекту сервера.Есть ли что-нибудь для этого?