<!--#include file="conn.asp" -->
<!--#include file="ftbbs_nav.asp" -->
<%	
call FTBBS_HTML_MB
defaulthome=Application("FTBBSMB")(31,0)
if request.cookies("ftbbstype")="" then
   Response.Cookies("ftbbstype")=0
   Response.Cookies("ftbbstype").Expires=date+7
end if
homepage=ft_home(defaulthome)

'**************
'分页导航栏函数
'**************
Function pagination(pagecount)
   Dim wzpage,wzpagecount,pagenum,boardid
       If Len(Request.QueryString("page"))<>0 Then
          wzpage = clng(Request.QueryString("page"))
         Else 
          wzpage =1
       End If
       If wzpage <= 0 Then wzpage =1
       pagenum = (wzpage \ 10)*10+1
       If wzpage mod 10 = 0 Then pagenum = (wzpage \ 10)*10-9
       If wzpage > 10 Then
            Response.Write ("<td class=""outtd""><a href=""?page=1"" title=""首页""><img src=""images/first.gif"" border=""0""></a></td><td width=""2""></td>"& vbCrLf)
            Response.Write ("<td class=""outtd""><a href=""?page="& pagenum-1 &""" title=""前十页""><img src=""images/previous.gif"" border=""0""></a></td>"& vbCrLf)
       End If
       For pagenum = pagenum To pagenum + 9
           If pagenum = wzpage Then
		       Response.Write ("<td width=""2""></td><td class=""intd"" title=""当前页"">"& pagenum &"</td>"& vbCrLf)
           Else
		      Response.Write (" <td width=""2""></td><td class=""outtd"" onmouseover=""this.className='intd';"" onmouseout=""this.className='outtd';"">")
			  Response.Write (" <a href=""?page="& pagenum &"""><div style=""width:100%"">"& pagenum &"</div></a></td>"& vbCrLf)
           End If
           If pagenum >= pagecount Then Exit For
       Next

	 If wzpage <= (pagecount - (pagecount mod 10)) Then
            Response.Write ("<td width=""2""></td><td class=""outtd"" onmouseover=""this.className='outtd';"" onmouseout=""this.className='outtd';""><a href=""?page="& pagenum &"""  title=""后十页""><img src=""images/next.gif"" border=""0""></a></td> "& vbCrLf)
            Response.Write ("<td width=""2""></td><td class=""outtd"" onmouseover=""this.className='outtd';"" onmouseout=""this.className='outtd';""><a href=""?page="& pagecount &"""  title=""末页""><img src=""images/last.gif"" border=""0""></a></td>"& vbCrLf)
     End If
	 Response.Write (" <td width=""2""></td><td><input class=""inputpage"" name=""page"" type=""text"" size=""3"" onKeyDown=""if(event.keyCode==13) {window.location='?page='+this.value; return false;}""></td>"& vbCrLf)
	 Response.Write ("</tr></table>"& vbCrLf)
End Function

dim rssql,getstring
'******************************************
dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
wzrep = Application("FTBBSMB")(5,0)
%>
<HTML><HEAD>
<title>版主工作评定</title>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<script language=javascript src="inc/cookies.js"></script>
<script>
//载入上次cookies记录的样式
var stylecook = getCookie("STYLESHOW");
var style;
var strstyle;
if(stylecook=="")
{
 stylecook=1;
}
else
{
 stylecook++;
}
style="main0"+stylecook+".css";
strstyle="<link href=\"css/"+style+"\"  rel=\"stylesheet\" type=\"text/css\"> ";
document.write(strstyle);
</script>

</HEAD>
</head>
<body>
<%
if request.cookies("ftbbstype")=1 then
  response.write headhtml
end if
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center" class="maintbbg">
  <tr> 
    <td> <table width="100%" border=0 cellpadding=2 cellspacing=1 class="maintbbg">
        <tbody>
          <%if request.cookies("ftbbstype")<>1 then%>
          <tr> 
            <td height="25" colspan="3" class="f12bg">&nbsp;<%=userinfo%></td>
          </tr>
          <%end if%>
          <tr> 
            <td height="25" colspan="3" class="maintbtr3">&nbsp;<a href="<%=homepage%>">论坛首页</a> 
              >> 版主工作评定</td>
          </tr>
        </tbody>
      </table>
      <table width="100%" border=0 cellpadding=2 cellspacing=1 class="maintbbg" align="center">
        <tbody>
          <tr align=middle class=f12> 
            <td width="9%" height="25" class="f12bg"><div align="center">版主网名</div></td>
            <td width="23%" class="f12bg" > <div align="center">最后登陆时间</div></td>
            <td width="12%" class="f12bg" > <div align="center">发表文章数</div></td>
            <td width="10%" class="f12bg" > <div align="center">失踪天数</div></td>
            <td width="17%" class="f12bg" > <div align="center">担任版块</div></td>
            <td width="30%" class="f12bg" > <div align="center">评定结果</div></td>
          </tr>
          <%
sql="select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from BBS_Cate where deleted=0 and BBS_Cate_PID<>'0' order by bbs_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
wzpage = clng(request.querystring("page"))
if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
rs.PageSize=wzrep
rs.AbsolutePage=wzpage
wzpagecount=rs.PageCount
wzcount=rs.RecordCount
for i = 0 to wzrep-1
   if rs.eof then exit for
   bzname=rs("BBS_Cate_Manager_Name")
   BBS_Cate_Name=rs("BBS_Cate_Name")
   BBS_Cate_ID=rs("BBS_Cate_ID")
   BBS_Cate_PID=rs("BBS_Cate_PID")
   BBS_Cate_Qs=rs("BBS_Cate_Qs")
	   if instr(bzname,"|")>0 then
		  bzname=split(bzname,"|")
          for p=0 to UBound(bzname)
			  clubuser_id=""
			  clubuser_name=""
			  postnum=""
			  clubuser_lasttime=""
		    sql2="select clubuser_id,clubuser_name,postnum,clubuser_lasttime from clubuser where clubuser_name='"&bzname(p)&"'"
            set rsbz2=server.createobject("adodb.recordset")
            rsbz2.open sql2,conn,1,1
		    if not rsbz2.eof then
			  clubuser_id=rsbz2("clubuser_id")
			  clubuser_name=bzname(p) 'rsbz2("clubuser_name")
			  postnum=rsbz2("postnum")
			  clubuser_lasttime=rsbz2("clubuser_lasttime")
			  daynum=DateDiff("d",date(),clubuser_lasttime)
			  if daynum<0 then
			     daynum=daynum*(-1)
			  else
			     daynum=0 
			  end if
			  if daynum>7 then
			     ruslt="此斑竹已<font color=red>严重失职</font>,将取消资格!"
			  elseif daynum>0 and daynum<=7 then
			    ruslt="此斑竹<font color=red>7</font>天之内有登录!"
			  else
			    ruslt="此斑竹比较勤快，加油哦!"
			  end if
		  %>
          <tr align=middle> 
            <td width="9%" height="28" class="maintbtr1" align="center"><a href="../home.asp?userid=<%=clubuser_id%>" target="_blank"><%=clubuser_name%></a></td>
            <td width="22%"  align=left valign="middle" class="maintbtr2"><%=clubuser_lasttime%></td>
            <td width="12%" class="maintbtr1" align="center"><font color="#FF0000"><%=postnum%></font>篇</td>
            <td width="10%" class="maintbtr3" align="center"><%=daynum%></td>
            <td width="17%" class="maintbtr3" align="center"><a href="main.asp?layer_1=<%=BBS_Cate_PID%>&layer_2=<%=BBS_Cate_ID%>&qs=<%=BBS_Cate_Qs%>"><%=BBS_Cate_Name%></a></td>
            <td width="30%" class="maintbtr3" align="center"><%=ruslt%></td>
          </tr>
          <%
		   end if
          next
	   else
	      sql3="select clubuser_id,clubuser_name,postnum,clubuser_lasttime from clubuser where clubuser_name='"&bzname&"'"
          set rsbz3=server.createobject("adodb.recordset")
          rsbz3.open sql3,conn,1,1
		  if not rsbz3.eof then
		    clubuser_id=""
	        clubuser_name=""
		    postnum=""
		    clubuser_lasttime=""
		    daynum=""
		    clubuser_id=rsbz3("clubuser_id")
		    clubuser_name=rsbz3("clubuser_name")
		    postnum=rsbz3("postnum")
		    clubuser_lasttime=rsbz3("clubuser_lasttime")
		    daynum=DateDiff("d",date(),clubuser_lasttime)
		    if daynum<0 then
			 daynum=daynum*(-1)
		    else
			 daynum=0 
		    end if
		    if daynum>7 then
			 ruslt="此斑竹已<font color=red>严重失职</font>,将取消资格!"
		    elseif daynum>0 and daynum<=7 then
			 ruslt="此斑竹<font color=red>7</font>天之内有登录!"
		    else
			 ruslt="此斑竹比较勤快，加油哦!"
		    end if
		  %>
          <tr align=middle> 
            <td width="9%" height="28" class="maintbtr1" align="center"><a href="../home.asp?userid=<%=clubuser_id%>" target="_blank"><%=clubuser_name%></a></td>
            <td width="22%"  align=left valign="middle" class="maintbtr2"><%=clubuser_lasttime%></td>
            <td width="12%" class="maintbtr1" align="center"><font color="#FF0000"><%=postnum%></font>篇</td>
            <td width="10%" class="maintbtr3" align="center"><%=daynum%></td>
            <td width="17%" class="maintbtr3" align="center"><a href="main.asp?layer_1=<%=BBS_Cate_PID%>&layer_2=<%=BBS_Cate_ID%>&qs=<%=BBS_Cate_Qs%>"><%=BBS_Cate_Name%></a></td>
            <td width="30%" class="maintbtr3" align="center"><%=ruslt%></td>
          </tr>
          <%
		  end if
	   end if
rs.movenext
next
%>
          <tr valign="top"> 
            <td colspan="7" class="maintbtr1"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr> 
                  <td height="20" align="left" class="f12"> <%= pagination(wzpagecount)%> 
                  </td>
                </tr>
              </table></td>
          </tr>
          <%else%>
          <tr class="maintbtr3"> 
            <td colspan=7 align=center height=25> 没有数据</td>
          </tr>
          <%end if%>
        </tbody>
      </table></td>
  </tr>
</table>
<%closedb%>
<!--#include file="inc/bbstail.htm"-->