如题?

解决方案 »

  1.   

    引用: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
      

  2.   

    我实例化后,仍然不能用啊,显示变量未定义。
    比如说用session("myip")=request.servervaribles("REMOTE_ADDR")
    这个为什么不好使呢?