📄 login.asp
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'获取传值
dim lname,lpwd
lname=trim(Request.Form("logname"))
lpwd=trim(Request.Form("logpwd"))
sqlstr="SELECT name,pwd,lastlog,cnt_on,power FROM tblmates WHERE name='"&stryin(lname)&"'"
rs.open sqlstr,conn,1,3
if rs.eof AND rs.bof then
Response.Redirect "log_err.asp?cmd=name_notfound"
end if
'MD5加密
lpwd=md5(lpwd,32)
if lpwd<>rs("pwd") then
Response.Redirect "log_err.asp?cmd=pwd_notmatch"
else
rs("lastlog")=now()
rs("cnt_on")=rs("cnt_on")+1
rs.update
lname=rs("name")
end if
dim logpower
logpower=int(rs("power"))
rs.close
'是否永久保存
IF CInt(Request.Form("forever"))=1 THEN
Response.Cookies(DEF_weburl)("name")=lname
Response.Cookies(DEF_weburl).Expires=DateAdd("d",1000,Date())
END IF
Session("sname")=lname
'统计申请待审的成员
dim sqds
sqlstr="SELECT COUNT(ID) FROM tblmates WHERE power=0"
sqds=INT(conn.Execute(sqlstr,0,1)(0))
if logpower<1 OR (logpower>1 AND sqds>0) then
Response.Redirect "rego.asp?cmd=log_msg"
else
Response.Redirect "rego.asp?cmd=log_ok"
end if
%>
<body>
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -