📄 ckname.asp

📁 2002年夏天为一个同学制作得班级同学录程序

💻 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"),"<","&lt;")
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 + -