如何用Access加密頁面？
更新時(shí)間：2006年11月16日 00:00:00 作者：
<%
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>噢,此用戶不存在或口令不正確!請(qǐng)重新輸入...
</center><p align='center'>
<a href='javascript:history.go(-1);'>點(diǎn)擊這兒返回上頁.</a>"
Response.End
End If
conn.close
%>
相關(guān)文章
如何制作一個(gè)文本文件編輯器？...2006-11-11
如何更好地保護(hù)我的網(wǎng)頁？...2006-11-11
如何實(shí)現(xiàn)非大小寫的替換？...2006-11-11
如何讀取一個(gè).ini文件？...2006-11-11
如何實(shí)現(xiàn)某一頁面只讓特定的用戶瀏覽？...2006-11-11
如何讓一個(gè)方框欄內(nèi)的文字滾動(dòng)顯示？
如何讓一個(gè)方框欄內(nèi)的文字滾動(dòng)顯示？...2006-11-11
如何最大限度地實(shí)現(xiàn)安全登錄功能？...2006-11-11
如何實(shí)現(xiàn)電子郵件的自動(dòng)發(fā)送？
如何實(shí)現(xiàn)電子郵件的自動(dòng)發(fā)送？...2006-11-11
如何檢測(cè)字符串出現(xiàn)的次數(shù)？...2006-11-11
如何最準(zhǔn)確地統(tǒng)計(jì)在線用戶數(shù)？
如何最準(zhǔn)確地統(tǒng)計(jì)在線用戶數(shù)？...2006-11-11