引用:x:\Winnt\System32\inetsrv\asp.dllPublic Sub OnStartPage(mysc As ScriptingContext)'页面Load自动执行 Dim username Dim clsmain As New clsmain startime = Timer() Set Response = mysc.Response Set Request = mysc.Request Set session = mysc.session'实例后就能用了。 Set bbsconn = New ADODB.Connection bbsconn.ConnectionString = CONN_SQL_STRING bbsconn.Open clsmain.maindata clsmain.Nav Call WriteMain Set clsmain = Nothing End SubPublic Sub OnEndPage() endtime = Timer Response.Write "共耗时" & FormatNumber((endtime - startime) * 1000, 3) & "毫秒" Set Response = Nothing Set Request = Nothing Set session = Nothing Set bbsrs = Nothing Set bbsconn = Nothing End Sub
Dim username
Dim clsmain As New clsmain
startime = Timer()
Set Response = mysc.Response
Set Request = mysc.Request
Set session = mysc.session'实例后就能用了。
Set bbsconn = New ADODB.Connection
bbsconn.ConnectionString = CONN_SQL_STRING
bbsconn.Open
clsmain.maindata
clsmain.Nav
Call WriteMain
Set clsmain = Nothing
End SubPublic Sub OnEndPage()
endtime = Timer
Response.Write "共耗时" & FormatNumber((endtime - startime) * 1000, 3) & "毫秒"
Set Response = Nothing
Set Request = Nothing
Set session = Nothing
Set bbsrs = Nothing
Set bbsconn = Nothing
End Sub
比如说用session("myip")=request.servervaribles("REMOTE_ADDR")
这个为什么不好使呢?