UC知道在线急等：最简单的asp连接dll 文件问题
来源：百度知道 编辑：UC知道 时间：2024/06/17 19:14:51
vb工程引用MicroSoft Active Server Pages Objects Library后
写入如下代码：工程名为OK,类名称为：Test
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub
'MyTempVariable = MyRequest.Form("userName")
'MyResponse.Write ("you entered " & MyTempVariable & "as your user name")
Public Sub OnEndPage()
S
写入如下代码：工程名为OK,类名称为：Test
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub
'MyTempVariable = MyRequest.Form("userName")
'MyResponse.Write ("you entered " & MyTempVariable & "as your user name")
Public Sub OnEndPage()
S
1 首先测试DLL的正确性.
改写 MyResponse.Write ("Hello World")
用以下方式试试.
<%dim ObjReference
Set ObjReference = Server.CreateObject("Ok.Test")
x=ObjReference.SayHello
RESPONSE.WRITE X
%>
dll得先用regsvr32来注册。