ASP教程:制作登陆页面验证程序代码
本程序的作用是防止非认证用户访问指定页面。一下是相关文件代码。
利用程序来进行密码验证，这种方法较为通用，它对Web服务器没有具体要求，它是借助数据库及ASP程序进行设计，来实现一种通用网页加密。
首先，我们利用Microsoft Access建立“用户名称及密码”的数据表，假设将这个表取名为User，数据库名为Usercheck.mdb，数据表的结构如下：
字段说明 字段名称 数据类型 数据长度
用户名称 ID 文本 15
密码 PWD 文本 15
验证程序PASS.ASP的源代码如下：
| <% Function Check( ID, Pwd ) Dim conn, par, rs Set conn = Server.CreateObject("ADODB.Connection") par = "driver={Microsoft Access Driver (*.mdb)} " conn.Open par && ";dbq=" && Server.MapPath("usercheck.mdb ") sql = "Select * From users Where ID= && ID && And Pwd = && Pwd &&" Set rs = conn.Execute( sql ) If rs.EOF Then Check= False Else Check= True End If End Function %> <% If IsEmpty(Session("Passed")) Then Session("Passed") = False Head = "请输入用户名和密码" ID = Request("ID") Pwd = Request("Pwd") If ID = "" Or Pwd = "" Then Head = "请输入用户名和密码" Else If Not Check( ID, Pwd ) Then Head = "用户名称或密码有错" Else Session("Passed") = True End If If Not Session("Passed") Then %> <html> <head><title></title></head> <body BGCOLOR="#FFFFFF"> <h2 ALIGN="CENTER"><%=Head%></h2> <hr WIDTH="100%"> <form Action="<%=Request.ServerVariables("PATH_INFO")%>" Method="POST"> <table BORDER="1" CELLSPACING="0"> <tr> <td ALIGN="RIGHT">用户名称：</td> <td><input Type="Text" Name="ID" Size="12" Value="<%=ID%>"></td> </tr> <tr><td ALIGN="RIGHT">密码：</td> <td><input Type="Password" Name="Pwd" Size="12" Value="<%=Pwd%>"></td></tr> </table> <p><input Type="Submit" Value="确定"></p> </form> <hr WIDTH="100%" align="center"> </body> </html> <%Response.End End If%> |
这个验证合法性的页面具有通用性，只要在需要加密网页的最前面加上如下程序：
| <!–#include file="pass.asp"–> |
即可实现对任意网页进行加密的功能了。