?? ckname.asp
字號:
<!--#include file=conn.asp-->
<%@ LANGUAGE = "VBScript" %>
<%response.buffer=true%>
<%
dim errorMsg
Session("UserName")=Request.Form("nickname")
if Session("UserName")<>"" then
Session("UserName")=Replace(Session("UserName"),"<","<")
str="<OPTION value="&Session("UserName")&">"&Session("UserName")&"</option>"
if instrrev(application("listname"),str)=0 then
application.lock
Application("Users")=users
application("listname")=str&application("listname")
Application("UserNum")=Application("UserNum")+1
Application("show")="<p><font color='#1e90ff'>"&session("UserName") &"</font> 進入聊天室...(Enter this chat room)</p>" &Application("show")
application.unlock
Session("leave")=false
response.redirect "lt_main.asp"
else
ErrorMsg=ErrorMsg+"<li>該 聊 天 代 號 已 經 存 在 ！</li>"
end if
else
ErrorMsg=ErrorMsg+"<li>沒 有 輸 入 聊 天 代 號 ！</li>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitename%> 聊天室</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<style type="text/css">
<!--
body, .tableclass { font-family: "宋體"; font-size: 9pt; }
-->
</style>
</head>
<body bgcolor="#e8f4ff">
<strong><font color="#d2691e">
<p>您 無 法 進 入 聊 天 室 ：</font></strong>
<ul>
<font color="#0000cd"><%=ErrorMsg%>
</font>
</ul>
<form method="POST" action="ckname.asp">
<div align="center"><center><table border="2" cellpadding="3" cellspacing="0" width="35%"
height="180" bordercolorlight="#FFEBCD">
<tr>
<td width="100%" height="26" bgcolor="#1e90ff"><div align="center"><center><p><strong><font
color="#f8f8ff"><%=sitename%> 聊 天 室</font></strong></td>
</tr>
<tr align="center">
<td width="100%" height="167" bgcolor="#0099FF"><div align="center"><center>
<p><strong><font
color="#ffffcc">昵 稱：</font></strong>
<input type="text" name="nickname" size="20"
maxlength="25"><br>
</td>
</tr>
</table>
</center></div><div align="center"><center><p><br>
<input type="submit" value=" 進 入 " name="B1"
style="font-family: 宋體; font-size: 9pt; background-color: ffd700; color: 0000cc"></p>
</center></div>
</form>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -