main.htmxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
<html>
<body>
<form action=”login.asp” method=”Post”>
<input type=”text” name=”username” size=”20″> è´¦å·<br>
<input type=”password” name=”password” size=”20″> å¯ç <br>
<input type=”submit” value=”è¿å ¥“>
</form>
</body></html>
Â
login.asp
<%@Language=VBScript%>
<%Response.Buffer = True%>
<html>
<body>
<%
UserName = Request.Form(“username”)
Password = Request.Form(“password”)
Set MyConn=Server.CreateObject(“ADODB.Connection”)
MyConn.Open “Provider={Microsoft Access Driver (*.mdb)};
DBQ=D:\suifengqiwu\databases\test.mdb”
SQL = “Select * From tblLogin”
Set RS = MyConn.Execute(SQL)
Â
If UserName = RS(“UserName”) And Password = RS(“Password”) Then
 Session(“allow”) = True
< !—–è¿æ¥ä¿æ¤ç页颗—->
Else
 Response.Redirect “main.asp”
 RS.Close
 MyConn.Close
 Set RS = Nothing
 Set MyConn = Nothing
End If
%>
</body></html>
   å好äºä¸é¢ä¸¤ä¸ªç¨åºï¼åå®åä¸ä¸å¤å´ï¼æglobal.asaä¸çSession_Onstartå ä¸ Session(“allow”) = False è¯å¥ï¼åå¨è¦ä¿æ¤çç½é¡µä¸å å ¥ä¸é¢çè¯å¥ï¼
<% @Language=VBScript %>
<% Response.Buffer = True %>
<% If session(“allow”) = False Then Response.Redirect “main.asp” %>
[1]