authenticate.asp
<%
Dim URL
URL = Request.QueryString
' 獲得URL.
%>
<html>
<body>
<FORM METHOD=POST ACTION="/validate.asp">
<INPUT TYPE=HIDDEN NAME="URL" VALUE="<%=URL%>">
' 將URL儲存到一個隱藏變數中.
使用者名稱:
<INPUT TYPE=TEXT NAME="txtName">
口令:
<INPUT TYPE=PASSWORD NAME="txtPassword">
<INPUT TYPE=SUBMIT>
</FORM>
</body></html>
再用validate.asp檔案擷取傳遞給它的資訊，從資料庫中讀取使用者名稱和口令，以判斷是否給使用者授權。
validate.asp
<%
Dim strUserName, strPassword
strUserName = Request.form("txtName")
strPassword = Request.form("txtPassword")
' 從表單中讀取使用者名稱和口令.
' 建立資料庫連接...
Dim strSQL
strSQL = "select * from ValidUsers WHERE UserName = " & _
strUserName & " AND Password = " & _
strPassword
' 進行SQL查詢.
Dim rs
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
' 如果recordset不為空白, 則使用者名稱有效.
Session("bolAuthenticated") = True
' 將bolAuthenticated 設為True.
Response.Redirect Request.form("URL")
' 將使用者傳遞到來過的URL.
Else
Response.Redirect "/notvalidated.asp
[1]
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
