用VB做asp调用的dll的通用代码

Private scriptingContext As scriptingContextPrivate Request As RequestPrivate Response As ResponsePrivate server As serverPrivate Session As Session Public Sub OnStartPage(PassedscriptingContext As scriptingContext) '初始化相关物件变量 Set scriptingContext = PassedscriptingContext Set Request = scriptingContext.Request Set Response = scriptingContext.Response Set server = scriptingContext.server Set Session = scriptingContext.Session End Sub public test end public Public Sub OnEndPage() Set scriptingContext = Nothing Set Request = ... 查看详细内容 >>