📄 room.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>
<b><i><font size="4" face="隶书" color="#FF0000">
当前的聊天信息如下： <br>
</font></i></b>
<%
dim mysql,howmanyrooms,howmanyuesrs
set myrecord=server.CreateObject ("ADODB.Recordset")
mysql="select * from RoomInfo"
myrecord.Open mysql,"DSN=ChatRoom",1,3
'并不是所有的数据库都支持recordcount属性的
'但access是支持的，但是我们必须把游标移动到最后，才能得到准确的记录数据
%>
<div align="center">
<center>
<table border="1" width="100%">
<tr>
<td width="15%" align="center"><b><font face="楷体_GB2312">房间号</font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312">房间名</font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312">话题</font></b></td>
<td width="20%" align="center"><b><font face="楷体_GB2312">当前人数</font></b></td>
<td width="15%" align="center"><b><font face="楷体_GB2312">是否上锁</font></b></td>
</tr>
<%
do while not myrecord.EOF
howmanyusers=howmanyusers+int(myrecord("HowManyUsers"))
%>
<tr>
<td width="15%" align="center"><b><font face="楷体_GB2312"><% =myrecord("RoomID") %></font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312"><% =myrecord("RoomName") %></font></b></td>
<td width="25%" align="center"><b><font face="楷体_GB2312"><% =myrecord("Topic") %></font></b></td>
<td width="20%" align="center"><b><font face="楷体_GB2312"><% =myrecord("HowManyUsers") %></font></b></td>
<td width="15%" align="center"><b><font face="楷体_GB2312"><% =myrecord("IfLocked") %></font></b></td>
</tr>
</center>
</div>
<%
myrecord.MoveNext
loop
howmanyrooms=myrecord.RecordCount
%>
</table>
<P align="center"><b><font size="4" face="方正舒体" color="#008000">当前共有聊天成员:
</font><font size="4" face="黑体" color="#990033"><% =howmanyusers %></font><font size="4" face="方正舒体" color="#008000">人<br>
当前共有聊天房间:</font><font size="4" face="黑体" color="#990033"><% =howmanyrooms %></font><font size="4" face="方正舒体" color="#008000">间</font></b></P>
<p align="center"><a href="default.asp">返回</a></p>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -