room.asp

来自「是个关于asp做得聊天室」· ASP 代码 · 共 70 行

ASP
70 行
字号 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>
<b><i><font size="4" face="隶书" color="#FF0000">
当前的聊天信息如下：&nbsp;<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>

room.asp - 源码说明

本页面展示了「是个关于asp做得聊天室」中的 room.asp 源码文件，采用 ASP 编程语言编写，共 70 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?