<% set rsGuestBook=server.CreateObject("adodb.recordset") sql="select * from tGuestBook where guestType=0 and guestIsPassed=1 order by guestDatetime desc" rsGuestBook.open sql,conn,1,1 if (rsGuestBook.eof and rsGuestBook.bof) then response.Write("没有留言！！请添加留言！！") else '分页初始化 page=request.QueryString("page") 'page值为接受值 rsGuestBook.PageSize = 10 '每页显示记录数 PageSize=rsGuestBook.PageSize if Not IsEmpty(page) then '如果page已经初始化... if Not IsNumeric(page) then '判断page值是否为数字 page=1 else Page = cint(page) '接收page并化为数字型赋给page变量 end if if Page > rsGuestBook.PageCount then '如果接收的页数大于总页数 rsGuestBook.AbsolutePage = rsGuestBook.PageCount '设置当前显示页等于最后页 elseif Page <= 0 then '如果page小于等于0 rsGuestBook.AbsolutePage = 1 '设置当前显示页等于第一页 else rsGuestBook.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end if else rsGuestBook.AbsolutePage=1 end if Page = rsGuestBook.AbsolutePage %> <%while (PageSize<>0) and (not rsGuestBook.eof)%> <% rsGuestBook.moveNext PageSize=PageSize-1 wend%>

留言人：<%=rsGuestBook("guestName")%> <%=rsGuestBook("guestDatetime")%> 来自：<%=rsGuestBook("guestFrom")%> ">

<%=rsGuestBook("guestTitle")%> [" >回复] <%=rsGuestBook("guestContent")%> <% sql_reply="select * from tGuestBook where guestType="&rsGuestBook("guest_ID")&" and guestIsPassed=1 order by guestDatetime asc" set rsReply=conn.execute(sql_reply) if (rsReply.eof and rsReply.bof)then '没有回复 else%> <% while (not rsReply.eof) %> <%=rsReply("guestName")%>回复 (<%=rsReply("guestDatetime")%> 来自：<%=rsReply("guestFrom")%>) "> " /> " /> "> " /> <%=rsReply("guestContent")%> <% rsReply.moveNext wend%> <% end if%>

<%end if%> <%call pagination(rsGuestBook.PageCount,rsGuestBook.pagesize,page,rsGuestBook.RecordCount)%>