我也遇到了,系统自动生成的代码都不管用
dll:
Option Explicit
Option Compare Text
Private Sub WebClass_Start()
'写一个对用户的回答
With Response
.Write "<html>"
.Write "<body>"
.Write "<h1><font face=""Arial"">WebClass1 起始页</font></h1>"
.Write "<p>本响应是在 WebClass1 的起始事件中创建的。</p>"
.Write "</body>"
.Write "</html>"
End With
End Sub
asp:
<%
Response.Buffer=True
Response.Expires=0
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Application.Lock
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Set Application("~WC~WebClassManager") = Server.CreateObject("WebClassRuntime.WebClassManager")
End If
Application.UnLock
End If