📄 show_user.asp
字号:
<%
' show_user.asp
Set cnObj = Server.CreateObject("ADODB.Connection")
dbpath = Server.MapPath("DB.mdb")
cnObj.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
cnObj.Open
sqlcmd = "SELECT DISTINCT 姓名 FROM CHAT"
Set rsObj = cnObj.Execute(sqlCmd)
%>
<html>
<head>
<title>在线人数程序</title>
<meta http-equiv="refresh" content="10,URL=show_user.asp">
</head>
<body background="blutextb.gif">
<table>
<tr align="center">
<th bgcolor="#000000"><font color="#FFFFFF">聊天室来宾！</th>
</tr>
<% DO While Not rsObj.EOF %>
<tr>
<td><% =rsObj("姓名") %></td>
</tr>
<%
rsObj.MoveNext
Loop
rsObj.Close
cnObj.Close
Set rsObj = Nothing
Set cnObj = Nothing
%>
</table><p>
<table>
<tr bgcolor="pink"><td><a href="show_user.asp">更新在线名单</a></td></tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -