用密码保护页面 (II)
点击次数：27 次 发布日期：2008-11-26 17:49:07 作者：源代码网
|
<%@ Language=VBScript %> <% Response.Buffer = True %> <HTML> <BODY> <% Session("allow") = True %> <% UserName = Request.Form("username") Password = Request.Form("password") "grab the form contents Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "your connection string here" SQL = "Select * From tblLogin" Set RS = MyConn.Execute(SQL) If UserName = RS("UserName") AND Password = RS("Password") Then "if there is a match then show the page %> Put the contents of your page here. <% Else Response.Redirect "http://www.yourdomain.com/login.asp" RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing End If %> "if there was no match then make the visitor try again to login. </BODY> </HTML> 把含上述代码的文件命名为login.asp 源代码网供稿. |
