authenticate.asp
%
Dim URL
URL = Request.QueryString
' 獲得URL.
%>
html>
body>
FORM METHOD=POST ACTION="/validate.asp">
INPUT TYPE=HIDDEN NAME="URL" VALUE="%=URL%>">
' 將URL保存到一個(gè)隱藏變量中.
用戶名:
INPUT TYPE=TEXT NAME="txtName">
口令:
INPUT TYPE=PASSWORD NAME="txtPassword">
INPUT TYPE=SUBMIT>
/FORM>
/body>/html>
再用validate.asp文件獲取傳遞給它的信息，從數(shù)據(jù)庫中讀取用戶名和口令，以判斷是否給用戶授權(quán)。
validate.asp
%
Dim strUserName, strPassword
strUserName = Request.form("txtName")
strPassword = Request.form("txtPassword")
' 從表單中讀取用戶名和口令.
' 建立數(shù)據(jù)庫連接...
Dim strSQL
strSQL = "select * from ValidUsers WHERE UserName = " _
strUserName " AND Password = " _
strPassword
' 進(jìn)行SQL查詢.
Dim rs
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
' 如果recordset不為空, 則用戶名有效.
Session("bolAuthenticated") = True
' 將bolAuthenticated 設(shè)為True.
Response.Redirect Request.form("URL")
' 將用戶傳遞到來過的URL.
Else
Response.Redirect "/notvalidated.asp
' 否則用戶無權(quán)訪問,將用戶傳遞到一個(gè)錯(cuò)誤提示頁面.
End If
%>
[1]
