Question

我正在使用经典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，这也失败了。看起来我没有任何访问Server对象的权限。有没有解决这个问题？

Answer 1

Windows CE不支持

CreateObject和Execute <OBJECT>标签也不受支持，所以，你运气不好，抱歉。

Server Object Implementation
---------------------------

The Server object provides access to methods and properties on the server. 
Most of these methods and properties serve as utility functions.

Server method  Windows CE implementation
-----------------------------------------
CreateObject   Not supported
Execute        Not supported
GetLastError   Not supported
HTMLEncode     Not supported
MapPath        Fully supported
ScriptTimeout  Not supported
Transfer       Not supported
URLEncode      Fully supported

Source

Server.CreateObject的替代方案

1 个答案: