 
<!--#include file="conn.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title><%=forumname%>论坛版主评定室</title>
<link rel="stylesheet" href="inc/tigerstyle.css">
 </head>
<% 
dim membername,master,sql1,rs1,j,hiddenuser
 dim pageno,pageto,pagecount
pageno=trim(request.Form("pageno"))
pageto=trim(request.Form("pageto"))
if pageno="" then
	pagecount=1
else
	pagecount=cint(pageno)
end if


sql="select username,useremail,userclass,article from [user] where userclass<=20 and userclass>17 order by article desc"
set rs=server.CreateObject("Adodb.Recordset")
rs.Open sql,conn,3,1

rs.PageSize = 15
select case pageto
	case "第一页"
		pagecount=1
	case "上一页"
		pagecount=pagecount-1
	case "下一页"
		pagecount=pagecount+1
	case "最后页"
		pagecount=rs.PageCount
end select

%>
<body topmargin=0 leftmargin=0 >
<p align=center></p>
<br>
<%
sql1="update [user] set userclass=1 where datediff('d',lastlogin,date())>30 and userclass<20 and userclass>17"
conn.execute(sql1)
set rs1=server.CreateObject("adodb.recordset")
sql1="select username from [user] where datediff('d',lastlogin,date())>20 and userclass<20 and userclass>17"
rs1.Open sql1,conn,3,1
j=0
if not rs1.EOF then
%>
<table width="<%=TableWidth%>" border="0" cellspacing="1" cellpadding="0" align="center" >
  <tr bgcolor="<%=Tabletitlecolor%>"> 
    <td colspan="6" height="30" bgcolor=#ffffff align=center> 评定室公告 
      <%do while not rs1.EOF
		response.Write "<a href=""dispuser.asp?name="&rs1("username")&"""><font color=red>"&rs1("username")&"</font></a>&nbsp;&nbsp;"
     j=j+1
     rs1.MoveNext
     if j mod 10 = 0 then response.Write "<br>"
     loop
     %>
       你已经严重失职，将被本考评室终止你的版主和高级会员资格！ </td>
  </tr>
  </table>
 <%
 rs1.Close
 set rs1=nothing
 end if%>
<table width="600" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Tablebackcolor%>">
<tr class=coolbg> 
    <td colspan="5"  bgcolor=<%=tableTitleColor%> height="30" valign="middle"> 
      <div align="center"><b>版主评定室—自动评定管理系统</b></div>
    </td>
 </tr>
  <%if rs.EOF or rs.BOF then%>
  <tr bgcolor="<%=Tabletitlecolor%>"> 
    <td colspan="6" align="center" height="24"><font color="<%=TableFontcolor%>">没有版主</font></td>
  </tr>
 </table>
  <%else%>
<table width="600" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=TableBackColor%>" ID="Table1">
  <%rs.AbsolutePage=pagecount
	i=0
  do while not rs.EOF
  	%>
  <tr bgcolor="#FFFFFF" height=24> 
    <td width="15%" bgcolor=<%=TableBodyColor%>> 
      <%
	  if cint(rs("userclass"))=19 then
	  %>
      <img src="pic/team.gif" align=absmiddle alt=版主>&nbsp;版主姓名 
      <%elseif cint(rs("userclass"))=18 then%>
      <a href="dispuser.asp?name=<%=rs("username")%>" target="_blank"><font color=#0000ff> 
      </font></a><font color="#999999"><img src="pic/team1.gif" align=absmiddle alt=高级会员>&nbsp;高级会员 
        <%elseif cint(rs("userclass"))=20 then%>
      <a href="dispuser.asp?name=<%=rs("username")%>" target="_blank"><font color=#0000ff> 
      </font></a><font color="#FF0000"><img src="pic/team0.gif" align=absmiddle alt=论坛总版>&nbsp;论坛总版 

	  <%end if%>

      </font></td>
    <td width="13%" align="center" bgcolor=<%=NavDarkColor%>> <a href="dispuser.asp?name=<%=rs("username")%>" target="_blank"><font color=#0000ff> 
      <%=rs("username")%> </font></a> </td>
    <td width="20%" align=center bgcolor=<%=TableBodyColor%>> <img src=pic/fabiao1.gif align=absmiddle alt=已发表文章和回复共<%=rs("article")%>篇>文章 
      <b><font color=red><%=rs("article")%></font></b> 篇 </td>
    <td width="30%"  bgcolor=<%=NavDarkColor%>> 
      <%dim GlTime,strText
          set rs1=conn.execute("select datediff('d',lastlogin,date()) from [user] where username='"&rs("username")&"'")
          GlTime=rs1(0)
          rs1.close
          set rs1=nothing
        if GlTime <= 3 then
			strText = "<img src=pic/xianhua.gif align=absmiddle alt=工作勤奋，鲜花赞扬> 此版主工作较为负责"
		elseif GlTime > 3 and GlTime <=7 then
			strText = "已松散，<b><font color=red>7</font></b> 日内未曾登陆"
		elseif GlTime > 7 and GlTime <=15 then
			strText = "注意，你已经<b><font color=red>15</font></b> 日没有登陆了"
		elseif GlTime > 15and GlTime <=20 then
			strText = "<img src=pic/gunbang.gif align=absmiddle alt=工作失职，棍棒敲上> <b><font color=red>20</font></b> 日内未登陆，<b><font color=red>警告！</font></b>"
		elseif GlTime > 20 then
			strText = "<img src=pic/gunbang.gif align=absmiddle alt=工作严重失职，棍棒敲上> 超过<font color=red> 20 </font>日未登陆，严重失职，将被取消管理权限</font>"
		end if
		response.Write ""&strText&""
        %>
    </td>
    <td width="16%" align=center bgcolor=<%=TableBodyColor%>> <a href="usersms1.asp?action=new&touser=<%=rs("username")%>" target=_blank><img src="pic/message.gif" align=absmiddle alt=给他留言 border="0"></a> 
    </td>
  </tr>
  <%i=i+1
  rs.MoveNext
  if i>= rs.PageSize then exit do
  loop  
  end if
  %>
  <tr align="right"> 
    <td colspan="5" bgcolor=<%=tableTitleColor%> height="20" valign="middle"> 
      <div>注意：本评定将自动取消 <font color=red><b>30</b></font> 日未登陆系统的版主与高级会员资格 </div>
    </td>
 </tr>
</table>
  <table width="638" border="0" cellspacing="1" cellpadding="0" align="center" ID="Table2">
<%
response.Write "<tr height=30 bgcolor=#ffffff><td colspan=3 align=center>共"&rs.RecordCount&"人 第"&pagecount&"/"&rs.PageCount&"页</td></tr>"&_
					"<tr height=40 bgcolor=#ffffff><td colspan=3 align=center>"&_
					"<form  method=post name=fomr1>"&_
					"<input type=hidden name=pageno value="""&pagecount&""">"
				if pagecount>1 then
					response.Write "<input type=submit name=pageto value=""第一页"">&nbsp;&nbsp;"&_
									"<input type=submit name=pageto value=""上一页"">&nbsp;&nbsp;"
				end if
				if pagecount<rs.PageCount then
					response.Write "<input type=submit name=pageto value=""下一页"">&nbsp;&nbsp;"&_
									"<input type=submit name=pageto value=""最后页"">"
				end if
					response.Write "</form></td></tr>"
rs.Close
set rs=nothing%>
</table>