亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

如何對用戶進行授權(quán)?

 更新時間:2006年11月16日 00:00:00   作者:  

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

' 進行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)訪問,將用戶傳遞到一個錯誤提示頁面.
End If
%>

[1]

相關(guān)文章

最新評論