现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，然后重新生成htmL代码以显示出留言内容。
代码如下：
<% @language="vbscript" %>
<html>
<head>
<title>留言薄</title>
</head>
<body background="images/back.gif">
<p align="center"><img src="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>
好了，仔细地把源文件DOWN下去，自己不断修改，不断测试一下，这样对学习很有好处，看看book.txt的内容。
*book.txt的内容，里面有一条留言
美女户外健身, 美翻
真人美女和动漫美女