| 本月文章推荐 |
如何使用 Microsoft Access 和 Active Server Pages 加密你的页面发表日期：2000-4-20
|
|
这是一个非常简单的加密程序，大家自己看看！
<% 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 %> |
| 上一篇：IIS5 + ADO 2.5新先睹为快技术（二）
人气:12164 下一篇：WINDOWS 2000搭載ASP3.0和IIS5.0 人气:12426 |
| 浏览全部加密的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
