如何使用 MICROSOFT ACCESS 和 ACTIVE SERVER PAGES 加密你的页面

  这是一个非常简单的加密程序，大家自己看看！
<%
USERID = REQUEST("USERID")
USERPASS = REQUEST("USERPASS")

SET CONN = SERVER.CREATEOBJECT("ADODB.CONNECTION")
DBPATH = SERVER.MAPPATH("USERINFO.MDB")
CONN.OPEN "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ=" & 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("用户名")) AND USERPASS=TRIM(RS("密码")) THEN
FLAG = "1"
END IF
RS.MOVENEXT()
WEND
IF FLAG = "1" THEN
RS.CLOSE()
ELSE
RS.CLOSE()
RESPONSE.WRITE "<CENTER>对不起，此用户不存在或密码不正确，请重试！</CENTER><P ALIGN=CENTER><A HREF=JAVASCRIPT:HISTORY.GO(-1);>点这里回上一页！</A>"
RESPONSE.END
END IF
CONN.CLOSE
%>