This is a very simple encryption program, everyone look at themselves!
<%
UserID = Request ("userid")
Userpass = Request ("Userpass")
Set conn = Server.CreateObject ("ADODB. Connection ")
DBPath = Server.MapPath ("Userinfo.mdb")
Conn. Open "Driver={microsoft Access driver (*.mdb)};d bq=" & DBPath
Userid=trim (userid)
Userpass=trim (Userpass)
Sql= "SELECT * from [UserInfo]"
Set Rs=conn.execute (SQL)
While not (RS.BOF or rs.eof)
If Userid=trim (RS ("username")) and Userpass=trim (RS ("password") then
Flag = "1"
End If
Rs.movenext ()
Wend
If flag = "1" Then
Rs.close ()
Else
Rs.close ()
Response.Write "<center> Sorry, this user does not exist or the password is incorrect, please try again!" </center><p align= ' center ' ><a href= ' Javascript:history.go (-1); ' > Click here to go back to the previous page! </a> "
Response.End
End If
Conn.close
%>
