<%
set Conn=server.createobject("adodb.Connection")
conn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("database/#zenitech.asa")
set rs=server.createobject("adodb.recordset")
function connClose
Conn.close
Set conn = Nothing
End Function
SQL="Select User_LastTime,User_LasttimeIP From Fy_UserName Where User_ID='"& Session("UserID") &"'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,3,2
IF Not RS.Eof Then
RS("User_LastTime")=Now()
RS("User_LasttimeIP")=request.servervariables("remote_addr")
RS.Update
End IF
%>
北京航天鼎一科技发展有限公司、上海航鼎信息科技发展有限公司