📄 index.asp
字号:
<html>
<head>
<title>黄金屋书店－－雅士聊天室</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="TEXT/CSS">
<!--
body,table {color:#202030;font-family: 宋体_GB2312; font-size: 9pt; line-height: 12pt}
A:link {text-decoration: none; color:#6060FF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:visited {text-decoration: none; color: #6060FF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:active {text-decoration: underline; color: #FF6000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:hover {text-decoration: underline; color:#FF6000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:link {text-decoration: none; color:#EFEFEF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:visited {text-decoration: none; color: #EFEFEF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:active {text-decoration: underline; color: #EFEFFE; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:hover {text-decoration: underline; color:#EFEFFE; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
-->
</style>
</head>
<body bgcolor="#F9F9FF" background="images/chat.gif">
<table width="100%" height="100%"><tr>
<td height="71">
<div align="center"><img src="images/logo.gif" width="500" height="60">
</div>
</td>
</tr>
<tr>
<td height="393">
<form action="enter.asp">
<Font color="#FF0000"><center><%If Not IsEmpty(Session("pplchatmess")) Then Response.Write(Session("pplchatmess")&"<BR>"):Session("pplchatmess")=Empty%></center></font>
<table border="0" align="center" bgcolor="#F0E0F0">
<tr align="center">
<td colspan="2" bgcolor="#E0F0F0"><font color="#308080"><Big>聊天广场</Big></font></td>
</tr>
<tr><td>
您在聊天室中使用的名字:</td><td><input type="text" name="UserName" value=""><BR></td></tr><tr><td>
希望进入的聊天室:</td><td>
<select name="CRNAME">
<option value="聊天广场">聊天广场<%If Application("聊天广场"&"usernum")>0 then Response.Write("["&Application("聊天广场"&"usernum")&"]")%></option>
<option value="亲情聊天室">亲情聊天室<%If Application("亲情聊天室"&"usernum")>0 then Response.Write("["&Application("亲情聊天室"&"usernum")&"]")%></option>
<option value="友情聊天室">友情聊天室<%If Application("友情聊天室"&"usernum")>0 then Response.Write("["&Application("友情聊天室"&"usernum")&"]")%></option>
<option value="爱情聊天室">爱情聊天室<%If Application("爱情聊天室"&"usernum")>0 then Response.Write("["&Application("爱情聊天室"&"usernum")&"]")%></option>
</select>
</td></tr><tr align="center"><td colspan="2">
<input type="submit" value="进入聊天室"></td></tr></table>
</form>
<table bgcolor="#F0F0E0" width="91%" align="center">
<tr>
<td><font color="#FF0000">注意事项：</font><br>
1.请遵守国家有关法律法规，不要在聊天室、留言薄中散布违法的话语；请尊重他人，不要进行人身攻击；这对我们大家都有好处。<br>
2.在聊天室中，如果您要离开，只需要选择其它栏目或者关闭窗口表示您已经下线了。<br>
3.如果在聊天室中掉线，重新拨号上来，登录时显示“该用户名正在使用”中，则请您两分钟后再来，或改用其他名字进入。<br>
4.如果您在使用本聊天室时，发现任何问题或错误，请在留言薄中留言。当然，您也可以在留言薄里给聊友们留言。 </td>
</tr></table>
<div align="center"><br><!--#include file="end.asp" -->
</div>
</td>
</tr></table>
</body>
</html>
<%Response.End%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -