也是ASA的问题,我想在退出网站前把几个字段清空下面的代码为何不起作用?
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' global.asa - wuf20.asp 在下载包中文件名为20global.asa
Sub Session_OnStart
session("id")=Request.ServerVariables("Remote_Addr")
End Sub
Sub Session_OnEnd
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "/student/student.mdb" )
conn.Open Provider & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from pwd", conn, 2, 2
StrSQL = "UPDATE pwd SET login='0',ip='0' where ip='"+session("id")+"'"
Conn.Execute StrSQL
End Sub
</SCRIPT>)