<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Dim TopicID
TopicID = PE_CLng(Request("TopicID"))
Response.Write ""
If Request("action") = "show" Then
Dim Star, PageTree, MaxPerPageTree
Star = Request("Star")
If Star = "" Or Not IsNumeric(Star) Then Star = 1
Star = CLng(Star)
PageTree = Star
Response.Write "" & vbCrLf
Dim temporaryStr, i, rsGuestBook, sql, TotalPage
temporaryStr = ""
i = 0
If TreeMaxPerPage = "" Or Not IsNumeric(TreeMaxPerPage) Then
MaxPerPageTree = 5
Else
MaxPerPageTree = CLng(Trim(TreeMaxPerPage))
End If
sql = "select GuestContent,GuestTitle,GuestName,GuestDatetime,GuestContentLength from PE_GuestBook where TopicID=" & TopicID & " and GuestID<>TopicID"
Set rsGuestBook = Server.CreateObject("adodb.recordset")
rsGuestBook.Open sql, Conn, 1, 1
If Star > 1 Then
rsGuestBook.Move (Star - 1) * MaxPerPageTree
End If
Do While Not rsGuestBook.EOF
temporaryStr = temporaryStr & " 
" & rsGuestBook("GuestTitle") & "(" & rsGuestBook("GuestContentLength") & "字) － " & rsGuestBook("GuestName") & "，" & FormatDateTime(rsGuestBook("GuestDatetime"), 0) & " "
i = i + 1
If i >= MaxPerPageTree Then Exit Do
rsGuestBook.MoveNext
Loop
If rsGuestBook.RecordCount Mod MaxPerPageTree = 0 Then
TotalPage = rsGuestBook.RecordCount \ MaxPerPageTree
Else
TotalPage = rsGuestBook.RecordCount \ MaxPerPageTree + 1
End If
temporaryStr = Replace(Replace(Replace(Replace(Replace(Replace(temporaryStr, "\", "\\"), "'", "\'"), vbCrLf, ""), Chr(13), ""), "
", ""), "", "")
Response.Write "" & vbCrLf
Set rsGuestBook = Nothing
Call CloseConn
Else
Response.Write "" & vbCrLf
End If
Response.Write ""
Call CloseConn
%>