如果接受从dll组件传回的值?

[oydj]

如果接受从dll组件传回的值?

谢谢,在线等待

[tianjy]

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
End Sub

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

[tianjy]

然后
MyResponse.write "你的字符串或者变量"
就能返回给你的页面了
如果你只是想给你的asp程序使用
你可以在dll中声明一个public 变量 或者常数
例如：
'your dll code
'工程名mypro,类名'myclass
public a as string
public sub test()
a=now()
end sub
<%'your asp page
<%set a=server.createobject("mypro_myclass")
a.test
response.write a.a %>

[oydj]

主题搞错了
是"如何接受从dll组件传回的值?"