如何對用戶進(jìn)行授權(quán)？
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文件獲取傳遞給它的信息，從數(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
End If
%>
[1]
相關(guān)文章
如何實(shí)現(xiàn)非大小寫的替換？...2006-11-11
如何制作一個彈出式的調(diào)查窗口？...2006-11-11
如何把圖片也存到數(shù)據(jù)庫中去？...2006-11-11
如何使用數(shù)組來顯示下拉菜單？...2006-11-11
如何計算下載一個文件需要多長時間？...2006-11-11
在無組件的情況下，如何上傳圖片？...2006-11-11
如何實(shí)現(xiàn)人民幣的大寫轉(zhuǎn)換？
如何實(shí)現(xiàn)人民幣的大寫轉(zhuǎn)換？...2006-11-11
如何編寫一個過濾掉HTML代碼的函數(shù)？...2006-11-11
如何做一個密碼“生成器”？...2006-11-11
如何讓用戶也能修改密碼？...2006-11-11