?? checkpass.asp
字號:
<!--#Include file="../Common/Inc_DatConn.asp"-->
<%session.Timeout = 333%>
<%
'┌─ 風云ASP在線 ────────────────────────┐
'│ │
'│ 作者:趙振波. http://www.fyasp.com │
'│ │
'│ Q Q:176189168 │
'│ │
'│ Email:fy96@163.com │
'│ │
'│ 程序定做,系統開發,網站制作,提供高質量的網絡產品、技術和服務!│
'│ │
'│【版權聲明】 │
'│ │
'│ 本程序版權歸坐看風云所有,未經授權擅自修改、復制或散布本程序│
'│ │
'│的部分或全部,將承受嚴厲的民事和刑事處罰,對已知的違反者將給予法 │
'│ │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%
'/驗證系統用戶賬戶及管理密碼/
Dim rdsAccount '/創建用戶賬號訪問對象/
Dim sqlAccount '/創建SQL語句/
Dim strAccount '/用戶賬號/
Dim strPassWord '/管理密碼/
strAccount = Request.Form("Account")
strPassWord = Request.Form("Password")
set rdsAccount = Server.CreateObject("ADODB.Recordset")
sqlAccount = "Select * From Sys_Account Where Account = '"& strAccount &"'"
rdsAccount.Open sqlAccount,Conn
if not rdsAccount.EOF then
if strPassword = rdsAccount("Password") then
if rdsAccount("State") = 0 then
Session("intUserKey") = rdsAccount("UserKey")
Session("strAccount") = strAccount
Session("strPassword") = strPassword
Session("intUserLevel") = rdsAccount("UserLevel")
Response.Redirect "Main.asp"
else
Response.Write "<script>alert(""\對不起!您的管理賬號已被禁止登錄,請與管理員聯系!"");window.location='index.asp';</script>"
end if
else
Response.Write "<script>alert(""\您輸入的管理密碼不正確,請重新輸入!"");window.location='index.asp';</script>"
end if
else
Response.Write "<script>alert(""\您輸入的賬戶不存在,請重新輸入!"");window.location='index.asp';</script>"
end if
rdsAccount.Close
set rdsAccount = nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -