📄 0071.htm

📁 ASP教程宝典书籍语言：简体中文书籍类型：网络编程授权方式：免费软件书籍大小： 500 KB
💻 HTM
字号:
<html>

<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1  {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
    <p align="center"><big><strong>第七章：给留言簿的留言管理设置密码验证（二）</strong></big></p>

<TABLE border=0 width="100%">
  <TBODY>
  <TR>
    <TD width="100%">　
      <TABLE border=0 width="100%">
        <TBODY>
        <TR>
          <TD height=2><SPAN 
            class=text>　　为了兑现我对大家的承诺，我们现在立即就将“借助数据库和ASP程序”编写出来的，可以同时适用于IIS和PWS的安全网页看个仔细。<BR>　　先睹为快，还是让我们首先就来看看该ASP程序(password.asp)。</SPAN></TD></TR>
        <TR>
          <TD height=623>
            <P align=left><SPAN class=text>&lt; %<BR>Function CheckPassword( 
            Name, Password ) <BR>Dim conn, param, rs <BR>Set conn = 
            Server.CreateObject("ADODB.Connection") <BR>param = 
            "driver={Microsoft Access Driver (*.mdb)};" <BR>conn.Open param 
            &amp; ";dbq=" &amp; Server.MapPath("book2.mdb") <BR>sql = "Select * 
            From key Where Name='" &amp; Name &amp; "' And Password = '" &amp; 
            Password &amp; "'"<BR>Set rs = conn.Execute( sql ) <BR>If 
            rs.EOF Then<BR>'如果没有数据记录存在 <BR>CheckPassword = False 
            <BR>Else<BR>CheckPassword = True <BR>End If<BR>End 
            Function<BR>%&gt;<BR>'编写一Function函数，利用这个函数向数据库book2.mdb传入Name和Password（即用户名和密码）；然后利用Select指令从key数据表中选取具有与函数传入的Name和Password相吻合的数据记录；最后用If...Then...Else语句来判断数据表key中是否存在有符合条件的数据记录，并据此，给Function返回相应的结果。<BR>&lt; 
            %<BR>If IsEmpty(Session("Passed")) Then Session("Passed") = False 
            <BR>'判断上网者的Session("Passed")是否为空，即是否没有Session信息，如果是的话则说明上网者是第一次启动以下的程序。<BR>Head 
            = "请输入您的姓名和密码" <BR>Name = Request("Name") <BR>Password = 
            Request("Password") <BR>If Name = "" Or Password = "" Then<BR>Head = 
            "请输入您的姓名和密码" <BR>'因为是初来者，所以Name = Request("Name")和Password = 
            Request("Password")都等于空字符串，Session("Passed") = False，语句：If Not 
            Session("Passed")（见下面）成立，于是将输入“用户名称及密码”的页面(见下图）显示出来。 <BR>ElseIf Not 
            CheckPassword( Name, Password ) Then<BR>Response.write 
            "用户名称或密码错误"<BR>Response.end<BR>'如果上网者输入的“用户名称及密码”不正确的话，则显示说明信息："用户名称或密码错误" 
            <BR>Else<BR>Session("Passed") = True<BR>End If 
            <BR>'当然，当上网者输入的“用户名称及密码”是正确的话，则Session("Passed")将等于 True。<BR>If Not 
            Session("Passed") Then<BR>'如果If Not Session("Passed") 
            Then不成立的话，将不会显示输入“用户名称及密码”的页面，而是直接进入加密的网页。 
            <BR>%&gt;<BR>'我们可以使用Session对象来存储特定用户的Session信息，即使该客户端由一个Web页面跳到另一个Web页面，该Session信息仍然存在。所以我们在这里用Session对象来存储上网者的信息，只要你通过了该密码验证，Session("Passed")就记下你已通过了该密码验证，因此在Session对象的有效期限内，你如果再次访问该网页时就不用再输入用户名称及密码就可以直接进行被加密的页面。<BR><BR>'-=在此省去了输入用户名称及密码页面的HTML代码=-<BR>　　输入用户名称及密码的页面如下所示： 
            <BR>　<IMG height=263 src="images/00711.jpg" width=560> 
            <BR><BR>&lt; % <BR>Response.End <BR>End If <BR>%&gt;　 
        </SPAN></P></TD></TR></TBODY></TABLE>

  </table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -