<!-- #Include File="Include/Config.asp" -->
<!-- #include file="Include/Con_bbs_Fir.asp" -->
<!-- #include file="Include/Con_bbs_Vote.asp" -->
<!-- #include file="Include/Con_bbs_Special.asp" -->
<!-- #include file="../Include/Cls_UbbCode.asp" -->
<%

'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit_fir=Cls.ChannelName
ftit="打印主题"
call bbs_first()
call bbs_list_load()
tit=ftit&" - "&dim_topic(1,0)
call DoWebHead(0,0)
Cls.LoadTemplate(4)
Response.write Cls.ReHtml(ShowWebHead(1),1)
call bbs_load_power()
'----------------------------中间 开始----------------------------
call bbs_print()
erase dim_topic
'----------------------------中间 结束----------------------------
call bbs_end()
Response.write Cls.ReHtml(ShowWebEnd(1),1)
Call DoWebEnd()
sub bbs_print()
  Response.Write vbcrlf&"<table cellspacing=1 cellpadding=2 class=bbs_table>" & _
                  vbcrlf&"<tr><td class=htd height=5>以文本方式查看&nbsp;</td><td align=right><a href='JavaScript:window.print();'><font class=red>〖打印本页〗</font></a></td></tr>" & _
                 vbcrlf&"<tr class=bbs_tr><td colspan=2 align=center><table border=0 cellspacing=0 cellpadding=2 width='99%'><tr><td class=htd>" & _
                 vbcrlf&"<b>标题："&Cls.code_html(dim_topic(1,0),1,0)&"</b><br><br>" & _
                 vbcrlf&"-&nbsp;&nbsp;<b>"&Cls.web_name&"</b>&nbsp;&nbsp;("&Cls.web_url&")<br>" & _
                 vbcrlf&"--&nbsp;&nbsp;<b>"&tit_fir&"</b>&nbsp;&nbsp;("&Cls.web_urls&"Index.asp)<br>" & _
                 vbcrlf&"---&nbsp;&nbsp;<b>"&bbs_data(2)&"</b>&nbsp;&nbsp;("&Cls.web_urls&"list.asp?fid="&Bbsid&")<br>" & _
                 vbcrlf&"----&nbsp;&nbsp;<b>"&Cls.code_html(dim_topic(1,0),1,0)&"</b>" & _
                 vbcrlf&"&nbsp;&nbsp;&nbsp;&nbsp;("&Cls.web_urls&"view.asp?fid="&Bbsid&"&id="&viewid&")<br>" & _
                 vbcrlf&"</td></tr></table></td></tr>"
  if dim_topic(7,0)=true then
    Response.Write vbcrlf&"<tr class=bbs_tr><td  align=center>"
    call bbs_vote_print()
    Response.Write vbcrlf&"</td></tr>"
  end if
  dim dim_data,i
  dim tmpisfirst,tmpisspecial,tmpremark
  if sqltype = 1 then
	 sql="execute AsaiMHBbs_print "&viewid&",'"&dim_topic(10,0)&"'"
  else
     sql="select d.id,d.username,d.topic,d.word,d.tim,d.is_shield,u.ispb from "&dim_topic(10,0)&" 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 not rs.eof then
    dim_data=rs.getrows()
  end if
  rs.close
  for i=0 to ubound(dim_data,2)
	tmpremark=Ubb.Ubbcode(dim_data(3,i))
    '//这里还需要修改的
   'if int(bbs_config(28))=1 and Is_LoginTrue=false and i=0 then
    '    tmpremark="<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(6,i) = true then
        tmpremark="<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(5,i)=true then
	      tmpremark="<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 i=0 and Is_LoginTrue=false and int(dim_topic(6,0))=1 then 
          tmpremark="<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
          tmpisfirst=false
          tmpisspecial=false
	      if int(dim_topic(11,0))>0 and i=0 then tmpisfirst=true
	      if tmpisfirst then tmpisspecial=view_special_dispose(tmpremark)	
          if tmpisspecial=true then
            tmpremark=tmpremark&Ubb.Ubbcode(dim_topic(14,0))
          end if
		  end if
		end if
      end if
     'end if
    Response.Write vbcrlf&"<tr  class=bbs_tr><td  colspan=2 align=center><table border=0 cellspacing=0 cellpadding=0 width='99%'><tr><td>" & _
                   vbcrlf&"--&nbsp;&nbsp;作者：<b>"&dim_data(1,i)&"</b><br>" & _
                   vbcrlf&"--&nbsp;&nbsp;时间：<font class=Gys>"&dim_data(4,i)&"</font><br>" & _
                   vbcrlf&"--&nbsp;&nbsp;<b>"&Cls.code_html(dim_data(2,i),1,0)&"</b></td></tr>" & _
                   vbcrlf&"<tr><td>" & _
                   vbcrlf& tmpremark & _
                   vbcrlf&"</td></tr></table></td></tr>"
  next
  if isarray(dim_data) then erase dim_data
  Response.write vbcrlf&"<tr class=bbs_tr><td colspan=2>"
  call web_copy()
  Response.write vbcrlf&"</td></tr>"
  Response.write vbcrlf&"</table>"
end sub
%>
