?? char.asp
字號:
<!--#include file="../articleconn.asp"-->
<%
Dim ls
dim conn
sql="select time from home"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
maxtime=rs("time")
conn.Execute("Delete * From online where DATEDIFF('s',lastime, now()) > "&maxTime&"*60") '刪除超時的用戶
if chkcookie(request.cookies("userid"))<>"" then
userid=chkcookie(request.cookies("userid"))
Set ls=Server.CreateObject("ADODB.RECORDSET")
ls.Open"Select * FROM online WHERE username='"& userid & "'",CONN,2,2
if not ls.eof then ' 查詢數據庫是否有此用戶的登陸過的信息
userip=Request.ServerVariables("REMOTE_ADDR")'取得提交登陸信息用戶的IP
ls("userip")=userip
ls("lastime")=now()
ls.UPDATE
ls.Close
Set ls=Nothing
end if
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -