ActiveX DLL 不能用?为什么?!!!
VB ACTIVEX DLL代码如下:
Option Explicit
Dim m_objResponse As Response
Dim m_objRequest As Request
Dim m_objServer As Server
Dim m_objApplication As Application
Dim m_objSession As Session
Private Sub Class_Initialize()
Dim objContext As ObjectContext
Set objContext = GetObjectContext()
Set m_objResponse = objContext("Response")
Set m_objRequest = objContext("Request")
Set m_objServer = objContext("Server")
Set m_objApplication = objContext("Application")
Set m_objSession = objContext("Session")
End Sub
Public Sub ASPTest()
m_objResponse.Write "使用VB环境编写ASP程序!"
End Sub
ASP代码如下:
<%
Set objTest = Server.CreateObject("YourPrjName.ASPTest")
objTest.ASPTest
Set objTest = Nothing
%>
为什么页面出错“OBJECT变量或WITH块未设置”