?? bbslogin.asp
字號:
<!--#Include File="Check_hx.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/md5.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路徑有誤,禁止從站點(diǎn)外部提交數(shù)據(jù)請不要亂該參數(shù)!');this.location.href='userlogin.asp';</script>")
response.end
end if
dim sql,rs
dim username,password,CookieDate
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
CookieDate=trim(request("CookieDate"))
if request.QueryString("hx66")="login" then
if UserName="" then
response.write"<SCRIPT language=JavaScript>alert(' 用 戶 名 不 能 為 空 , 請 返 回 ! ');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if Password="" then
response.write"<SCRIPT language=JavaScript>alert(' 密 碼 不 能 為 空 , 請 返 回 !' );"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if FoundErr<>True then
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where userlock=0 and username='" & username & "' and password='" & password &"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write"<SCRIPT language=JavaScript>alert('此賬號已被鎖定,請和管理員聯(lián)系\n\n或用戶名、密碼錯(cuò)誤 ,請返回 !');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
if password<>rs("password") then
response.write"<SCRIPT language=JavaScript>alert(' 用 戶 名 或 密 碼 錯(cuò) 誤 , 請 返 回 ! ');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs.update
call SaveCookie_HX_USER()
rs.close
set rs=nothing
response.redirect "bbs/default.asp"
end if
end if
rs.close
set rs=nothing
end if
sub SaveCookie_HX_USER()
Response.Cookies("HX_USER")("User_Name")=username
Response.Cookies("HX_USER")("User_Pwd")=password
Response.Cookies("HX_USER")("uid")=rs("userid")
Response.Cookies("HX_USER")("Grade")=rs("userGrade")
Response.Cookies("HX_USER")("LoginTimes")=rs("LoginTimes")
select case CookieDate
case 0
Response.Cookies("HX_USER")("CookieDate") = CookieDate
case 1
Response.Cookies("HX_USER").Expires=Date+1
Response.Cookies("HX_USER")("CookieDate") = CookieDate
case 2
Response.Cookies("HX_USER").Expires=Date+31
Response.Cookies("HX_USER")("CookieDate") = CookieDate
case 3
Response.Cookies("HX_USER").Expires=Date+365
Response.Cookies("HX_USER")("CookieDate") = CookieDate
end select
end sub
elseif request.QueryString("hx66")="logout" then
Response.Cookies("HX_USER")("User_Name")=""
Response.Cookies("HX_USER")("User_Pwd")=""
Response.Cookies("HX_USER")("uid")=""
Response.Cookies("HX_USER")("Grade")=""
Response.Cookies("HX_USER")("LoginTimes")=""
response.Redirect"bbs/default.asp"
end if
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -