talker.asp
来自「同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统」· ASP 代码 · 共 49 行
ASP
49 行
<html>
<head>
<meta http-equiv="refresh" content="10;url=help.asp">
<title>聊天成员</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<base target="rbottom">
</head>
<body bgcolor="rgb(224,241,227)">
<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 + =
减小字号Ctrl + -
显示快捷键?