📄 u_checklogin.asp
字号:
<%response.expires=0%>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<html>
<head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<title><%=version%>——登录成功</title>
<link rel=stylesheet type=text/css href="include/site.css">
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0>
<!--#INCLUDE FILE="char.asp" -->
<%
dim Errormsg,founderr
userid=trim(request.form("username"))
userpwd=trim(request.form("userpwd"))
if userid="" then
Errormsg=Errormsg+"<br>"+"<li>请输入用户名！</a>！"
call disperrs()
response.end
elseif isValidstring(userid)<>"" then
Errormsg=Errormsg+"<br>"+"<li>您输入了非法的用户名！</a>！"
call disperrs()
response.end
end if
userid=replace(userid,"'","")
userpwd=replace(userpwd,"'","")
set rs=conn.execute("select userid,userpwd,locked,status,isadmin from [user] where userid='"&userid&"'")
if rs.EOF then
Errormsg=Errormsg+"<br>"+"<li>对不起，您还没有<a href=u_register.asp>注册</a>！"
founderr=true
elseif rs("userpwd")<>userpwd then
Errormsg=Errormsg+"<br>"+"<li>密码错误！请重新<a href=javascript:history.back()>登陆</a>！！"
founderr=true
elseif rs("locked")=true then
Errormsg=Errormsg+"<br>"+"<li>对不起，您的帐号已被锁定，若有任何问题，请与<a href=mailto:"&SystemEmail&">系统管理员联系</a>！"
founderr=true
end if
if founderr=true then
call disperrs()
response.end
end if
'set status=true
response.Write now
conn.execute("update [user] set status=true where userid='"&userid&"'")
conn.execute("update [user] set lastlogin = '"&now&"' where userid='"&userid&"'")
response.Write(sql)
session("level")=rs("isadmin")
session("name")=userid
session("pass")=userpwd
response.write "<meta http-equiv=refresh content=3;URL=u_form.asp>"
response.write "<br><br><table cellpadding=0 cellspacing=1 border=0 width=85% bgcolor="&tablebordercolor&" align=center>"&_
"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"">"&_
"<tr align=center><td width=100% bgcolor="&tabletitlecolor&"><b><FONT COLOR="&TableFontcolor&">状态：登录成功</font></b></td>"&_
"</tr><tr><td width=100% bgcolor="&tablebodycolor2&">"&_
"<FONT COLOR="&TableContentcolor&">登录成功<br><ul>"&_
"<li><a href=u_form.asp><font color="&TableContentcolor&">3秒中后自动进入系统</font></a></li>"&_
"</ul></td></tr></table></td></tr></table>"
response.end
response.redirect "u_form.asp"
%>
<!--#INCLUDE FILE="footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -