?? 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 + -