网络天地 828

文本留言本

2004.6.6.

您的姓名：

联系电话：

电子邮箱：

留言内容：

《网络天地 828》留言本
-----------------------------------------------------------
日期时间：2004-8-28 9:49:00
本人姓名：林木森
联系电话：0757-82345678
电子邮件：lms@tom.com
留言内容：在计算机互连网上留言本是交流信息的方便快捷方法。

-----------------------------------------------------------

 文本留言本 ASP 代码

1.创建文本文件（P198）

<%@Language="VBScript" CodePage="936"%>
<%
if not trim(request.form("say"))="" then
'创建文件系统对象 fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
'创建文本文件对象 textfile
set textfile=fs.OpenTextFile(Server.MapPath("./lyb.txt"),8,true)

cname=Request.Form("name")
cphone=Request.Form("phone")
cemail=Request.Form("email")
csay=Request.Form("say")

'2.增加文本文件内容（P202）
textfile.Writeline(" ")
textfile.Writeline("-----------------")
textfile.Writeline("日期时间："& now)
textfile.Writeline("本人姓名："& cname)
textfile.Writeline("联系电话："& cphone)
textfile.Writeline("电子邮件："& cemail)
textfile.Writeline("留言内容："& csay)
textfile.close
end if
%>

3.读取文本文件（P200）

<%
'创建文件系统对象 fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
'创建文本文件对象 textfile
set textfile=fs.OpenTextFile(Server.MapPath("./lyb.txt"))
'如果非文本文件尾
while not textfile.AtEndOfStream
response.write("<br>&nbsp;&nbsp;"&textfile.readline)
wend
textfile.close
%>