<%
On Error Resume Next
pid=int(funstr(request.QueryString("pid")))
page=int(funstr(request.QueryString("page")))
num=20
'评论分页条数
webfp=openfile("../cache/config.txt")
web=split(webfp,",,")
set rs=rsfun("select * from page where id="&pid,1)
if not rs.eof then
%>
用户评论：<% =rs("title") %>
<%
set rssw=rsfun("select * from lun where pid="&pid&" and vip=1 order by id desc",1)
if not rssw.eof then
rssw.pagesize=num
pagecount=rssw.pagecount
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rssw.absolutepage=page
for i=1 to rssw.PageSize
if rssw.EOF then
exit for
end if
%>
<% =rssw("username") %> 于 <% =rssw("times") %>说到
<% =rssw("mg") %>
<%
rssw.movenext
next
set rssw=nothing
end if
%>
<% =page %>/共<% =pagecount %>页
<% for i=1 to pagecount %>
<% =i %>
<% next %>
