📄 checklogin.asp

📁 《asp网页设计》作者沈才梁源代码,共十章

💻 ASP

字号:

<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>检查登录帐号</title>
</head>
<body>
<%
Response.buffer=true
dim errorMsg
NickName=Trim(Request("nickname"))
If NickName<>"" then  '如果用户名不为空，则保存用户信息到Session变量 
  Session("username")=NickName
  Session("EnterUser")=Session("username")
  Response.redirect "frm.asp"  '跳转到聊天主窗口
Else
  ErrorMsg=ErrorMsg+"没有输入聊天代号"
End if       
%>
<b><font size="6" color="#0000FF">你无法进入聊天室！</font></b>
<p><%=ErrorMsg%>　</p>
<p align="center"><a href="login.htm">返回登录界面</a></p>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -