asp7.htm

一本关于sap的电子书

      <p>　　 Response.Cookies(cookie)[(key)|.attribute]=value </p>
      <p>　　 这里的 cookie 是指定 cookie 的名称。而如果指定了 key，则该 cookie 就是一个字典。attribute 指定 
        cookie 自身的有关信息。attribute 参数可以是下列之一 : </p>
      <p>　　 Domain 若被指定，则 cookie 将被发送到对该域的请求中去。 </p>
      <p>　　 Expires 指定 cookie 的过期日期。为了在会话结束后将 cookie 存储在客户端磁盘上，必须设置该日期。若此项属性的设置未超过当前日期，则在任务结束后 
        cookie 将到期。 </p>
      <p>　　 HasKeys 指定 cookie 是否包含关键字。 </p>
      <p>　　 Path 若被指定，则 cookie 将只发送到对该路径的请求中。如果未设置该属性，则使用应用程序的路径。 </p>
      　　 至此，我们已经学习的 Response 对象的所有属性、方法和集合的理论知识，下面作者将给大家演示一段简单的程序，通过实践让大家加深理解。先将以下程序剪贴到记事簿中，并保存为 
      asp7.asp。( 注意将 &lt; 和 % 之间的空格去掉 !!!) <br>
      　　&lt; %<br>
      　　Dim user<br>
      Dim flag<br>
      Dim pwd<br>
      　　Dim say<br>
      Response.buffer=true ' 开启缓冲页面功能<br>
      Response.ContentType=&quot;text/HTML&quot;<br>
      　　Response.Charset=&quot;gb2312&quot;<br>
      　　user=Request.Form(&quot;username&quot;)<br>
      pwd=Request.Form(&quot;password&quot;)<br>
      say=Request.QueryString(&quot;say&quot;)<br>
      %&gt;<br>
      　　&lt; form method=&quot;POST&quot; action=&quot;asp7.asp&quot;&gt;<br>
      　　&lt; p&gt; 用户名 :&lt; input type=&quot;text&quot; name=&quot;username&quot; 
      size=&quot;12&quot;&gt;&lt; br&gt;<br>
      　　口&nbsp;&nbsp; 令 :&lt; input type=&quot;password&quot; name=&quot;password&quot; 
      size=&quot;12&quot;&gt;&lt; br&gt;<br>
      　　&lt; input type=&quot;submit&quot; value=&quot; 提交 &quot; name=&quot;B1&quot;&gt;&lt; 
      input type=&quot;reset&quot; value=&quot; 取消 &quot; name=&quot;B2&quot;&gt;&lt; 
      /p&gt;&lt; /form&gt;<br>
      　　&lt; %<br>
      　　If say=1 then<br>
      　　Response.Write &quot; 欢迎书生大驾光临 !&quot;<br>
      End If<br>
      　　If say &gt; 1 then<br>
      　　Response.Write &quot; 欢迎再次光临书生的 ASP 网站 !&quot;<br>
      End If<br>
      　　If user=&quot;Adm&quot; and pwd=&quot;shusheng&quot; Then<br>
      　　Response.Expires=1 ' 设置该页面在浏览器的缓冲中存储 1 分钟后过期。<br>
      　　flag=1<br>
      　　ElseIf user=&quot;guest&quot; and pwd=&quot;guest&quot; Then<br>
      　　Response.Expires=0 ' 使缓存的页面立即过期。<br>
      　　Response.Clear ' 清空存储在缓存中的页面 <br>
      　　flag=2<br>
      　　ElseIf user=&quot;vip&quot; and pwd=&quot;vip&quot; Then<br>
      　　Response.Write &quot; 欢迎 VIP 光临书生的 ASP 网站 &quot;<br>
      　　flag=3<br>
      　　Else<br>
      　　flag=0<br>
      　　Response.End ' 立即停止脚本处理，并将缓存中的页面输出<br>
      End If<br>
      　　Response.write &quot;&lt; p&gt;&lt; a href='asp7b.asp?flag=&quot;&amp;flag&amp;&quot;'&gt; 
      动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 &lt; /a&gt;&lt; /p&gt;&quot; <br>
      ' 将变量 flag 的值传送给 asp7b.asp<br>
      　　%&gt;<br>
      　　&lt; p&gt; 动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 &lt; /p&gt;<br>
      　　 再将以下程序保存为 asp7b.asp。 <br>
      　　&lt; %<br>
      　　Dim saysay=Request.QueryString(&quot;flag&quot;)<br>
      Select case say<br>
      　　case &quot;1&quot;<br>
      　　Response.Redirect &quot;asp7.asp?say=1&quot;<br>
      case &quot;2&quot;<br>
      　　Response.Redirect &quot;asp7.asp?say=2&quot;<br>
      case &quot;3&quot;<br>
      　　Response.Redirect &quot;asp7.asp?say=3&quot;<br>
      case &quot;0&quot;<br>
      　　Response.Redirect &quot;asp7.asp?say=0&quot;<br>
      End Select<br>
      　　%&gt;<br>
      <p>　　 将这两个程序放在有执行权限的 WEB 虚拟目录下，并以 http 方式访问 asp7.asp。在这两个程序中我们充分运用了至今为止所学过的两个 
        ASP 内建对象 :Request 和 Response。当你第一次访问 asp7.asp 文件时，页面上出现一个 Form 并提示输入用户名和口令，如果你输入用户名 
        :Adm、口令 :shusheng, 则会出现如下页面 : <br>
        <img src="images/asp7a.gif" alt="asp7a.gif (2387 bytes)" width="326" height="152"> 
      </p>
      <p>　</p>
      <p>　　 如果你输入用户名 :guest、口令 :guest, 则仅出现如下页面 : <br>
        <img src="images/asp7b.gif" alt="asp7b.gif (1509 bytes)" width="326" height="66"> 
      </p>
      <p>　</p>
      <p>　　 这是为什么呢？因为我们设置了页面缓存，当使用 guest 登陆时，判断程序自动清空其之前所有存储在缓存中的页面，而仅将其后脚本程序执行的结果显示出来。 
      </p>
      <p>　　 那为什么第一次登陆 asp7.asp 页面时仅仅只显示一个 Form 对话框呢？因为此时程序判断到用户既非 Adm, 也不是 guest 
        和 vip，所以执行 Response.End, 立即将存储在缓存中的 Form 显示出来，并停止其后的一切脚本处理，包括纯 HTML 代码的显示。 
      </p>
      　　 无论你是用 Adm 还是 guest 或 vip 登陆该页面你都可以看到一个超链，该超链指向文件 asp7b.asp，当我们点击该超链时，asp7.asp 
      将变量 flag 的值作为参数发送给 asp7b.asp, 而后者则根据该参数的值来做出判断，并依据不同情况使用 Response.Redirect 
      再强行返回 asp7.asp, 并也将一个变量 say 的值作为参数发送给 asp7.asp。如此一来，asp7.asp 又会根据此参数来做出不同的反应。<br>
      <br>
      　　 大家现在都看到了我们仅仅用了两个很简单的程序，就可以做到对同一个页面的多种不同显示结果，这正是 ASP 的魅力所在，各位可以以此示范程序为基础，来进行一些改动，以熟练掌握我们所学的这两个内建对象。今天的课程就到此为止了，在结尾我还要说明两件事。第一，很多朋友来信询问哪里可以看到 
      ASP 篇的前几篇文章，请大家点击 <a href="http://www.chinabyte.com/staticpages/builder/builder_schedule/BAHT/builder_schedule_BAHT.html" target="new">此处</a> 
      便可以找到。第二，一些朋友反映文中的 ASP 程序不能运行，这主要是因为 Chinabyte 的页面都是用数据库生成的，它限定在文章中不能使用带 
      HTML 或 ASP 格式的代码，所以在所有 &lt; 符号后都加了空格，各位只要将 &lt; 后的空格去掉就可以运行程序了，切记。下一篇我们将继续学习另一个 
      ASP 内建对象，敬请关注。 
      <p>&nbsp;</p>
      <p align="CENTER"><a href="../homepage.htm#asp"><font face="宋体" lang="ZH-CN">返回主页</font></a> 
        <a href="asp6.htm">上一节</a> <a href="asp8.htm">下一节</a></p>
      <p align="CENTER"><a href="http://www.cpcw.com">电脑报首页</a>　<a href="../index.htm">网络学院首页</a></p>
      </td>
  </tr>
</table>
</BODY>
</HTML>