<% set rs=server.createobject("adodb.recordset") id=request("id") nid=request("nid") rs.open "select * from comics where id="&request("id"),conn,1,1 if not rs.eof then id=rs("id") comic_name=rs("mhmc") end if rs.close MaxPerPage=15 if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if set rs=server.createobject("adodb.recordset") rs.open "select * from Reply where CID="&id&" order by date desc",conn,1,1 allshu=rs.recordcount %> 动漫评论

发布我的评论 本漫画共有<%=allshu%>条评论  <%=comic_name%>网友评论

<%if rs.eof then%><%else rs.pagesize=MaxPerPage mpage=rs.pagecount rs.move (currentPage-1)*MaxPerPage i=0 do while not rs.eof%>
,1)" title="强烈支持此楼观点,顶!" id="agree_<%=rs("id")%>_1">支持(_1_n"><%=rs("zc")%>,2)" title="坚决不同意此楼观点,反对!" id="agree_<%=rs("id")%>_2">反对(_2_n"><%=rs("fd")%>&page=<%=currentPage%>#pl">回复(<%set rs1=server.createobject("adodb.recordset") sql="select count(*) as ooo from reply where nid = '" & rs("id") & "' " rs1.open sql,conn,1,1 ppp=rs1("ooo") %><%=ppp%>)<%=rs("username")%> 来自: <% hfren=rs("ip") hfren=left(hfren,instrRev(hfren,"."))&"*" response.write hfren adddate=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date")) %> 发表于<%if date()=adddate then%> 今天 <%else%> <%=month(rs("date"))%>/<%=day(rs("date"))%> <%end if%> <%=Hour(rs("date"))%>:<%=Minute(rs("date"))%>
<%if rs("nid")<>0 then%><%set rs2=server.createobject("adodb.recordset") rs2.open "select * from Reply where ID="&rs("nid")&" order by date desc",conn,1,1%>
引用:<%if rs2.eof then%>原帖已经删除
<%else%><%=rs2("username")%> 来自: <% hfren=rs2("ip") hfren=left(hfren,instrRev(hfren,"."))&"*" response.write hfren adddate=year(rs2("date"))&"-"&month(rs2("date"))&"-"&day(rs2("date")) %> 发表于<%if date()=adddate then%> 今天 <%else%> <%=month(rs2("date"))%>/<%=day(rs2("date"))%> <%end if%> <%=Hour(rs2("date"))%>:<%=Minute(rs2("date"))%>
<%=rs2("content")%>
<% rs2.close end if end if%>
<%=rs("content")%>
<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <% rs.close%> <%end if%><%if mpage>1 then%>
<%pageno=currentPage if cint(pageno)>1 then%> title="最前页">首页 <%end if%><% if cint(pageno)>1 then%>  &id=<%=id%> title="上一页">上一页 <%end if%> <%pp=cint(pageno)-2 if pp<1 then pp=1 end if p=0 for pno=pp to mpage p=p+1 if pno*1=cint(pageno)*1 then%> <%=pno%> <%else%> &id=<%=id%> title="第<%=pno%>页"><%=pno%> <%end if%> <%if p>=5 then exit for next%> <% if cint(pageno)< mpage then%> &id=<%=id%> title="下一页"> 下一页 <%end if%>  <% if cint(pageno)< mpage then%> &id=<%=id%> title="最后页"> 末页 <%end if%>
<%end if%>[查看所有评论]
<%if request("plid")<>"" then%>
原帖:<%set rs2=server.createobject("adodb.recordset") rs2.open "select * from Reply where ID="&request("plid")&" order by date desc",conn,1,1%>
<%=rs2("content")%>
<% rs2.close end if%>
" /> 网名:匿名 验证码:看不清?点一下 0/2000