<!-- #Include File="Include/Config.asp" -->
<%

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

tit_fir=Cls.ChannelName
call bbs_list_load()
tit="已购买用户列表 - "&dim_topic(1,0)
If login_mode="" Then
  Call Cls.Out_Msg("您现在还没有登陆本站！\n\n请先注册并登陆本站。","javascript:window.close()")
End If

Call DoWebHead(0,0)
Cls.LoadTemplate(4)
Response.write Cls.ReHtml(ShowWebHead(1),0)
'---------------------------- 开始----------------------------
response.write vbcrlf&"<table border=0 cellspacing=1 cellpadding=2 class=bbs_tables>" & _
               vbcrlf&"<tr valign=top><td align=center>"
call pay_special_buyed()
response.write vbcrlf&"</td></tr>" & _
               vbcrlf&"<tr valign=top><td align=center>" & _
               vbcrlf&"<input type=button class=btn value='关闭窗口' onclick=""javascript:self.close();"">" & _
               vbcrlf&"</td></tr>" & _
               vbcrlf&"</table>"
'---------------------------- 结束----------------------------
Response.write Cls.ReHtml(ShowWebEnd(1),0)
Call DoWebEnd()

sub pay_special_buyed()
  dim tmpdim,tmpdim2,tmpnum,n
  tmpnum=0
  tmpdim=split(dim_topic(13,0),",")
  if dim_topic(13,0)<>"" then tmpnum=ubound(tmpdim)+1
%>
<table cellspacing=1 cellpadding=4 class=bbs_tables>
<tr><td class=bbs_td colspan=2>已购买用户信息(共<%=tmpnum%>人)</td></tr>
<tr class=bbs_trp align=center>
<td width='40%'>购买用户</td>
<td width='60%'>购买时间</td>
</tr>
<%
  for n=0 to ubound(tmpdim)
    if instr(tmpdim(n),"|")=0 then tmpdim(n)=tmpdim(n)&"|"
    tmpdim2=split(tmpdim(n),"|")
%>
<tr  class=bbs_trt align=center>
<td><%=format_user_name(tmpdim2(0),0,"")%></td>
<td><%
    if tmpdim2(1)="" then
      response.write "<font class=Gys>非限制用户</font>"
    else
      response.write "<font class=tims>"&Cls.time_type(tmpdim2(1),3)&"</font>"
    end if
%></td></tr>
<%
  next
%>
</table>
<%
  'response.write ukong
  if isarray(tmpdim2) then erase tmpdim2
  erase tmpdim
end sub
%>
