3

我正在用经典的 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 对象的权限。有什么解决方法吗？

4

1 回答 1

4

CreateObject and Execute are not supported in Windows CE.
The <OBJECT> tag is not supported also, so, you are out of luck, sorry.

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

于 2010-04-08T12:29:34.003 回答