📄 0063.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=61><SPAN 
            class=text>　　从本章开始我们将由一个简单的，利用文件储存访问留言的留言簿程序进入我们的教程。编写这样一个留言簿，我们大致可以从以下三个步骤来完成。<BR><BR><FONT 
            color=#0000ff>步骤一：先设计一个留言表单的网页</FONT>（如：guestbook1.asp，这不用我在这儿说教了吧？)。见下图： 
            </SPAN></TD></TR>
        <TR bgColor=#00ccf0>
          <TD>
            <DL>
              <DD align="center"><IMG height=333 
              src="images/00631.jpg" width=500> </DD></DL></TD></TR>
        <TR>
          <TD><SPAN class=text><FONT 
            color=#0000ff><BR>步骤二：在设计好留言表单后，我们开始进行编写处理留言的ASP程序。</FONT><BR><BR>　　我们要编写处理留言的ASP程序，最重要的问题是如何实现存取留言。而在ASP程序中，要存取文件，我们必须建立FileSystemObject对象（该对象主要用于读取Unicode或ASCII码的文件）。而要建立FileSystemObject对象，我们又可以使用以下的语句：<BR>　　　　<U>SET 
            对象实例 = 
            CREATEOBJECT（"SCRIPTING.FILESYSTEMOBJECT")</U><BR>FileSystemObject对象的方法包括：CreateTextFile 
            和OpenTextFile：<BR>CreateTextFile ：建立一个文件名称，并返回一个TextStream对象提供你读写文件 
            <BR>OpenTextFile ：打开一个已存在的文件并建立一个TextStream对象以供你读写文件 
            　　在建立并打开一个可供编辑的文件后，我们最后可以调用TextStream对象下的方法WriteLine(把信息写入到已打开的文件中并换行)和方法ReadLine(读取已打开文件的一行信息)来存取文件。<BR>　　因此，要实现存取留言的ASP程序，我们可以大致构思如下：<BR>　　先建立FileSystemObject对象；然后通过该对象来调用OpenTextFile打开文件或者调用CreateTextFile来创建新的文件，建立TextStream对象；最后我们再进行调用TextStream对象的WriteLine和ReadLine进行存取文件。解决了这个主要问题后，我们可以将处理留言的ASP程序写成如下所示： 
            　　 　 　</SPAN></TD></TR>
        <TR>
          <TD>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR>
                <TD><SPAN class=text>&lt; %</SPAN></TD></TR>
              <TR>
                <TD><SPAN class=text>Name = Request("Name") )<BR>Email = 
                  Request("Email")<BR>Subject = Request("Subject")<BR>Memo = 
                  Request("Memo") </SPAN></TD></TR>
              <TR>
                <TD><SPAN class=text>'从留言表单取得数据</SPAN></TD></TR>
              <TR>
                <TD height=12><SPAN class=text>If Name = "" Or Email = "" Or 
                  Subject = "" Or Memo = "" Then <BR>Response.Write "输入框不能为空白!" 
                  <BR>Response.End<BR>End If </SPAN></TD></TR>
              <TR>
                <TD><SPAN 
                  class=text>'检查表单的各输入框是否有信息输入，若留有空输入框没填则显示说明信息："输入框不能为空白!" 
                  并停止执行下面的程序。? </SPAN></TD></TR>
              <TR>
                <TD><SPAN class=text>Line1 = "留言人：" &amp; Name <BR>Line1 = 
                  Line1 &amp; String(5, "　") <BR>Email = "&lt; A HREF=mailto:" 
                  &amp; Email &amp; "&gt;" &amp; Email &amp; "&lt; /A&gt;" 
                  <BR>Line1 = Line1 &amp; "Email
⌨️ 快捷键说明

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