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 + -
显示快捷键?