一个dll中class间调用的问题！急！！请指点！

[xiaorongli]

我在一个dll中编写了两个class，其中一个用到asp中的对象和属性因此引入
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
而且编写了一个函数a()，函数体中调用了以上对象的方法
而我在另一个class中的函数b()中调用这个a()
在asp页面测试是老是出现以下错误“未设置对象变量或With block变量”
请指点！谢谢！

[lions911]

DLL中的FUNCTION AS 一个类型了吗？

[xiaorongli]

你说的我做过了，我单步调试，错在函数a（）中我用到server.mappath（""）
因此所说的错误中的对象是server对象
但是如果在同一个class中调用就不回出错

[jiejifeng]

你在搞让dll中　包含ASP的五个对象啊？　实际意义不大吧

[smuzy]

这个问题应该仔细考虑一下：
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
这个过程只有在asp页面中调用的时候才能正确传入PassedScriptingContext 对象（由ASP以引擎自动完成），在DLL中的一个CLASS中如果创建这个CLASS对象，是不能正确传入这个PassedScriptingContext 对象的，所以会告诉你没有设置。

如果你的这个对象仅仅用来被DLL中的CLASS对象调用的话，就把所有的MyApplication等5个对象作为类的属性:
CLASS1:

PUBLIC Response as response
....

然后调用的时候
CLASS2
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
FUNCTION B()
Dim obj1 as new Class1
set obj1.response = MyResponse
.....
b=a()
END FUNCTION

[smuzy]

看明白了吗？

[xiaorongli]

恩明白了，太谢谢你了，我马上试

[xiaorongli]

smuzy(smuzy)
谢谢你啊，可以了
我自己已经弄了一天了，呵呵
再次谢谢啊
能留下你的qq吗？以后有问题再问你啊

[smuzy]

30803269