<%
'call review_type("art",id,"article_view.asp?id="&id,1|2|3|4)

function review_rsort(rvar)
  if rvar<>"news" and rvar<>"art" and rvar<>"down" and rvar<>"gall" and rvar<>"web" and rvar<>"pro" and rvar<>"video" then
    review_rsort="no"
  else
    review_rsort="yes"
  end if
end function

sub review_type(rtsort,rtid,rturl,rtt)
  dim rsr,sqlr,rusername,remail,rtype
  response.write admin_bar("发表评论",1,"100%")
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr><td height=1 background='images/bg_dian.gif' colspan=2></td></tr>
<tr><td height=18 valign=bottom class="summary-title" colspan=2>&nbsp;&nbsp;<b>→&nbsp;<a onclick="document.all.review_word.style.display=document.all.review_word.style.display=='none'?'':'none';return false;" href="javsscript:;"><font class=time>评论内容</font></b> (点击查看)</a><%  
  if login_mode=objv7.format_power2(user_power,1,1) then
    response.write "&nbsp;&nbsp;&nbsp;<a href='review.asp?action=delete&rsort="&rtsort&"&re_id="&rtid&"&rurl="&rturl&"'>删除本主题的所有评论</a>"
  end if
%></td></tr>
<tr><td height=1 background='images/bg_dian.gif' colspan=2></td></tr>
<tr id=review_word<%if rtt<>1 then response.write " style=""display:none;"""%>><td align=center colspan=2>
<table border=0 width='98%'>
<%
  sqlr="select top 10 rid,rusername,remail,rword,rtim,rtype,rface from review where rsort='"&rtsort&"' and re_id="&rtid&" order by rid desc"
  set rsr=conn.execute(sqlr)
  if rsr.eof and rsr.bof then
    response.write "<tr><td class=summary-title colspan=2>（没有相关评论）</td></tr>"
  else
    do while not rsr.eof
      rusername=rsr("rusername"):remail=rsr("remail"):rtype=int(rsr("rtype"))
      response.write vbcrlf&"<tr><td class=summary-title>姓名："
      if rtype=1 then
        response.write format_user_view(rusername,1,1)
      else
        response.write rusername
      end if
      if len(remail)>5 then
        response.write "&nbsp;&nbsp;E-mail：<a href='mailto:"&remail&"'>"&remail&"</a>"
      end if
      response.write "&nbsp;&nbsp;发表时间："&objv7.time_type(rsr("rtim"),88)
      if login_mode=objv7.format_power2(user_power,1,1) then
        response.write "&nbsp;&nbsp;&nbsp;<a href='review.asp?action=del&rsort="&rtsort&"&re_id="&rtid&"&rid="&rsr("rid")&"&rurl="&rturl&"'>删除这条评论</a>"
      end if
      response.write "</td></tr><tr><td><img src=images/rface/face"&rsr("rface")&".gif border=0>："&objv7.code_html(rsr("rword"),3,0)&"</td></tr><tr height=1><td></td></tr>"
      rsr.movenext
    loop
  end if
  rsr.close:set rsr=nothing
%>
</table>
</td></tr>
<tr><td height=2 ></td></tr>
<tr><td height=1 background='images/bg_dian.gif' colspan=2></td></tr>
<tr><td height=18 valign=bottom class="summary-title" colspan=2>&nbsp;&nbsp;→&nbsp;<a onclick="document.all.review_add.style.display=document.all.review_add.style.display=='none'?'':'none';return false;" href="javsscript:;">发表我的评论</a></td></tr>
<tr><td height=1 background='images/bg_dian.gif' colspan=2></td></tr>
<tr id=review_add valign=top><td align=center width=400>
<table border=0 width='100%' cellpadding=2 cellspacing=0 border=0 align=center>
<form action='review.asp' method=post>
<input type=hidden name=rsort value='<%response.write rtsort%>'>
<input type=hidden name=re_id value='<%response.write rtid%>'>
<input type=hidden name=rurl value='<%response.write rturl%>'>
<tr height=20><td>您的姓名：<input type=text name=rusername value='<%response.write login_username%>' size=16 maxlength=20>&nbsp;&nbsp;E-mail：<input type=text name=remail size=16 maxlength=20></td></tr>
<tr valign=top><td>
<input type="radio" name="face" value="1" checked="True"><img src=images/rface/face1.gif>
<input type="radio" name="face" value="2"><img src=images/rface/face2.gif>
<input type="radio" name="face" value="3"><img src=images/rface/face3.gif>
<input type="radio" name="face" value="4"><img src=images/rface/face4.gif>
<input type="radio" name="face" value="5"><img src=images/rface/face5.gif>
<input type="radio" name="face" value="6"><img src=images/rface/face6.gif>
<input type="radio" name="face" value="7"><img src=images/rface/face7.gif>
<input type="radio" name="face" value="8"><img src=images/rface/face8.gif>
<input type="radio" name="face" value="9"><img src=images/rface/face9.gif><br>
<input type="radio" name="face" value="10"><img src=images/rface/face10.gif>
<input type="radio" name="face" value="11"><img src=images/rface/face11.gif>
<input type="radio" name="face" value="12"><img src=images/rface/face12.gif>
<input type="radio" name="face" value="13"><img src=images/rface/face13.gif>
<input type="radio" name="face" value="14"><img src=images/rface/face14.gif>
<input type="radio" name="face" value="15"><img src=images/rface/face15.gif>
<input type="radio" name="face" value="16"><img src=images/rface/face16.gif>
<input type="radio" name="face" value="17"><img src=images/rface/face17.gif>
<input type="radio" name="face" value="18"><img src=images/rface/face18.gif><br></td></tr>
<tr valign=top><td>评论内容：<textarea rows=5 cols=40 name=rword></textarea></td></tr>
<tr height=30><td>发表评论：<input type=submit value='发表评论'>　　<input type=reset value='重新填写'></td></tr>
</form>
</table></td><td align=center>
<table border=0 width='100%' cellpadding=2 cellspacing=0 border=0>
<tr><td align=left>
<ul style="list-style-type:square;margin-left:1em;line-height:150%">
<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规
<li>承担一切因您的行为而直接或间接导致的民事或刑事法律责任
<li>本站管理人员有权保留或删除其管辖留言中的任意内容
<li>本站有权在网站内转载或引用您的评论
<li>参与本评论即表明您已经阅读并接受上述条款
</ul></td></tr></table></td></tr></table>
<%
  response.write admin_bar("",2,"100%")
end sub

sub font_word_js()
%>
<script language=JavaScript>
<!--
  function do_color(vobject,vvar)
  { document.getElementById(vobject).style.color=vvar; }
  function do_zooms(vobject,vvar)
  { document.getElementById(vobject).style.fontsize=vvar+'px'; }
-->
</script>
<%
end sub

sub font_word_action()
%>浏览选项：
<!--
<a href="javascript:;" onclick="javascript:do_zooms('font_word',16);">大</a>
<a href="javascript:;" onclick="javascript:do_zooms('font_word',14);">中</a>
<a href="javascript:;" onclick="javascript:do_zooms('font_word',12);">小</a>&nbsp;
-->
<select name=do_color_frm size=1 onchange="if(this.options[this.selectedIndex].value!=''){do_color('font_word',this.options[this.selectedIndex].value);}">
<option value=''>颜色</option>
<option value='#000000' style="color:#000000">默认</option>
<option value='#808080' style="color:#808080">灰度</option>
<option value='#808000' style="color:#808000">橄榄色</option>
<option value='#008000' style="color:#008000">绿色</option>
<option value='#0000FF' style="color:#0000FF">蓝色</option>
<option value='#800000' style="color:#800000">褐色</option>
<option value='#FF0000' style="color:#FF0000">红色</option>
</select>&nbsp;<%
end sub
' style="font-size:14px; line-height:150%;"
sub font_word_type(fvar)
%>
  <table border=0 cellpadding=0 cellspacing=0 width='100%'>
  <tr>
  <td width=22 height=1 background='images/main/view_line.gif'></td>
  <td bgcolor=#666666></td>
  <td width=1 rowspan=5 bgcolor=#666666></td>
  </tr>
  <tr><td width=22 height=5 background='images/main/view_b.gif'></td><td></td></tr>
  <tr>
  <td background='images/main/view_bg.gif'></td>
  <td align=center>
    <table border=0 width='98%' align=center class=tf>
    <tr><td width='100%' class=bw><font id="font_word" class=htd style="font-size:14px; font-family:宋体, Verdana, Arial, Helvetica, sans-serif;"><% response.write fvar %></font></td></tr>
    </table>
  </td>
  </tr>
  <tr><td width=22 height=5 background='images/main/view_b.gif'></td><td></td></tr>
  <tr>
  <td height=1 background='images/main/view_line.gif'></td>
  <td height=1 bgcolor=#666666></td>
  </tr>
  </table>
<%
end sub
%>