<%
PageSize = 15
PageNo = Trim(Request.QueryString("PageNo"))
If PageNo="" Then PageNo = 1
LC = (PageNo-1) * PageSize
Sql = "select * from Ok3w_Guest where TypeID=2 and TableID=" & TableID
If Application(SiteID & "_Ok3w_SiteIsGuest")="1" Then Sql = Sql & " and IsPass=1"
Sql = Sql & " order by IsTop desc,ReTime desc,ID desc"
Set Page = New TurnPage
Call Page.GetRs(Conn,Rs,Sql,PageSize)
%>
共有<%=Rs.RecordCount%>条评论 |
<%Call Page.GetPageList()%> |
评论:<%=Article.Title%>
<%
Do While Not Rs.Eof And Not Page.Eof
LC = LC + 1
b_head = Rs("pID")
%>
<%=OutStr(Rs("UserName"))%> |
<%=LC%>楼
<%=UBBCode(OutStr(Rs("Content")))%>
<%If Rs("Ad_Ask")<>"" Then%> 管理员回复:<%=OutStr(Rs("Ad_Ask"))%> <%End If%>
|
|
<%=Rs("AddTime")%> |
<%
Rs.MoveNext
Page.MoveNext
Loop
%>
共有<%=Rs.RecordCount%>篇留言 |
<%Call Page.GetPageList()%> |
<%Rs.Close%>
发表留言
|