如何用Access加密页面?
如何用Access加密页面?
发布时间:2016-12-29 来源:查字典编辑
摘要:

<%

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

%>

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新编程10000问学习
热门编程10000问学习
编程开发子分类