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