Main.htm
<body>
<form action= "Login.asp" method= "Post" >
<input type= "text" name= "username" size= "> account <br>
<input type= "password" name= "password" size= "M" > password <br>
<input type= "Submit" value= " enter " >
</form>
</body>
Login.asp
<% @Language =vbscript%>
<%response.buffer = true%>
<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
<!----- Link-protected page ------->
Else
Response.Redirect "Main.asp"
Rs. Close
Myconn.close
Set RS = Nothing
Set myconn = Nothing
End If
%>
</body>
do the above two programs, and then improve the periphery: the Global.asa in the Session_OnStart plus session ("Allow") = False statement, Then add the following statement to the page you want to protect:
<% @Language =vbscript%>
<% Response.Buffer = True%>
<% If session ("allow") = False Then Response.Redirect "main.asp"%>
[1]
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
