＋设为首页 ＋添加到收藏夹
VB：
Option Explicit
Dim myResponse As Response
Dim request As request
Dim Server As Server
Private Sub onStartPage(PassedSc As ScriptingContext)
Set myResponse = PassedSc.Response
Set request = PassedSc.request
Set Server = PassedSc.Server
End Sub
Public Sub test()
myResponse.Write "ok!!!!!!!!!!!!!!"
End Sub
编译通过。
然后在ASP里面：
<%
set a=server.CreateObject("upFile.up")
a.test
%>
运行后出现：
技术信息
错误类型：
upFile (0x800A005B)
/Project1/up.asp, 第 12 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705)
页：
GET /Project1/up.asp
原来还好使不知是为什么现在不好使。
这期间重新装过IIS，和VS6
我的是Win2000+VB6+InterDev6。
你把Activx server Page 这个控件包含进去了没有？
Private Sub onStartPage(PassedSc As ScriptingContext)写成：
public Sub onStartPage(PassedSc As ScriptingContext)看看
