用ASP设计一个留言薄

　2006-04-08 11:58:48　来源：WEB开发网　　　

核心提示： 现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，用ASP设计一个留言薄(3)，然后重新生成htmL代码以显示出留言内容，代码如下：＜% @language="vbscript" %＞＜html＞＜head＞＜title＞留言薄＜/tit

现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，然后重新生成htmL代码以显示出留言内容。

代码如下：

＜% @language="vbscript" %＞＜html＞＜head＞＜title＞留言薄＜/title＞＜/head＞＜body background="images/back.gif"＞＜p align="center"＞＜img src=http://tech.ddvip.com/2006-04/"images/gbook.gif" alt="gbook.gif (12142 bytes)" WIDTH="374" HEIGHT="83"＞＜% ‘打开数据文件 set fsFilesys=CreateObject("Scripting.FileSystemObject") set myText=fsFilesys.OpenTextFile(Server.MapPath("/")&"/realchat/book/book.txt") Tname=myText.ReadLine %＞＜/p＞＜p align="center"＞［＜font color="#00FFFF" size="4"＞＜a href="book.asp"＞我要写留言＜/a＞＜/font＞］［＜font color="#00FFFF"＞＜a href="../index.asp"＞返回首页＜/a＞＜/font＞］＜/p＞＜table width="600"＞＜% do while Tname＜＞"Line1" ‘逐行读出内容（Line1）是文件结束标志 Tsex=myText.ReadLine Temail=myText.ReadLine Turl=myText.ReadLine Tfrom=myText.ReadLine %＞＜tr＞＜td＞＜hr＞＜/td＞＜/tr＞＜tr＞ ‘＜%=表达式%＞是向客户端输出结果＜th colspan="2" align="left"＞姓　名：＜% =Tname %＞＜br＞性　别：＜% =Tsex %＞＜br＞ E—mail：＜a href="mailto:＜% =Temail %＞"＞＜% =Temail %＞＜/a＞＜br＞主页URL：＜a href="＜% =Turl %＞" target="_blank"＞＜% =turl %＞＜/a＞＜br＞来　自：＜% =Tfrom %＞＜/th＞＜/tr＞＜tr＞＜th align="left" bgcolor="＜% =colorbg %＞"＞＜font color="red"＞留　言：＜/font＞＜/th＞＜th align="left" bgcolor="＜% =colorbg %＞"＞＜% Tcomments=myText.ReadLine do while InStr(Tcomments,"#&@")=0 %＞＜% =Tcomments %＞＜br＞＜% Tcomments=myText.ReadLine loop Ttime=Mid(Tcomments,4) Tdate=myText.ReadLine %＞＜/th＞＜/tr＞＜tr＞＜th colspan="2" align="left"＞时　间：＜% =Ttime %＞＜br＞日　期：＜% =Tdate %＞＜/th＞＜/tr＞＜tr＞＜td＞＜br＞＜% tname=myText.ReadLine loop myText.Close %＞＜/td＞＜/tr＞＜/table＞＜p＞＜br＞＜br＞＜/p＞＜/body＞＜/html＞