📄 users.asp
字号:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Refresh" content="15">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body class="topbar">
<!--#include file="config.asp"-->
<!--#include file="houseclean.asp"-->
<%
'获得聊天室名称
call openDB
rs.Open "SELECT Name FROM ROOMS WHERE RoomID=" & session.Contents("RoomID") & ";", conn, 0, 1
if NOT rs.EOF then
varRoom = rs("Name")
response.write "当前房间: <br><b>" & varRoom & "</b><br><br>"
end if
call closeDB
call openDB
rs.Open "SELECT * FROM USERS WHERE Active=1 AND RoomID=" & session.Contents("RoomID") & " ORDER BY Username", conn, 0, 1
if rs.EOF then
response.write "没有用户！"
else
rs.movefirst
do
varUser = rs("Username")
varTime = rs("Time")
varLastPost = rs("LastPost")
'获取他们的在线时间
varTime = FormatDateTime(varTime, 4)
varTime = CDate(varTime)
varNow = now()
'格式化时间为hh:mm
varNow = FormatDateTime(varNow, 4)
varNow = CDate(varNow)
varMinuteDifference = DateDiff("n", varTime, varNow)
'获取他们多久时间没有聊天了
varLastPost = FormatDateTime(varLastPost, 4)
varLastPost = CDate(varLastPost)
varNow = now()
'need the date as hh:mm
varNow = FormatDateTime(varNow, 4)
varNow = CDate(varNow)
varIdle = DateDiff("n", varLastPost, varNow)
if varIdle > varIdleTime then
varIdleMessage = "<font size='-8' title='Idle for " & varIdle & " minutes'>(IDLE)</font>"
else
varIdleMessage = ""
end if
if varUser = session.contents("Username") then
response.write "<font color=red title='You have been online for " & varMinuteDifference & " minutes'><b>" & varUser & "</b> " & varIdleMessage & "</font>"
else
response.write "<span title='Has been online for " & varMinuteDifference & " minutes'>" & varUser & "</span> " & varIdleMessage
end if
response.write "<br>"
rs.movenext
loop until rs.EOF
end if
call closeDB
'如果又错误，则重新显示user.asp
If Err.number<>0 then
response.Redirect("users.asp")
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -