留言簿设置密码验证

整理日期：2008年08月12日 【字体：大 中 小】

　　了兑现我对大家的承诺，我们现在立即就将“借助数据库和ASP程序”编写出来的，可以同时适用于IIS和PWS的安全网页看个仔细。

　　先睹为快，还是让我们首先就来看看该ASP程序(password.asp)。

　　< %
　　Function CheckPassword( Name, Password )
　　Dim conn, param, rs
　　Set conn = Server.CreateObject("ADODB.Connection")
　　param = "driver={Microsoft Access Driver (*.mdb)};"
　　conn.Open param & ";dbq=" & Server.MapPath("book2.mdb")
　　sql = "Select * From key Where Name="" & Name & "" And Password = "" & 　　　　　Password & """
　　Set rs = conn.Execute( sql )
　　If rs.EOF Then
　　"如果没有数据记录存在
　　CheckPassword = False
　　Else
　　CheckPassword = True
　　End If
　　End Function
　　%>

　　"编写一Function函数，利用这个函数向数据库book2.mdb传入Name和Password（即用户名和密码）；然后利用Select指令从key数据表中选取具有与函数传入的Name和Password相吻合的数据记录；最后用If...Then...Else语句来判断数据表key中是否存在有符合条件的数据记录，并据此，给Function返回相应的结果。

　　< %
　　If IsEmpty(Session("Passed")) Then Session("Passed") = False
　　"判断上网者的Session("Passed")是否为空，即是否没有Session信息，如果是的话则说明上网者是第一次启动以下的程序。
　　Head = "请输入您的姓名和密码"