?? login.asp
字號:
<!--#include file="xbqq_head.asp" -->
<!--#include file="Include/check.asp"-->
<%
response.expires = 0
If Not post_chk() Then Response.write "不許外部提交數據!"
if request("Action")="ChkLogin" Or request("Action")="" then
UserName=Checkin(Request.form("UserName"))
UserPassword=Checkin(Request.form("UserPassword"))
UserPassword=Md5(UserPassword)
CookieDate=Trim(request("CookieDate"))
if UserName="" or UserPassword="" then Response.Redirect ("Index.asp")
set rs=server.createobject("adodb.recordset")
sql="select * from "&Gaobei_DBTable&" where "&Gaobei_UserName&"='"&Username&"' and "&Gaobei_UserPassword&"='"&UserPassword&"'"
rs.open sql,conn_user,3,3
if not rs.EOF then
if rs("IsActive")=True then
rs(Gaobei_LoginNum)=rs(Gaobei_LoginNum)+1
rs(Gaobei_LastLogin)=Now()
rs(Gaobei_UserIP)=Request.ServerVariables("REMOTE_ADDR")
rs.Update
'寫入系統COOKIES
Call DealCookie_Gaobei_Sys()
'Session("Pw_UserID")=rs("UserID")
'Session("Pw_Sys_User")=rs("Username")
'Session("Grade")=rs("Grade")
'Session("Pw_Money")=rs("Money")
'Session("UserEmail")=rs("UserEmail")
'Fin
Gaobei_ToUrl=Request("Gaobei_ToUrl")
If Gaobei_ToUrl<>"" Then
Response.Redirect (Gaobei_ToUrl)
Else
Response.Redirect (request.servervariables("HTTP_REFERER"))
End If
else
response.write"<script>alert('您還沒有通過驗證!\n管理員會盡快通過驗證的! ');location.replace('"&request.servervariables("HTTP_REFERER")&"')</script>"
response.End()
end if
else
Response.write"<script>alert('請輸入正確的用戶名和密碼!! ');location.replace('index.asp')</script>"
'Response.Redirect ("Login.htm")
'errmsg="請輸入正確的用戶名和密碼!"
'call error()
Response.End
end if
rs.close
set rs=nothing
conn_user.close
set conn_user=nothing
end if
If request("Action")="LoginOut" then
Call ClearGaobei_SysCookie()
Response.Redirect (request.servervariables("HTTP_REFERER"))
End if
Sub DealCookie_Gaobei_Sys()
Response.Cookies(Gaobei_Sys)("UserID")=rs(Gaobei_UserID)
Response.Cookies(Gaobei_Sys)("Username")=rs(Gaobei_Username)
Response.Cookies(Gaobei_Sys)("Grade") =rs("UserGrade")
Response.Cookies(Gaobei_Sys)("Money")=rs(Gaobei_UserMoney)
Response.Cookies(Gaobei_Sys)("UserEmail")=rs(Gaobei_UserEmail)
If CookieDate="" Then
CookieDate=0
End If
Response.Cookies(Gaobei_Sys)("CookieDate") = CookieDate
Select case CookieDate
case 0
'Not Save
case 1
Response.Cookies(Gaobei_Sys).Expires=Date+1
case 2
Response.Cookies(Gaobei_Sys).Expires=Date+31
case 3
Response.Cookies(Gaobei_Sys).Expires=Date+365
End select
End sub
Sub ClearGaobei_SysCookie()
Response.Cookies(Gaobei_Sys)("UserID")=""
Response.Cookies(Gaobei_Sys)("Username")=""
Response.Cookies(Gaobei_Sys)("Grade") =""
Response.Cookies(Gaobei_Sys)("Money")=""
Response.Cookies(Gaobei_Sys)("UserEmail")=""
Response.Cookies(Gaobei_Sys)("CookieDate")=""
End sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -