<%

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

'****************************************************特殊帖部分
function view_special_dispose(strremark)
  dim tmpdim,tmptrue,tmpstr
  dim tmp_data
  tmp_data=dim_topic(13,0)
  view_special_dispose=true
  if login_username<>"" then
    if lcase(login_username)=lcase(dim_topic(15,0)) or int(usergroup_config(19))=1 then
      view_special_dispose=false
      exit function
    end if
  end if
  tmptrue=false
  select case int(dim_topic(11,0))
  case 1	'购买贴
    if tmp_data="" or (instr(1,","&tmp_data&",",","&login_username&",",1)=0 and instr(1,","&tmp_data&"|",","&login_username&"|",1)=0) then
      tmpdim=split(dim_topic(12,0),",")
    	tmpstr=vbcrlf&"<table border=0 cellpadding=0 cellspacing=0>" &_
		vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" &_
		vbcrlf&"<tr><td class=hh>本贴为 <font class=red><b>购买贴</b></font>，购买本贴内容需：<br>" &_
		vbcrlf&"货币 <font class=red>"&tmpdim(1)&"</font> "&Cls.web_unit&"<br>积分 <font class=red>"&tmpdim(2)&"</font> 分<br>" &_
		vbcrlf&"在未审核前用户购买分值将记录在系统中，当审核后将直接计入到发贴人的帐户中。</td></tr>" &_
		vbcrlf&"<tr><td><img border=0 src='"&Cls.web_skindir&"Bbs/isspecial.gif' align=absmiddle>&nbsp;<a href='javascript:;' onclick=""javascript:open_win('pay.asp?id="&viewid&"','bbs_pay',200,392,'no');""><b>我要购买这个贴子</b></a>  <img border=0 src='"&Cls.web_skindir&"Bbs/isspecial.gif' align=absmiddle>&nbsp;<a href='javascript:;' onclick=""javascript:open_win('paylist.asp?id="&viewid&"','bbs_pay',300,220,'no');""><b>查看已购买用户列表</b></a></td></tr>" &_
		vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr></table> "
      strremark=tmpstr
    else
      view_special_dispose=false
    end if
  case 2	'可见贴
    if login_username<>"" then
      tmpdim=split(dim_topic(12,0),",")
      if tmp_data="" or instr(1,","&tmp_data&",",","&login_username&",",1)=0 then
        if int(login_emoney)>=int(tmpdim(1)) and int(login_integral)>=int(tmpdim(2)) and int(login_strength)>=int(tmpdim(3)) and int(login_expression)>=int(tmpdim(4)) and int(login_bbs_counter)>=int(tmpdim(5)) and int(User_OnlineTime)>=int(tmpdim(6)) then tmptrue=true
      else
        tmptrue=true
      end if
    end if
    if tmptrue then
      view_special_dispose=false
    else
      tmpdim=split(dim_topic(12,0),",")
    	tmpstr=vbcrlf&"<table border=0 cellpadding=0 cellspacing=0>" &_
		vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" &_
		vbcrlf&"<tr><td class=hh>本贴为 <font class=red><b>可见贴</b></font>，浏览本贴内容需：<br>" &_
		vbcrlf&"货币 <font class=red>"&tmpdim(1)&"</font> "&Cls.web_unit&"<br>积分 <font class=red>"&tmpdim(2)&"</font> 分<br>" &_
		vbcrlf&"体力 <font class=red>"&tmpdim(3)&"</font> 点<br>经验 <font class=red>"&tmpdim(4)&"</font> 点<br>" &_
		vbcrlf&"发贴 <font class=red>"&tmpdim(5)&"</font> 贴<br>在线 <font class=red>"&tmpdim(6)&"</font> 分钟" &_
		vbcrlf&"</td></tr><tr><td class=Gys>----------------------------------------</td></tr></table> "
      strremark=tmpstr
    end if
  case 3	'回复贴
    if tmp_data="" or instr(1,","&tmp_data&",",","&login_username&",",1)=0 then
    	tmpstr=vbcrlf&"<table border=0 cellpadding=0 cellspacing=0>" &_
		vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" &_
		vbcrlf&"<tr><td class=hh>本贴为 <font class=red><b>回复贴</b></font>，只有回复本贴的用户才可浏览本贴的主要内容。<br></td></tr>" &_
		vbcrlf&"</td></tr><tr><td class=Gys>----------------------------------------</td></tr></table> "
      strremark=tmpstr
    else
      view_special_dispose=false
    end if
  case 4	'指定贴
    if instr(1,","&tmp_data&",",","&login_username&",",1)=0 then
    	tmpstr=vbcrlf&"<table border=0 cellpadding=0 cellspacing=0>" &_
		vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr>" &_
		vbcrlf&"<tr><td class=hh>本贴为 <font class=red><b>指定贴</b></font>，只有指定用户才可浏览本贴的主要内容。<br></td></tr>" &_
		vbcrlf&"<tr><td>指定用户："&tmp_data&"</td></tr>" &_
		vbcrlf&"<tr><td class=Gys>----------------------------------------</td></tr></table> "
      strremark=tmpstr
    else
      view_special_dispose=false
    end if
  case else
    view_special_dispose=false
  end select
  if isarray(tmpdim) then erase tmpdim
end function

'****************************************************特殊帖部分
%>
