?? login.asp
字號:
<!-- #include file = "include/conndb.asp" -->
<%
dim szMemberID
dim strSQL, rsObj, strPwd
szMemberID = RealString(Request.Form("memberID"))
strPwd = RealString(Request.Form("password"))
if szMemberID = "" then
%>
<script language = Javascript>
alert("用戶名不能為空!");
window.history.go(-1);
</script>
<%
response.End
end if
strSQL = "SELECT * FROM Member WHERE MemberID = '" & szMemberID & "'"
'response.write sql
'response.End
set rsObj = conn.Execute(strSQL)
if not (rsObj.eof or err) then
if strPwd = rsObj("Pwd") then
session("memberID") = rsObj("memberID")
response.redirect "default.asp"
else
Response.Write "<script language = Javascript>"
Response.Write "alert('用戶名或密碼錯誤,請重新輸入!');"
Response.Write "window.history.go(-1);"
Response.Write "</script>"
end if
else
%>
<script language = Javascript>
alert("用戶名或密碼錯誤,請重新輸入!");
window.history.go(-1);
</script>
<%
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -