广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

这是一个非常简单的加密程序，大家自己看看！
<%
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
%>

（）