类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
set fso=CreateObject("Scripting.FileSystemObject")
Application.lock
txtpath=Server.MapPath("book1.txt")
newpath=Server.MapPath("newbook.txt")
fso.MoveFile txtpath,newpath
set fin=fso.OpenTextFile(newpath,true)
set fout=fso.CreateTextFile(txtpath)
建立 FileSystemObject对象，并锁定Application对象，不让任何两位上网者同时执行留言操作，
同时建立和打开一个TextStream对象，指向要对其进行操作，用于留言记录的文本
book1.txt
fout.WriteLine line1
fout.WriteLine line2
fout.WriteLine line3
fout.WriteLine line4
fout.WriteLine "<br>"
fout.WriteLine fin.ReadAll
把留言表单中的信息分行写入到已打开的文件中。
fin.Close
fso.DeleteFile NewPath,True
Application.Unlock
Response.Redirect"manage1.asp"
关闭并删除gbookold.txt，然后解除Application对象的锁定，
再指引客户端浏览器到新的Web页面guestbook1.asp。
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>您的留言< /title>
<link rel="stylesheet" href="../images/Text.css">
</head>
<body TEXT="#000000" BGCOLOR="#FFFFFF" BACKGROUND="b01.jpg">
<h2 ALIGN="CENTER">您的留言< /h2>
<hr noshade color="red">
<!--#include file="book1.txt" -->
</body>
</html>
<% Response.End %>
一个留言薄提交的程序.
执行的时候显示找不到包含文件book1.txt
set fout=fso.CreateTextFile(txtpath)
这里不是创建了吗?怎么回事啊,麻烦各位帮忙了....
网友回答：
<!--#include file="book1.txt" -->在代码执行前就需要装载.
不想看書很正常呀