<%page=1
if request("page")<>"" then page=cint(request("page"))
rowcount=20
sql="select * from forumbbs where stock_id="&stock_id&" order by id desc"
objrst.open sql,objconn,1,2
'objrst.open sql,objconn, , , adCmdText
objrst.PageSize = rowcount '设置每一页的记录数
if objrst.pagecount<>0 then objrst.absolutepage=page
if not objrst.eof then
%>
" method="post">
<%
i=(page-1)*rowcount+1do while not objrst.eof and rowcount>0%>
<%objrst.movenext
rowcount=rowcount-1
loop%>
<%else
response.write "
还未有用户参于评论!"
end if%>