如何用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>噢,此用戶不存在或口令不正確!請重新輸入...
</center><p align='center'>
<a href='javascript:history.go(-1);'>點(diǎn)擊這兒返回上頁.</a>"
Response.End
End If
conn.close
%>
相關(guān)文章
如何用下拉列表顯示數(shù)據(jù)庫里的內(nèi)容？
如何用下拉列表顯示數(shù)據(jù)庫里的內(nèi)容？...2006-11-11
如何做一個(gè)文本書寫器？...2006-11-11
在無組件的情況下，如何上傳圖片？...2006-11-11
如何編寫一個(gè)加法器？...2006-11-11
如何根據(jù)用戶銀行帳戶余額的多少進(jìn)行顯式的提交或終止？
如何根據(jù)用戶銀行帳戶余額的多少進(jìn)行顯式的提交或終止？...2006-11-11
這篇文章主要為大家介紹了字節(jié)跳動解決SLA治理難題的了解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-05-05
如何獲取文件的名稱和擴(kuò)展名？...2006-11-11
在之前，信息量不像現(xiàn)在那么大的時(shí)候，我們通過一些分類網(wǎng)站去獲取我們想要的信息，隨著互聯(lián)網(wǎng)信息量越來越大，用戶大多時(shí)候并不清楚自己想要搜什么，這就需要推薦系統(tǒng)去給用戶推薦2021-08-08
游戲個(gè)性化數(shù)值因果推斷的應(yīng)用實(shí)踐
這篇文章主要為大家介紹了因果推斷在游戲個(gè)性化數(shù)值中的實(shí)踐及應(yīng)用，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-05-05
如何處理包含javascript語句時(shí)的間隔符？...2006-11-11