最喜欢的一部电影理由:最简单的asp留言本的问题。

来源：百度文库编辑：中科新闻网时间：2024/05/09 06:54:43

我在测试disp就是输入后的显示页面时候软件老是报错：
Script error detected at line 75.
Source line: Tcomments=myText.ReadLine
Description: 输入超出了文件尾

asp文件如下
<% @language="vbscript" %>

<html>

<head>
<title>留言薄</title>
</head>

<body background="images/back.gif">

〔<a href="book.asp">我要写留言</a>〕〔<a href="../index.asp">返回首页</a>〕

<table width="600" height="241">
<%
do while Tname<>"Line1"
'逐行读出内容（Line1）是文件结束标志

Tsex=myText.ReadLine
Temail=myText.ReadLine
Turl=myText.ReadLine
Tfrom=myText.ReadLine
%>
<tr>
<td height="21"><hr>
</td>
</tr>
<tr>

<th colspan="2" align="left" height="91">姓 名：<% =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 %>" height="34">留 言：</th>
<th align="left" bgcolor="<% =colorbg %>" height="34"><%
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" height="40">时 间：<% =Ttime %> 
日 期：<% =Tdate %></th>
</tr>
<tr>
<td height="35"> 
<%
tname=myText.ReadLine
loop
myText.Close
%> </td>
</tr>
</table>

 
 

</body>
</html>

应该是调用一个book.txt的文件的。这个文件是正确的。
留言后txt中自动添加了例如以下文本
小Hu
男
realplay@163.net
http://realplay.163.net
佛山
热烈兴祝“泰信心动聊天室虚拟社区”进入测试使用阶断，衷心感谢些您的到来，在测试过程中有什么问题或好的建议，请告诉我。
yesky诚邀您的加盟参与！
webmaster
wak@21:51:15
99-7-13
Line1

但是这个页面来调用txt怎么会失败呢？

谁能告诉我代码那儿错了？

程序本身没有问题。
只是调用的txt最后一定要有一行
Line1

请参考留言簿实例:http://www.awenai.com

最简单的asp留言本的问题。最简单的asp留言本，谁能帮我调试一下(就三个asp程序) 推荐个简单易用的asp留言本完整的 “留言本”asp ASP留言本问题如何用ASP制作留言本的问题 asp最简单的问题急最简单的asp代码问题? asp 留言版的问题寻找asp.net的留言本源码