?? loginprocess.asp
字號:
<!-- #include file="conn.asp" -->
<%
Dim StrUsername, StrPassword, StrLoginQuery, BlnIsValidUser, ObjRSLogin
IF Trim(Request.Form("TxtUsername")) = "" OR Trim(Request.Form("TxtPassword")) = "" Then
Response.Redirect("Default.asp")
END IF
StrUsername = Trim(Request.Form("TxtUsername"))
StrPassword = Trim(Request.Form("TxtPassword"))
StrLoginQuery = "Select BuyerID, Username, Password From Buyers where Username='"&StrUsername&"'"
Set ObjRSLogin = ObjCon.Execute(StrLoginQuery)
While NOT ObjRSLogin.EOF
IF LCase(ObjRSLogin("Username")) = LCase(StrUsername) AND LCase(ObjRSLogin("Password")) = LCase(StrPassword) Then
BlnIsValidUser = True
Session("LoginBuyer") = CStr(ObjRSLogin("BuyerID"))
Session("LoginUser") = StrUsername
ELSE
BlnIsValidUser = False
END IF
ObjRSLogin.MoveNext
Wend
IF BlnIsValidUser = True Then
Response.Redirect("LoginSuccess.asp")
ELSE
Response.Redirect("LoginFailure.asp")
END IF
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -