?? login.asp
字號:
<%
Const Err_UserNotExist = -1
Const Err_PasswordIsWrong = -2
Const Err_OverfullRecord = -3
Const Err_Success = 0
Const Err_Errors = -4
'On Error Resume Next
'//定義變量
Dim myLoginObj
Dim myDocument
Dim myResult
Dim CON
Dim SQL
Dim bReadOK
Dim myPurview
dim CS
Set CS = Server.CreateObject("uds.ConDB")
con = CS.GetConnectString(server.MapPath("..") & "\cno.ini")
Set CS = Nothing
Set myDocument = Server.CreateObject("uds.Document")
'//獲取參數
Username = Request("Username")
Password = Request("Password")
'//主程序
Set myLoginObj = Server.CreateObject( "Uds.Login" )
'//檢驗用戶是否合法
IF myLoginObj.CheckUser("Uds_Staff","Staff_Name","Password",CStr(UserName),CStr(Password),myResult,False,CStr(Con)) = True Then
'//得到用戶ID
IF myLoginObj.GetUserInfo("Uds_Staff","Staff_ID","Staff_Name",CStr(UserName),myResult,False,CStr(con)) = True Then
'//設置用戶權限對象
'//寫權限COOKIE,并跳轉
Response.Cookies("UDSUserName") = Username & ""
Response.Cookies("UDSState") = 1
Response.ReDirect "../../SubModule/Index.Asp"
End IF
Else
Response.ReDirect "../../SubModule/Login/Index.Asp?ErrMsg=" & CLng(myResult)
End IF
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -