您的位置：首页 → 精文荟萃 → 软件资讯 → 用密码保护页面 II

用密码保护页面 II

时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0)

英文原文





现在我们创建查询语句，可以验证在表单中输入的内容是否与数据库中的内容相一致。



<%@ Language=VBScript %>

<% Response.Buffer = True %>









<% Session("allow") = True %>



<%

UserName = Request.Form("username")

Password = Request.Form("password")

'grab the form contents



Set MyConn=Server.CreateObject("ADODB.Connection")

MyConn.Open "your connection string here"



SQL = "Select * From tblLogin"

Set RS = MyConn.Execute(SQL)



If UserName = RS("UserName") AND Password = RS("Password") Then

'if there is a match then show the page

%>





Put the contents of your page here.



<%

Else

Response.Redirect "http://www.yourdomain.com/login.asp"

RS.Close

MyConn.Close

Set RS = Nothing

Set MyConn = Nothing

End If

%>

'if there was no match then make the visitor try again to login.











把含上述代码的文件命名为login.asp  

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论