<% PageSize = 15 Sql = "select * from Ok3w_Guest where TypeID=100" If Application(SiteID & "_Ok3w_SiteIsGuest")="1" Then Sql = Sql & " and IsPass=1" Sql = Sql & " order by IsTop desc,ID desc" Set Page = New TurnPage Call Page.GetRs(Conn,Rs,Sql,PageSize) %>

共有<%=Rs.RecordCount%>条留言

<%Call Page.PageAspList("./book.asp?")%>

公告：<%=Application(SiteID & "_Ok3w_SiteGuestNews")%>

<% Do While Not Rs.Eof And Not Page.Eof %>

<%=OutStr(Rs("UserName"))%> <%=Format_Time(Rs("AddTime"),6)%>

<%=Rs("Content")%> <%If Rs("Ad_Ask")<>"" Then%> 管理员回复：<%=OutStr(Rs("Ad_Ask"))%> <%End If%>

<% Rs.MoveNext Page.MoveNext Loop %>

共有<%=Rs.RecordCount%>篇留言

<%Call Page.PageAspList("./book.asp?")%>

<%Rs.Close%>