📄 talker.asp
字号:
<html>
<head>
<meta http-equiv="refresh" content="10;url=help.asp">
<title>聊天室程序－聊天成员</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base target="rbottom">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#E6F7FF">
<font color=red><% =session("myroom") %></font>聊天话题：<br>
<%
set newconn=server.CreateObject ("ADODB.Connection")
newconn.ConnectionString ="DSN=ChatRoom"
newconn.Open
newsql="select Topic from RoomInfo where RoomName='" & session("myroom") & "'"
set newrecord0=newconn.Execute (newsql)
if not newrecord0.bof then
Response.Write "^_^<font color=vbblue>" & newrecord0(0) & "</font>^_^<br>"
end if
newrecord0.close
set newrecord0=nothing
%>
<font color=red><% =session("myroom") %></font>聊天成员：<br>
<%
mysql="select UserID from UserOnLine where RoomName='" & session("myroom") & "'"
set newrecord=newconn.Execute (mysql)
do while not newrecord.eof
Response.Write "--<font color=vbblue>" & newrecord("UserID") & "</font>--<br>"
newrecord.movenext
loop
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -