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