checklogin.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 22 行

ASP
22
字号
<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 + =
减小字号Ctrl + -
显示快捷键?