⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 room.asp

📁 一个网站聊天室的模型
💻 ASP
字号:
🔍 
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<p><b>
  <!--粗体标记-->
  <font color="#FF6600" size="4" face="楷体_GB2312">当前聊天室信息:</font><br>
  </b>
  <%
'统计房间信息
	dim mysql,howmanyrooms,Totalusers
	'使用server对象的createobject方法创建数据源连接对象
	set myconn=server.CreateObject ("ADODB.Connection")
	'使用server对象的mappath方法取得数据库的存放路径
	dbpath=server.mappath("chatroom.mdb")
	'建立到数据源的物理连接,只有使用了Connection对象的Open方法后，到数据源的连接才算真正地建立
	'这里是使用字符串的方法创建到数据源的连接,它相对于使用ODBC方法的好处是可以不受相对路径的限制
	myconn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
	'创建记录集对象
	set myrecord=server.CreateObject ("ADODB.Recordset")
	'从房间信息表中查找房间信息
	mysql="select * from RoomInfo"
	'打开记录集对象
	myrecord.Open mysql,myconn,1,3
%>
</p>
<!--使用表格列出房间信息-->
<table width="628" height="48" border="1" align="center">
  <tr>
    <td width="21%" align="center"><b><font face="楷体_GB2312">房间名</font></b></td>
    <td width="28%" align="center"><b><font face="楷体_GB2312">话题</font></b></td>
    <td width="14%" align="center"><b><font face="楷体_GB2312">当前人数</font></b></td>
    <td width="18%" align="center"><b><font face="楷体_GB2312">创建者</font></b></td>
    <td width="19%" align="center"><b><font face="楷体_GB2312">是否上锁</font></b></td>
  </tr>
  <%
	do while not myrecord.EOF 
	Totalusers=Totalusers+int(myrecord("HowManyUsers"))
%>
  <tr>
    <td width="21%" align="center"><b><font face="楷体_GB2312">
      <% =myrecord("RoomName") %>
      <!--房间名-->
      </font></b></td>
    <td width="28%" align="center"><b><font face="楷体_GB2312">
      <% =myrecord("Topic") %>
      <!--话题-->
      </font></b></td>
    <td width="14%" align="center"><b><font face="楷体_GB2312">
      <% =myrecord("HowManyUsers") %>
      <!--人数-->
      </font></b></td>
    <td width="18%" align="center"><b><font face="楷体_GB2312">
      <% =myrecord("WhoCreate") %>
      <!--创建者-->
      </font></b></td>
    <td width="19%" align="center"><b><font face="楷体_GB2312">
      <% =myrecord("IfLocked") %>
      <!--是否上锁-->
      </font></b></td>
  </tr>
  <%
	myrecord.MoveNext '移到下一条记录
	loop
	howmanyrooms=myrecord.RecordCount '返回记录集中的记录数,即房间总数
%>
</table>
<P align="center"><b><font size="3" face="方正姚体" color="#FF6633">当前共有聊天成员:</font> <font size="4" face="黑体" color="#6666FF">
  <% =Totalusers %>
  </font><font size="3" face="方正姚体" color="#FF6633">人</font><font size="4" face="方正舒体" color="#008000"><br>
  <font color="#FF6633" size="3" face="方正姚体">当前共有聊天房间:</font></font> <font size="4" face="黑体" color="#6666FF">
  <% =howmanyrooms %>
  </font><font size="3" face="方正姚体" color="#FF6633">间</font></b></P>
<p align="center"><a href="index.asp">返回</a></p>
<!--到index.asp页面的链接-->
<%
	'关闭记录集对象,但在执行set myrecord0=nothing语句之前该记录集仍然存在
	myrecord.close
	'彻底关闭记录集对象	
	set myrecord=nothing
	'关闭数据库连接对象,但在执行set myconn=nothing语句之前该记录集仍然存在
	myconn.close
	'彻底关闭数据库连接对象	
	set myconn=nothing
%>
</BODY>
</HTML>

⌨️ 快捷键说明

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