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

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

tit_fir=Cls.ChannelName
tit="版主评定"
call DoWebHead(0,0)
'----------------------------中间 开始----------------------------
dim Ndate,SQL_W,rs_w,counter,stat,Bbsname,article,tmp1
tmp1=vbcrlf&"<tr align=center class=bbs_tr height=30><td>" & _
vbcrlf&"<table cellpadding=1 cellspacing=1 class=table>" & _
vbcrlf&"<tr align=center class=bbs_tre height=30>" & _
vbcrlf&"<td width='12%'>斑竹姓名</td>" & _
vbcrlf&"<td width='22%'>最后登陆时间</td>" & _
vbcrlf&"<td width='10%'>帖子数</td>" & _
vbcrlf&"<td width='10%'>失踪天数</td>" & _
vbcrlf&"<td width='25%'>担任版块</td>" & _
vbcrlf&"<td width='21%'>评定结果</td>" & _
vbcrlf&"</tr>"
counter=0
dim fp,k
SQL="select bbs_id,bbs_name,bbs_power from AsaiMHBbsClass "
set rs=Cls.exec(SQL,1)
do while not rs.eof
  fp=rs("bbs_power")
  Bbsid=rs("bbs_id")
  Bbsname=rs("bbs_name")
  fp=split(fp, "|")
  for k=0 to ubound(fp)
    SQL_W="select * from AsaiMHUserData where username='"&fp(k)&"'"
    set rs_w=Cls.exec(SQL_W,1)
    if isdate(rs_w("last_tim")) then
    Ndate=DateDiff("d",rs_w("last_tim"),Now)
    article=rs_w("bbs_counter")
    if DateDiff("d",rs_w("last_tim"),Now) =< 2  then
      stat="<font color=#0080d5><b>比较勤快，加油！</b></font>"
    elseif DateDiff("d",rs_w("last_tim"),Now) =< 7  then
      stat="<font color=#99cc00><b><font color=#ff0000>７</font>天之内有登录</b></font>"
    elseif DateDiff("d",rs_w("last_tim"),Now) =< 15 then
      stat="<font color=#ff6600><b><font color=#ff0000>１５</font>天内有登录</b></font>"
      counter=counter+1
    elseif DateDiff("d",rs_w("last_tim"),Now) =< 30 then
      stat="<font color=#ff6600><b><font color=#ff0000>１５</font>天以上未登录</b></font>"
      counter=counter+1
    else
      stat="<b><font color=#ff0000>严重失职</font>，将取消资格！<b>"
    End If
tmp1=tmp1&vbcrlf&"<tr class=bbs_tr align=center>" & _
vbcrlf&"<td height=25><a href='"&cls.web_dir&"user/view.asp?username="&Server.UrlEncode(rs_w("UserName"))&"' target=_blank title='查看"&rs_w("UserName")&"的信息'>"&rs_w("UserName")&"</a></td>" & _
vbcrlf&"<td class=tims>"&Cls.time_type(rs_w("last_tim"),1)&"</td>" & _
vbcrlf&"<td align=right><font class=red2>"&article&"</font> 篇</td>" & _
vbcrlf&"<td class=red>"&Ndate&"</td>" & _
vbcrlf&"<td><a href='list.asp?fid="&Bbsid&"' target=_blank>"&Bbsname&"</a></td>" & _
vbcrlf&"<td>"&stat&"</td>" & _
vbcrlf&"</tr> "
    End If
  next
  rs.movenext
loop
rs.close:set rs=nothing
tmp1=tmp1&vbcrlf&"</tr>" & _
vbcrlf&"<tr class=bbs_trp><td colspan=6  height=30 align=center><font class=htd><b>请以上斑竹注意，超过一个月未登陆将被取消斑竹资格。望大家支持！</b></font></td></tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"</tr>"
  Cls.LoadTemplate(4)
  Cls.ReadPage "common"
  Cls.HtmlRcod "title",tit
  Cls.HtmlRcod "body",tmp1
  Cls.OutPage
'----------------------------中间 结束----------------------------
call DoWebEnd()
%>
