ASP建站十大常用程序(第二节):留言薄（第4页）-远方教程

现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，然后重新生成htmL代码以显示出留言内容。
代码如下：
<% @language="vbscript" %>
<html>
<head>
<title>留言薄</title>
</head>
<body background="images/back.gif">
<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
%> 
［<a href="book.asp">我要写留言</a>］［<a href="../index.asp">返回首页</a>］
<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 %> 
性别：<% =Tsex %> 
E—mail：<a href="mailto:<% =Temail %>"><% =Temail %></a> 
主页URL：<a href="<% =Turl %>" target="_blank"><% =turl %></a> 
来自：<% =Tfrom %></th>
</tr>
<tr>
<th align="left" bgcolor="<% =colorbg %>">留言：</th>
<th align="left" bgcolor="<% =colorbg %>"><%
Tcomments=myText.ReadLine
do while InStr(Tcomments,"#&@")=0
%>
<% =Tcomments %>
 
<%
Tcomments=myText.ReadLine
loop
Ttime=Mid(Tcomments,4)
Tdate=myText.ReadLine
%> </th>
</tr>
<tr>
<th colspan="2" align="left">时间：<% =Ttime %> 
日期：<% =Tdate %></th>
</tr>
<tr>
<td> 
<%
tname=myText.ReadLine
loop
myText.Close
%> </td>
</tr>
</table>
 
 

</body>
</html>
　　好了，仔细地把源文件DOWN下去，自己不断修改，不断测试一下，这样对学习很有好处，看看book.txt的内容。
　　*book.txt的内容，里面有一条留言

第1页第2页第3页 第4页