<!-- #Include File="Include/Config.asp" -->
<!-- #include file="Include/Con_bbs_Fir.asp" -->
<!-- #include file="Include/Con_bbs_Vote.asp" -->
<!-- #include file="Include/Con_bbs_Post.asp" -->
<!-- #include file="Include/Con_bbs_Special.asp" -->
<!-- #include file="../Include/Cls_UbbCode.asp" -->
<!-- #Include File="../Include/Cls_IpSys.asp" -->
<!-- #Include File="../Include/Cls_PageCute.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit_fir=Cls.ChannelName
dim is_recycle,now_bbs_data
is_recycle=false
call bbs_view_load()
ftit=Cls.code_html(dim_topic(1,0),1,0)
call bbs_first()
call word_size_load()
call DoWebHead(0,0)
if is_recycle=true then
  if Is_LoginTrue=false then call bbs_redirect("list.asp?fid="&Bbsid)
  if int(login_modep)=false then call bbs_redirect("list.asp?fid="&Bbsid)
end if
call bbs_load_power()
'----------------------------中间 开始----------------------------
'Response.Write Cls.js_put("../style/bbs_Ads.js",0)
'Response.Write Cls.js_put("../style/bbs_Ads_Function.js",0)
call bbs_grade(0)
call bbs_top(1,dim_topic(2,0))

if dim_topic(7,0)=true then
end if
tit=Cls.code_html(tit,1,0)
  HtmlContent = Cls.ReadTemplate("view") 
  HtmlContent = LoadWebHead(HtmlContent)
  HtmlContent = LoadWebEnd(HtmlContent)
  HtmlContent = Replace(HtmlContent,"{$BbsGrade}",bbs_grade(0))
  HtmlContent = Replace(HtmlContent,"{$BbsTopBar}",bbs_top(1,dim_topic(2,0)))
  if dim_topic(7,0)=true then
  HtmlContent = Replace(HtmlContent,"{$BbsVote}",bbs_vote_type()&ukong) 
  else
  HtmlContent = Replace(HtmlContent,"{$BbsVote}","") 
  end if
  HtmlContent = bbs_view(HtmlContent)
  HtmlContent = Replace(HtmlContent,"{$BbsReply}",bbs_view_reply())
  Response.Write Cls.ReHtml(HtmlContent,0)
'----------------------------中间 结束----------------------------
call bbs_end()
call DoWebEnd()
sub bbs_view_load()
  call bbs_list_load()
  tit=dim_topic(1,0)
  now_bbs_data=dim_topic(10,0)
  if Cls.code_query("recycle")="yes" then
    Bbsid=dim_topic(9,0)
    is_recycle=true
  else
    Bbsid=dim_topic(0,0)
  end if
  pageurl="?id="&viewid&"&"
  if is_recycle=true then pageurl=pageurl&"recycle=yes&"
end sub
function bbs_view(LHtmlStr)
  dim tmp1,dim_data,dim_data_num,tmp_remark,tmp_tim,tmp_isaction,u_ispb,u_nname,u_email,u_qq,u_url,c_url,ggao,copy,content
    c_url=Cls.Web_Dir&"Common/commend.asp?ntit="&server.urlencode(bbs_data(2))&"&topic="&server.urlencode(dim_topic(1,0))&"&url="&server.urlencode(Cls.web_urls&"view.asp?id="&viewid)
    Dim ListHtmlStr,TrHtml,HtmlStr,ViewHtml
    ListHtmlStr=LHtmlStr
    TrHtml = Cls.CutFixContent(ListHtmlStr, "[Repeat]" , "[/Repeat]", 0)
    ListHtmlStr = Replace(ListHtmlStr,"{$vtopic}",ftit)
    ListHtmlStr = Replace(ListHtmlStr,"{$vtit}",tit)
    ListHtmlStr = Replace(ListHtmlStr,"{$vtopic_url}",Cls.web_urls&"view.asp?fid="&Bbsid&"&id="&viewid)
    ListHtmlStr = Replace(ListHtmlStr,"{$vreport_url}",Cls.web_urls&"report.asp?fid="&Bbsid&"&id="&viewid)
    ListHtmlStr = Replace(ListHtmlStr,"{$vprint_url}",Cls.web_urls&"print.asp?fid="&Bbsid&"&id="&viewid)
    ListHtmlStr = Replace(ListHtmlStr,"{$vcommend_url}",c_url)
  dim obj_page
  set obj_page=new Cls_PageCute
  obj_page.pageurl=pageurl
  obj_page.nummer=bbs_config(4)
  obj_page.page_t=1
  obj_page.page_p=5
  obj_page.page_unit="篇"
  obj_page.page_tit="帖子"
  obj_page.v_id="id"
  call obj_page.p_init("id,topic,icon,word,tim,ip,sys,username",now_bbs_data,"reply_id="&viewid,"id")
  sql=obj_page.sql_count
  set rs=Cls.exec(sql,1)
  obj_page.rssum=rs(0)
  rs.close
  if int(dim_topic(3,0))<>int(obj_page.rssum-1) then call Cls.exec("update AsaiMHBbsTopic set re_counter="&(obj_page.rssum-1)&" where id="&viewid,0)
  call obj_page.p_info()
    dim tmp_table_tr,tmp_usersex,tmp_userface,tmp_userpowergrade,tmp_userip,tmp_del,tmp_shield,tmp_name,buy
    dim_data_num=-1
	if sqltype = 1 then
	   sql="execute AsaiMHBbs_view "&viewid&",'"&now_bbs_data&"'"
	else
       sql="select d.id,d.topic,d.icon,d.word,d.tim,d.ip,d.sys,u.username,u.nname,u.sex,u.whe,u.qq,u.email,u.url,u.face,u.face_w,u.face_h,u.tim as u_tim,u.remark,u.emoney,u.integral,u.power,u.last_tim,u.bbs_counter,u.ispb,u.onlinetime,u.medal,d.is_shield,u.strength,u.expression,d.rap,u.id,u.login_num,u.birthday from "&now_bbs_data&" d,AsaiMHUserData u where u.id=d.userid and d.reply_id="&viewid&" order by d.id"
    end if
	call Cls.exe_conn(rs,sql,1)
    if obj_page.viewpage>1 then rs.move obj_page.page_now
    if not rs.eof then
      dim_data=rs.getrows(obj_page.page_num)
      dim_data_num=ubound(dim_data,2)
    end if
    rs.close
    for i=0 to dim_data_num
      u_ispb=dim_data(24,i)
      u_nname=dim_data(8,i)
      if Cls.Is_Null(u_nname)<>"" then u_nname="<b><font class=red2>"&u_nname&"</font></b>"
      u_email=""
      u_qq=""
      u_url=""
	  '复制本贴和字体大小
	  copy="<a href=""javascript:;"" onclick=""javascript:if(CopyText(window.location.toString())){alert('已复制本主题地址！')};"" class='blue'>复制本帖</a>"
	  content="<a href=""javascript:;"" onclick=""javascript:SetFontSize(12,'"&obj_page.page_now+i+1&"');"" title='12号字' class='blue'>小</a> <a href=""javascript:;"" onclick=""javascript:SetFontSize(14,'"&obj_page.page_now+i+1&"');"" title='14号字' class='blue'>中</a> <a href=""javascript:;"" onclick=""javascript:SetFontSize(16,'"&obj_page.page_now+i+1&"');"" title='16号字' class='blue'>大</a>"
	  
      if int(bbs_config(17))=1 and int(UserGroup_Config(0))=1 then
        u_email="<a target=_blank href='mailto:"&dim_data(12,i)&"'><img src='"&Cls.web_skindir&"Bbs/bbs_email.gif' title='给 "&dim_data(7,i)&" 发邮件' border=0></a>"
        if dim_data(11,i)<>0 and dim_data(11,i)<>"" then u_qq="<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&dim_data(11,i)&"' target=_blank><img src='"&Cls.web_skindir&"Bbs/bbs_qq.gif' title='"&dim_data(7,i)&" 的QQ是："&dim_data(11,i)&"' border=0></a>"
        if dim_data(13,i)<>"" then u_url="<a href='"&dim_data(13,i)&"' target=_blank><img src='"&Cls.web_skindir&"Bbs/bbs_url.gif' title='访问 "&dim_data(7,i)&" 的主页' border=0></a>"
      end if
	  '---------------评分-------------------
      dim tmp_pf,pydata,pydata1,pydata2,py_num,pii,pingfeng
	  pingfeng=""
	  pydata1=""
	  pydata2=""
	  if dim_data(30,i)<>"" then
	  pydata=Split(dim_data(30,i),"||||")
	  py_num=Ubound(pydata)
	  for pii=0 to py_num
	  if pii>4 then
	  pydata2=pydata2&pydata(pii)
	  else
	  pydata1=pydata1&pydata(pii)
	  end if
	  next
      Erase pydata
	  pingfeng="<br /><br /><fieldset><legend align=left id=pfhead>共有&nbsp;<font class=red>"&py_num&"</font>&nbsp;条评分记录&nbsp;&nbsp;<a onclick=""if(document.all.pfview2_"&i&".style.display=='none'){if(document.all.pfview1_"&i&".style.display=='none') pfview1_"&i&".style.display='';pfview2_"&i&".style.display=''}else{pfview1_"&i&".style.display='none';pfview2_"&i&".style.display='none';}"";"" href=""javascript:void(0);"">点击查看全部</a></legend><span id=pfview1_"&i&">"&pydata1&"</span><span id=pfview2_"&i&" style='display:none'>"&pydata2&"</span></fieldset>"
	  end if
	  '--------------------帖子内容------------------------
	  Ubb.ShowXhtml=true
      tmp_remark=Ubb.Ubbcode(dim_data(3,i))&pingfeng
	  Ubb.ShowXhtml=false
	  '//这里还需要修改
  ' if int(bbs_config(28))=1 and Is_LoginTrue=false and obj_page.page_now+i+1=1 then
   '     tmp_remark="<table border=0>" & _
   '           vbcrlf&"<tr><td class=Gys>--------------------------------------</td></tr>" & _
  '            vbcrlf&"<tr><td class=htd>本贴子须要 <a href='{$web_dir}user/login.asp?old_url=back'><font class=red2><b>登陆</b></font></a> 才可以浏览贴子内容！</td></tr>" & _
    '          vbcrlf&"<tr><td class=Gys>--------------------------------------</td></tr>" & _
    '          vbcrlf&"</td></tr></table>"
   '   else
      if u_ispb = true then
        tmp_remark="<table border=0>" & _
              vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" & _
              vbcrlf&"<tr><td class=htd><font class=red2><b>该用户的论坛发言已被系统屏蔽！</b></font></td></tr>" & _
              vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" & _
              vbcrlf&"</td></tr></table>"
      else
	      if dim_data(27,i)=true then
	      tmp_remark="<table border=0>" & _
              vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" & _
              vbcrlf&"<tr><td class=htd><font class=red2><b>该贴已被管理员单贴屏蔽！</b></font></td></tr>" & _
              vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" & _
              vbcrlf&"</td></tr></table>"
	      else
		  if obj_page.page_now+i+1=1 and Is_LoginTrue=false and int(dim_topic(6,0))=1 then 
          tmp_remark="<table border=0>" & _ 
              vbcrlf&"<tr><td class=Gys>-------------------------------------</td></tr>" & _ 
              vbcrlf&"<tr><td class=htd><font class=red2><b>对不起，精华贴需要登陆后才可浏览！</b></font></td></tr>" & _ 
              vbcrlf&"<tr><td class=Gys>-------------------------------------</td></tr>" & _ 
              vbcrlf&"</td></tr></table>" 
          else
         '------------------特殊贴处理------------------------
          dim tmpisfirst,tmpisspecial
          tmpisfirst=false
          tmpisspecial=false
	        if int(dim_topic(11,0))>0 and obj_page.page_now+i+1=1 then tmpisfirst=true
	        if tmpisfirst then tmpisspecial=view_special_dispose(tmp_remark)	
          if tmpisspecial=true then
            tmp_remark=tmp_remark&Ubb.Ubbcode(dim_topic(14,0))
          end if
		  end if
		    end if
         end if
   '   end if
    '-----------------背景显示精华和锁定图 开始-------------------
      dim tmp_fir
	  if obj_page.viewpage=1 and int(dim_topic(6,0))=1 then tmp_fir=tmp_fir&"<div style='right: 120px; WIDTH: 0px; POSITION: absolute; TOP: 356px; HEIGHT: 0px'><img border=0 src='"&cls.web_skindir&"Bbs/bbs_isgood.gif' width=123 height=104 border=0></div>" 
      if obj_page.viewpage=1 and int(dim_topic(4,0))=1 then tmp_fir=tmp_fir&"<div style='right: 120px; WIDTH: 0px; POSITION: absolute; TOP: 356px; HEIGHT: 0px'><img border=0 src='"&cls.web_skindir&"Bbs/bbs_islock.gif' width=123 height=104 border=0></div>" 
	    tmp_remark=tmp_remark&tmp_fir
      '----------------------------------------------------
      if i mod 2 =0 then
        tmp_table_tr="class=bbs_tr_list1"
      else
        tmp_table_tr="class=bbs_tr_list2"
      end if
      tmp_usersex=bbs_user_sex(dim_data(9,i),dim_data(22,i))
	  '------------------显示论坛星座、博客圈和精华数------------------
	  dim tmp_userstar,tmp_userblog,tmp_userisgood
	  tmp_userstar=bbs_user_star(dim_data(32,i),"")
	  tmp_userblog=bbs_user_blog(dim_data(7,i))
	  tmp_userisgood=bbs_user_isgood(dim_data(7,i))

      tmp_userface="<img src='"&dim_data(14,i)&"' border=0 width="&dim_data(15,i)&" height="&dim_data(16,i)&">"
      tmp_userpowergrade=bbs_power_grade(dim_data(21,i),dim_data(23,i),dim_data(20,i),dim_data(29,i))
      tmp_userip=ip_types(dim_data(5,i))
	 ' tmp_userip=dim_data(5,i)
      tmp_tim=Cls.time_type(dim_data(4,i),1)
      '------------------显示登陆次数------------------ 
      dim login_num 
	  login_num=dim_data(32,i)+1
	  '------------------用户在线排名------------------ 
      dim tmp_online 
      sql="select count(id) from AsaiMHUserdata where onlinetime>"&dim_data(25,i) 
      set rs=Cls.exec(sql,1) 
      if not rs.eof then tmp_online=rs(0)+1 
      rs.close 
      '------------------用户勋章和来自哪里------------------
      Dim tmp_usermedalgrade,tmp_where
	    tmp_usermedalgrade=""
		tmp_where=""
	    If dim_data(26,i)<>"" Then tmp_usermedalgrade="<tr><td valign=top>勋章："&bbs_Medal_Grade(dim_data(26,i))&"</td></tr>"
	    If dim_data(10,i)<>"" Then tmp_where="<tr><td>来自："&dim_data(10,i)&"</td></tr>"
	  '------------------用户名称光圈------------------
	  Dim UserGlowColor,UserFontColor
      UserGlowColor=bbs_UserName_Color(dim_data(21,i),1)
      UserFontColor=bbs_UserName_Color(dim_data(21,i),0)
	    tmp_name="<font class=red2>"&bbs_PowerName(dim_data(21,i))&"</font>"
      If  Is_Super=true then
      if obj_page.page_now+i+1=1 then
	  tmp_del="<a href='Dispose.asp?fid="&Bbsid&"&sel_id="&viewid&"&action=delete'><img src='"&Cls.web_skindir&"Bbs/bbs_del.gif' align=absMiddle border=0 title='删除主题'></a>"
	  else
	  tmp_del="<a href='Dispose.asp?fid="&Bbsid&"&sel_id="&viewid&"&re_id="&dim_data(0,i)&"&action=del'><img src='"&Cls.web_skindir&"Bbs/bbs_del.gif' align=absMiddle border=0 title='删除单贴'></a>"
	  end if
	    if dim_data(27,i)=0 then
	      tmp_shield="<a href='Dispose.asp?fid="&Bbsid&"&sel_id="&viewid&"&re_id="&dim_data(0,i)&"&action=isshield'><img src='"&Cls.web_skindir&"Bbs/isshield.gif' align=absMiddle border=0 title='单贴屏蔽'></a>"
	    else
	      tmp_shield="<a href='Dispose.asp?fid="&Bbsid&"&sel_id="&viewid&"&re_id="&dim_data(0,i)&"&action=unshield'><img src='"&Cls.web_skindir&"Bbs/unshield.gif' align=absMiddle border=0 title='解除屏蔽'></a>"
      end if
	  if obj_page.page_now+i+1=1 then
	  tmp_pf="<a href='Dispose.asp?fid="&Bbsid&"&sel_id="&viewid&"&action=rap'><img src='"&Cls.web_skindir&"Bbs/bbs_pf.gif' align=absMiddle border=0 title='奖惩主题'></a>"
	  else
	  tmp_pf="<a href='Dispose.asp?fid="&Bbsid&"&sel_id="&viewid&"&re_id="&dim_data(0,i)&"&action=raps'><img src='"&Cls.web_skindir&"Bbs/bbs_pf.gif' align=absMiddle border=0 title='奖惩单贴'></a>"
	  end if
	  Else
	  tmp_isaction=""
	  tmp_shield=""
	  End if
	  ggao=""
      if obj_page.page_now+i+1=1 then ggao=""&Cls.js_put(""&Cls.web_dir&"Ads/BbsViewLayer1.js",0)&""   '一楼广告位
      if obj_page.page_now+i+1=2 then ggao=""&Cls.js_put(""&Cls.web_dir&"Ads/BbsViewLayer2.js",0)&""   '二楼广告位
      if obj_page.page_now+i+1=3 then ggao=""&Cls.js_put(""&Cls.web_dir&"Ads/BbsViewLayer3.js",0)&""   '三楼广告位

	  dim ip_url
	  ip_url=Cls.Web_Dir&"Include/ip_address.asp?ip="&tmp_userip
	  if login_modep=0 then ip_url="#"
	  buy=""
      if int(dim_topic(11,0))=1 and obj_page.page_now+i+1=1 then buy="<a href='pay.asp?id="&viewid&"' target=_blank><img src='"&Cls.web_skindir&"Bbs/bbs_buy.gif' title='查看已购买用户' border=0></a>"
      HtmlStr=TrHtml
      HtmlStr = Replace(HtmlStr,"{$table_tr}",tmp_table_tr)
      HtmlStr = Replace(HtmlStr,"{$username}",dim_data(7,i))
      HtmlStr = Replace(HtmlStr,"{$username_url}",Cls.Web_Dir&"User/view.asp?username="&server.urlencode(dim_data(7,i)))
      HtmlStr = Replace(HtmlStr,"{$friend_url}",Cls.Web_Dir&"User/friend.asp?action=add&add_username="&server.urlencode(dim_data(7,i)))
      HtmlStr = Replace(HtmlStr,"{$mail_url}",Cls.Web_Dir&"User/mail.asp?action=msg_write&accept="&server.urlencode(dim_data(7,i)))
      HtmlStr = Replace(HtmlStr,"{$edit_url}",Cls.web_urls&"edit.asp?fid="&Bbsid&"&id="&viewid&"&eid="&dim_data(0,i))
      HtmlStr = Replace(HtmlStr,"{$reply_url}",Cls.web_urls&"reply.asp?fid="&Bbsid&"&id="&viewid&"&rid="&dim_data(0,i)&"&quote=yes")
      HtmlStr = Replace(HtmlStr,"{$ip_url}",ip_url)
      HtmlStr = Replace(HtmlStr,"{$user_sex}",tmp_usersex)
      HtmlStr = Replace(HtmlStr,"{$user_face}",tmp_userface)
      HtmlStr = Replace(HtmlStr,"{$user_power_grade}",tmp_userpowergrade)
      HtmlStr = Replace(HtmlStr,"{$glowcolor}",UserGlowColor)
      HtmlStr = Replace(HtmlStr,"{$fontcolor}",UserFontColor)
      HtmlStr = Replace(HtmlStr,"{$user_nname}",Cls.Is_Null(u_nname))
      HtmlStr = Replace(HtmlStr,"{$user_medal}",tmp_usermedalgrade)
      HtmlStr = Replace(HtmlStr,"{$user_bbs_counter}",dim_data(23,i))
      HtmlStr = Replace(HtmlStr,"{$user_power}",tmp_name)
      HtmlStr = Replace(HtmlStr,"{$user_rank}",Rank_Img(dim_data(25,i),0))
      HtmlStr = Replace(HtmlStr,"{$user_integral}",dim_data(20,i))
      HtmlStr = Replace(HtmlStr,"{$user_emoney}",dim_data(19,i))
      HtmlStr = Replace(HtmlStr,"{$user_strength}",dim_data(28,i))
      HtmlStr = Replace(HtmlStr,"{$user_expression}",dim_data(29,i))
      HtmlStr = Replace(HtmlStr,"{$user_mail}",dim_data(12,i))
      HtmlStr = Replace(HtmlStr,"{$user_tim}",Cls.time_type(dim_data(17,i),4))
      HtmlStr = Replace(HtmlStr,"{$user_remark}",Ubb.Ubbcode(dim_data(18,i)))
      HtmlStr = Replace(HtmlStr,"{$user_email}",u_email)
      HtmlStr = Replace(HtmlStr,"{$user_qq}",u_qq)
      HtmlStr = Replace(HtmlStr,"{$user_buy}",buy)
      HtmlStr = Replace(HtmlStr,"{$user_url}",u_url)
      HtmlStr = Replace(HtmlStr,"{$floor}",obj_page.page_now+i+1)
      HtmlStr = Replace(HtmlStr,"{$isaction}",tmp_del)
      HtmlStr = Replace(HtmlStr,"{$ispf}",tmp_pf)
      HtmlStr = Replace(HtmlStr,"{$ggao}",ggao)
      HtmlStr = Replace(HtmlStr,"{$icon}",dim_data(2,i))
      HtmlStr = Replace(HtmlStr,"{$topic}",Cls.code_html(dim_data(1,i),1,0))
      HtmlStr = Replace(HtmlStr,"{$ip}",tmp_userip)
      HtmlStr = Replace(HtmlStr,"{$sys}",view_sys(dim_data(6,i),0))
      HtmlStr = Replace(HtmlStr,"{$remark}",tmp_remark)
      HtmlStr = Replace(HtmlStr,"{$tim}",left(Cls.time_type(dim_data(4,i),1),16))
      HtmlStr = Replace(HtmlStr,"{$tims}",Cls.time_type(dim_data(4,i),11))
      HtmlStr = Replace(HtmlStr,"{$ads_rand}",Cls.js_put("document.write (ads_txt_type("&Cls.rand_num(2)&",1));",1))
      HtmlStr = Replace(HtmlStr,"{$bbs_del}",tmp_del)
      HtmlStr = Replace(HtmlStr,"{$bbs_shield}",tmp_shield)
      HtmlStr = Replace(HtmlStr,"{$web_unit}",Cls.web_unit)
      '------------------- 新增标签 ------------------------
	  HtmlStr = Replace(HtmlStr,"{$user_id}",dim_data(31,i))
	  HtmlStr = Replace(HtmlStr,"{$user_where}",tmp_where)
      HtmlStr = Replace(HtmlStr,"{$tmp_Bbsuserhoroscope}",tmp_userstar)
      HtmlStr = Replace(HtmlStr,"{$user_blog}",tmp_userblog)
      HtmlStr = Replace(HtmlStr,"{$user_isgood}",tmp_userisgood)
      HtmlStr = Replace(HtmlStr,"{$user_online}",tmp_online)
	  HtmlStr = Replace(HtmlStr,"{$login_num}",login_num)
	  HtmlStr = Replace(HtmlStr,"{$copy}",copy)
	  HtmlStr = Replace(HtmlStr,"{$content}",content)
	  ViewHtml = ViewHtml & HtmlStr
  Next
  If isarray(dim_data) Then Erase dim_data
  tmp1=tmp1&vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td><table border=0 cellspacing=0 cellpadding=1><tr><td>"&obj_page.page_var&"</td><td width=5></td><td>分页：</td><td>"&obj_page.page_cute&"</td><td width=5></td>"&obj_page.page_shortcut&"</tr></table></td><td align=right><table border=0><tr>    <td>状态："&base_bbs_isview(dim_topic(7,0),dim_topic(4,0),dim_topic(3,0),dim_topic(5,0),dim_topic(6,0))&"</td><td width=5></td><td align=right>"&bbs_manage()&"</td></tr></table></td></tr></table>"
  ListHtmlStr = Replace(ListHtmlStr,"[Repeat]"&TrHtml&"[/Repeat]",ViewHtml)
  ListHtmlStr = Replace(ListHtmlStr,"{$viewend}",tmp1)
  set obj_page=nothing
  call Cls.exec("update AsaiMHBbsTopic set counter=counter+1 where id="&viewid,0)
  bbs_view = ListHtmlStr
End Function

function bbs_view_reply()
  dim tmp1
  if Is_LoginTrue=false then exit function
  if tmp1="" and int(dim_topic(4,0))=1 then exit function
  if tmp1="" then
    tmp1=bbs_post_head(0,0)&vbcrlf&"<form name=frm_post action='reply.asp?fid="&Bbsid&"&id="&viewid&"&rid="&viewid&"' method=post onsubmit=""javascript:frm_submitonce(this);""><input type=hidden name=chk value='yes'><input type=hidden name=upid value=''>" & _
	vbcrlf&"<tr class=bbs_tr><td width='120'>用户信息：</td><td>&nbsp;<b>"&format_user_name(login_username,0,0)&"</b>&nbsp;&nbsp;您现在有&nbsp;<font class=red><b>"&login_emoney&" </b></font>"&Cls.Web_Unit&",&nbsp;<font class=red><b>"&login_integral&"</b></font>&nbsp;积分,&nbsp;<font class=red><b>"&login_strength&"</b></font>&nbsp;点体力,&nbsp;<font class=red><b>"&login_expression&"</b></font>点经验&nbsp;<font class=Gys>[<a href='"&Cls.Web_Dir&"user/index.asp'>用户中心</a>]&nbsp;</font></td></tr>"&_
         vbcrlf&bbs_GetCode()& _
         vbcrlf&"<tr class=bbs_tr><td width='120' class=s>当前心情：</td><td class=s>"&LoadIcon(0)&"</td></td></tr>" & _
         vbcrlf&"<tr class=bbs_tr><td class=s valign=top>贴子内容：<br /><br />[<a href='javascript:;'  onclick=""post_check_length('frm_post','AsaiMHword',"&word_size_max&")"">字数检查</a>]</td><td class=s>"&LoadNewEditor("frm_post","AsaiMHword","")&"</td></tr>" & _
         vbcrlf&bbs_post_end(0)
  end if
  bbs_view_reply = vbcrlf&"<table cellspacing=1 cellpadding=4 class=bbs_table>" & _
         vbcrlf&"<tr><td class=bbs_td colspan=2> 快速回复："&ftit&"</td></tr>" & _
         vbcrlf&tmp1&"</table>"
end function
function bbs_manage()
  dim tmp1
  if is_super=false then 
  tmp1="论坛跳转："&bbs_select()&""
  else
    tmp1=vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0>" & _
       vbcrlf&"  <form name=del_frm action='dispose.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
       vbcrlf&"  <input type=hidden name=fid value='"&Bbsid&"'>" & _
       vbcrlf&"  <input type=hidden name=sel_id value='"&viewid&"'>" & _
       vbcrlf&"  <tr>" & _
       vbcrlf&"  <td>管理操作：</td>" & _
       vbcrlf&"  <td><select name=action size=1 class=sel>" & _
       vbcrlf&"  <option value='revert' selected>还原</option>" & _
       vbcrlf&"  <option value='restore'>修复</option>" & _
       vbcrlf&"  <option value='rap'>奖惩</option>" & _
       vbcrlf&"  <option value='istop'>固顶</option>" 
if int(login_modep)=1 or int(login_modep)=2 then
       tmp1=tmp1&vbcrlf&"  <option value='move'>转移</option>" & _
       vbcrlf&"  <option value='istopz'>区固顶</option>" & _
       vbcrlf&"  <option value='istops'>总固顶</option>" 
end if
       tmp1=tmp1&vbcrlf&"  <option value='isgood'>精华</option>" & _
       vbcrlf&"  <option value='islock'>锁定</option>" & _
       vbcrlf&"  <option value='delete'>删除</option>" & _
       vbcrlf&"  </select></td>" & _
       vbcrlf&"  <td width=5></td>" & _
       vbcrlf&"  <td><input class=btn type=submit value='执行操作' onclick=""javascript:return click_return('执行该操作',2);""></td>" & _
       vbcrlf&"  </tr>" & _
       vbcrlf&"  </form>" & _
       vbcrlf&"  </table>"
  end if
  bbs_manage=tmp1
end function
%>
