[求助]不显示回复？
源码如下：问题在哪儿？和别的正常的核对后，觉得没有哪儿不对呀？怎么就不显示呢？<%@ Language=VBScript %>
<!--#include file="config.asp" -->
<!--#include file="guest_lib.asp" -->
<%
dim ASPBook
dim StrSQL
if not isempty(request("page")) then
Mypage=cint(Request("page"))
else
Mypage=1
end if
set ASPBook = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from guest order by ID desc"
ASPBook.open StrSQL,conn,1,1
ASPBook.pagesize=Mypagesize
maxpages=cint(ASPBook.pagecount)
totalsize=cint(Mypagesize)
ASPBook.absolutepage=Mypage
GuestTotal=ASPBook.RecordCount
if cint(Mypage) >1 then
if cint(Mypage) > maxpages then
MESSAGE("没有你所想去的页数！")
Response.End
end if
end if
header "显示留言"
mymenu
%>
<html >
<body>
<%
If ASPBook.Eof or ASPBook.Bof then
Response.Write ""
Response.Write "对不起，目前还没有任何留言，如要留言，请按“我要留言”！"
else
i = 0
total = 0
do until ASPBook.Eof or total = totalsize
%>
<h5 class="color"><%=ASPBook("名字")%>留言：</h5>
[<%=ASPBook("留言日期")%>
<a href="gb_reply.asp?page=<%=mypage%>&Number=<%=ASPBook("ID")%>">回复</a>
<a href="gb_delete.asp?page=<%=mypage%>&Number=<%=ASPBook("ID")%>">删除</a> ]<br />
<%=ASPBook("留言")%><br />
<br />
<%if ASPBook("Reply")<>"" then%>
<%=ASPBook("Reply")%> ( 回复日期: <%=ASPBook("Reply_Date")%> ) <%end if%>
<%
ASPBook.MoveNext
i = i + 1
if i = 2 then i = 0
total = total + 1
loop
%>
<%end if%>
</body>
</html>
<%
set ASPBook=nothing
conn.Close
set conn = nothing
%>
