当前位置：编程学习 > asp >>
答案：这几天没写教学文章，实在对不起，现在我先做一个比教简单的主页留言部，这个留言薄并没有使用数据库，它使用了文本文件来保存留言信息，因此，你必须确认对执行保存文件I的目录有读写权限，否则将会无法建立文件。
首先，我们在做留言薄之前，先使用FRONTPAGE98做出一个输入屏的界面效果，也就是生成留言部输入屏幕的HTML页，然后在这些HTML源代码中加入ASP脚本，我这里得到的HTML代码如下。
＊文件名：book.htm
<html><head>
<title>留言薄</title></head>
<body bgcolor="#BED9FC" background="images/bg.gif">
<p align="center"><img src="images/gbook.gif" alt="GBook.gif (12142 bytes)" WIDTH="374"
HEIGHT="83"> </p><p align="center">[<a href=>
<form method="POST" action="book.asp">
<input type="hidden" name="task" value="insert"><div align="left"><table>
<tr>
<td align="right">姓名</td>
<td><img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16"></td>
<td><input name="name" size="46"></td>
</tr>
<tr>
<td align="right">性别</td>
<td><img src="images/bottom-g.gif" alt="BUTTOM-G.GIF (179 bytes)" WIDTH="16" HEIGHT="16"></td>
<td><input name="易做图" size="46"></td>
</tr>
<tr>
<td align="right">来自</td>
<td><img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16"></td>
<td><input name="from" size="46"></td>
</tr>
<tr>
<td align="right">主页URL</td>
<td><img src="images/homepage.gif" alt="HomePage.gif (1232 bytes)" WIDTH="30" HEIGHT="30"></td>
<td><input name="url" size="46"></td>
</tr>
<tr>
<td align="right">
E-mail</td>
<td><img src="images/email.gif" alt="Email.gif (1197 bytes)" WIDTH="30" HEIGHT="30"></td>
<td><input name="email" size="46"></td>
</tr>
<tr>
<td align="right">留言</td>
<td colspan="2"><textarea wrap="off" name="comments" cols="49" rows="9"></textarea></td>
</tr>
<tr>
<td> </td>
<td colspan="2"><dl>
<dd align="center"> <input type="submit" value="我写好了">
<input type="reset" value="重新再写"></dd>
</dl>
</td>
</tr>
</table>
</div>
</form><p align="center"> </p>
</body>
</html>
您可以按这里看一下这个界面的效果（需要强调一点，这些HTML代码还是完全没有功能的）
你可以把它保存为book.htm，然后用FRONTPAGE98来打开它，打开后，可以查看网页中的那个输入FORM的属性，在这个留言薄中。我们使用两个文件来处理，一个是book.asp，另一个是disp.asp，前者是一个输入界面，后者是一个显示界面，用于显示留言信息。
现在说说book.htm，让大家了解一下其中的那个输入FORM的作用，它的action对象是本身，book.asp（等一会儿需要把book.htm改名为book.asp）这个文件，也就是说。表单提交后，由本身来作处理。在这个FORM中，有几个文本输入框，它们分别是name，易做图，from，url，email，以及多行文本输入框comments。
现在把book.htm改名为book.asp，往文件中添加ASP代码。如下：（单引号表示ASP的注析，编译器是不处理的。
＊book.asp
<% @language="vbscript" %>
<%
‘'判断请求方式，当客户端请求文件时，比如直接输入网址：http://active.silversand.net/index.htm这样，就会产生一个GET的请求信息。而提交表单时（表单的方式设为POST），就会产生POST的请求方式，现在判断book.asp这个文件是用户用浏览器打开页面，还是用户提交数据这个动作，以便进行程序处理。
if Request.ServerVariables("REQUEST_METHOD")="POST" then
‘这里判断出是由用户提交表单而调入入的页面，因此进行登记留言处理。‘创建一个文件组件的服务器实例
set fsFilesys=CreateObject("Scripting.FileSystemObject")
‘打开文本文件server.mappath("/")是返回服务器发行目录的真实路径，也就是比如说：c:\Inetpub\wwwroot这个路径，然后"/realchat/book/book.txt"就是相对于这个路径基础上的路径。set myText=fsFilesys.OpenTextFile(Server.MapPath("/")&"/realchat/book/book.txt")
‘把文本文件的所有内容读出，保存在Temp这个变量中。Temp=myText.Readall
myText.Close
‘是否需要添加内容if Request("task")="insert" Then
‘取得表单的各项的值Tname=request.form("name")
T易做图=request.form("易做图")
Temail=request.form("email")
turl=request.form("url")
Tfrom=request.form("from")
Tcomments=request.form("comments")
Ttime="#&@"&time
if Len(Tcomments)<2 Then
%>
<font size="4" color="red"><p align="center">对不起！你还未留言。<a href=>else
if Lcase(Left(Turl,7))<>"http://" Then
Turl="http://"&Turl
End if
Turl=Lcase(Turl)
‘重新创建数据文件，把原来的覆盖掉。set myText=fsFilesys.CreateTextFile(Server.MapPath("/")&"/realchat/book/book.txt")
myText.WriteLine(Tname)
myText.WriteLine(T易做图)
myText.WriteLine(Temail)
myText.WriteLine(Turl)
myText.WriteLine(Tfrom)
myText.WriteLine(Tcomments)
myText.writeLine(Ttime)
myText.WriteLine(date)
myText.writeLine(Temp)
myText.Close
%>
<script Language="JavaScript">
document.write("<h1>恭喜！您的留言已顺利提交，请按<a href=></script>
<%end if
‘至此，留言已保存入文件book.txt中End if
else
‘第一次进入输入屏幕，因此显示HTML文件内容。
%>
<html><head>
<title>留言薄</title>
<% colorbg="#BED9FC" %>
</head><body bgcolor="<% =colorbg %>" background="images/bg.gif">
<p align="center"><img src="images/gbook.gif" alt="GBook.gif (12142 bytes)" WIDTH="374"
HEIGHT="83"> </p><p align="center">[<a href=>
<form method="POST" action="book.asp">
<input type="hidden" name="task" value="insert"><div align="left"><table>
<tr>
<td align="right">姓名</td>
<td><img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16"></td>
<td><input name="name" size="46"></td>
</tr>
<tr>
<td align="right">性别</td>
<td><img src="images/bottom-g.gif" alt="BUTTOM-G.GIF (179 bytes)" WIDTH="16" HEIGHT="16"></td>
<td><input name="易做图" size="46"></td>
</tr>
<tr>
<td align="right">来自</td>
<td><img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16"></td>
<td><input name="from" size="46"></td>
</tr>
<tr>
<td align="right">主页URL</td>
<td><img src="images/homepage.gif" alt="HomePage.gif (1232 bytes)" WIDTH="30" HEIGHT="30"></td>
<td><input name="url" size="46"></td>
</tr>
<tr>
<td align="right">
 
上一个：ASP访问数据库
下一个：ASP访问SQL Server内置对象
- 更多asp疑问解答：
- asp正则过滤重复字符串的代码
- 用asp过滤全部html但保留br类似的符号
- 会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
- PHP的空间可以用ASP的源代码吗？
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
- jsp，asp，php 区别
- 我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
- 现在候找人做个网站，用ASP，还是PHP语言去做好
- asp,php ,jsp,.net 对于做网站前台的重要吗？
- asp和php的区别是什么？
- 我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？