<% option explicit %> <% dim rs,sql,rsc dim reviewable,reviewnumber dim curpage, i,page set rs=server.createobject("adodb.recordset") '查找是否开放评论权限,每页显示的评论数 rs.open "select * from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then if rs("reviewable")<>1 then rs.close response.write "对不起,评论功能已被管理员关闭!!!返回" response.end end if reviewnumber=rs("reviewnumber") else reviewnumber=20 end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") rs.open "select * from review where newsid=" & cstr(request("newsid")) & " order by rtime DESC",conn,1,1 if err.number <> 0 then response.write "数据库出错" else %> 发表评论 <% if rs.bof and rs.eof then rs.close response.write "该文章目前没有评论" else set rsc=server.createobject("adodb.recordset") '查找文章是否存在及文章标题 rsc.open "select * from news where newsid=" & cstr(rs("newsid")),conn,1,1 if rsc.bof and rsc.eof then response.write "错误!!该文章不存在或已经被删除,不允许再发表评论!!!返回" response.end else%>

<%=rsc("topic")%>

<% if session("purview")="99999" then response.write "---删除本文章相关评论---      ---删除无效评论---      ---删除全部评论---" else response.write "(以下网友留言只代表网友个人观点，不代表武汉大学生联盟的观点)" end if %>
提示:双击鼠标自动滚屏
<%end if rsc.close set rsc=nothing%>
<% if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if rs.pagesize=cint(reviewnumber) rs.absolutepage = curpage for i = 1 to rs.pagesize %> <% if session("purview")>"99997" then %> <% end if if trim(rs("url"))<>"" then%> <% end if if trim(rs("email"))<>"" then %> <% end if %> <% rs.movenext if rs.eof then i = i + 1 exit for end if next %>
网友  <%=trim(rs("reviewer"))%>  于  <%=trim(rs("rtime"))%>  发表评论 <% if session("purview")="99999" then response.write "   删除" end if %>
来自:<%=trim(rs("uip"))%>
主页
信箱

<%=rs("content")%>
<% response.write "
" response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 " response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 " if curpage = 1 then response.write "首页 前页 " else response.write "首页 前页 " end if if curpage = rs.pagecount then response.write "后页 末页" else response.write "后页 末页" end if end if end if 'rs.close set rs=nothing%>

 

发表评论(带*号的为必填项)
*您的网名:
 您的主页:
 您的信箱:
*评论内容:
">