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

📄 room.asp

📁 一个用vb开发的比较好的聊天系统
💻 ASP
字号:
<!--#include file="cfg.asp"-->
<!--#include file="usercheck.asp"-->
<%id=request.querystring("id")
if id="" or not isnumeric(id) then 
    msg="房间号错误,请返回!"
 else
   set rs=conn.execute("select room.room_id,room.room_name,area_info.name,room.now_num,room.max_num from room,area_info where room.room_type=area_info.name and area_info.id="&id&"")
   if rs.eof then msg="该地区房内目前无房间存在,请返回!"
 end if%>
<html>
<head>
<title><%=application("ChatInfo")%>-房间列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
BODY{FONT-SIZE: 9pt}
TD{FONT-SIZE: 9pt}
A:link {COLOR: #000000; TEXT-DECORATION: none}
A:hover {COLOR: #000000; TEXT-DECORATION: underline}
A:visited {COLOR: #000000; TEXT-DECORATION: none}
</style>
<script language="javascript">
if(window.name!="vchat")
{
top.location.href="exit.asp"
}
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" oncontextmenu=self.event.returnValue=false>
<table width="100%" border="0" cellpadding="0" cellspacing="0" height="50" bgcolor="#F9DF2B">
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>
      <div align="center"><img name="chat_r2_c9" src="image/chat_r2_c9.gif" width="193" height="34" border="0"></div>
    </td>
  </tr>
</table>
<table width="75%" border="0" align="center" height="394" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"> 
      <div align="center"><br>
        <br>
        <br>
        <%if msg<>"" then 
	      response.write msg
		else%>
        <table width="75%" border="0" cellpadding="0" cellspacing="0" height="43">
          <tr> 
            <td colspan="4" height="22"> 
              <div align="center"><%=rs(2)%>房间列表</div>
            </td>
          </tr>
		  <tr> 
		   <%do while not rs.eof 
		     i=i+1%>
            <td height="27"> 
              <div align="center">
			  <%if rs("now_num")<rs("max_num") then%>
			  <a href="main.asp?room_id=<%=rs(0)%>">
			  <%else%>
			  <a href="javascript://" onclick="alert('该房间人员已满,请捎后进入!')">
			  <%end if%>
			  <%=trim(rs(1))%></a>(<%=rs(3)%>)<%if rs(3)>=rs(4) then response.write "<font color=red>客满</font>"%></div>
            </td>
			<%if i mod 4=0 then response.write "</tr><tr>"
			rs.movenext
			loop%>
            
          </tr>
        </table>
		<%end if
		call db_close()%>
        <br>
        <a href="javascript://" onclick="window.close();">关闭窗口 </a></div>
    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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