<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Const dbdns = "../" Const Htmldns = "../" Const Base_Target = "" Const ChannelID = 1 %> <% TableID = Cdbl(Request.QueryString("id")) TypeID = 2 Set Article = New Ok3w_Article Call Article.Load(TableID) ClassID = Article.ClassID %> <%=Article.Title%> - 评论
您当前位置:网站首页 >> "><%=Article.Title%> >> 评论
<% 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%>
发表留言
网名:
评论:
验证: