7450
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
dapha 2003-12-23
引用:
x:\Winnt\System32\inetsrv\asp.dll
Public 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 Sub
Public 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
x:\Winnt\System32\inetsrv\asp.dll
Public 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 Sub
Public 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
zhgroup 2003-12-23
我实例化后，仍然不能用啊，显示变量未定义。
比如说用session("myip")=request.servervaribles("REMOTE_ADDR")
这个为什么不好使呢？
比如说用session("myip")=request.servervaribles("REMOTE_ADDR")
这个为什么不好使呢？