
<!--#include file="inc.asp"-->
<%If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
Call BBS94KK.Head("斑竹考勤区")

If Not BBS94KK.Founduser then
Response.Write "<script language=javascript>alert('请登陆后使用');history.back();</script>"
end if
%>

<table border=0 width="72%" align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25><img src=Images/Forum_nav.gif> → 版主考勤</td>
</tr>
</table>


<SCRIPT>valigntop()</SCRIPT>

<TABLE width="72%" height="85" border=0 align=center cellPadding=1 cellSpacing=1 bordercolor="#666666" class=a2>

<TR align=middle class=a1>
    <TD height=24 width="16%"><div align="left"><b>用户名</b></div></TD>
    <TD height=24 width="10%"><div align="left"><b>担任职务</b></div></TD>
    <TD height=24 width="10%"><div align="left"><b>发贴数目</b></div></TD>
    <TD height=24 width="9%"><div align="left"><b>积分</b></div></TD>
    <TD height=24 width="11%"><div align="left"><b>失踪天数</b></div></TD>
    <TD height=24 width="18%"><div align="left"><b>最后登陆</b></div></TD>
    <TD height=24 width="17%"><b>评价</b></TD>

<%
Dim Rs,pagesetup,TotalPage,pagecount,I,myvar,comeon,zhiwu,upsent
Set Rs=BBS94KK.execute("select * from [kk_user] where GradeFlag>6")


if not rs.eof and not rs.bof then
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1


if datediff("d",rs("lasttime"),date())<=3 then
myvar="<img src=images/membercode/flower.gif align=absmiddle alt=非常勤奋！> <b>工作十分负责</b>"
elseif datediff("d",rs("lasttime"),date())<=7 then
myvar="<b>似乎已有点松散，但 <b><font color=red>7</font></b> 天内还有登陆</b>"
elseif datediff("d",rs("lasttime"),date())>=7 then
myvar="<b>注意，您已经 <font color=red>7</font> 天以上没有登陆了</b>"

end if
if datediff("d",rs("lasttime"),date())>=10 then
myvar=" <img src=images/membercode/flower1.gif align=absmiddle alt=工作失职！> <b>超过 <font color=blue>10</font> 天没有登陆，警告！</b>"
end if
if datediff("d",rs("lasttime"),date())>=15 then
myvar="<img src=images/membercode/flower1.gif align=absmiddle alt=工作严重失职！> <b>超过 <font color=red>15</font> 日未登陆，将考虑取消资格！</font></b>"
end if
if datediff("d",rs("lasttime"),date())>=20 then
myvar="<img src=images/membercode/flower1.gif align=absmiddle alt=工作严重失职！> <b>超过 <font color=blue>20</font> 日未登陆，将被取消资格！</font></b>"

end if
if rs("EssayNum") <=50 then
comeon=" <font color=#000000>好象发的贴子还少了点，请多多努力！</font>"
elseif rs("GradeFlag")="8" and rs("EssayNum") >=50 then
comeon=" <font color=#000000>超级斑竹好努力哦！贴子发得也好多！</font>"
elseif rs("GradeFlag")="7" and rs("EssayNum") >=50 then
comeon=" <font color=#000000>斑竹好努力哦！贴子发得也好多！</font>"
elseif rs("EssayNum") >=50 then
comeon=" <font color=#000000>管理员好努力哦！贴子发得也好多！</font>"
'elseif rs("membercode")=2 and rs("posttopic") >=50 then
'comeon=" <font color=#000000>嘉宾好努力哦！贴子发得也好多！</font>"

end if

if rs("GradeFlag")=8 then
zhiwu=" <img src=images/membercode/5.gif> <font color=#000000>超级斑竹</font>"
elseif rs("GradeFlag")=9 then
zhiwu=" <img src=images/membercode/4.gif> <font color=red>站长</font>"
elseif rs("GradeFlag")=7 then
zhiwu=" <img src=images/membercode/3.gif> <font color=#000000>版主</font>"
'elseif rs("membercode")=2 then
'zhiwu=" <img src=images/membercode/2.gif> <font color=#000000>论坛VIP</font>"

end if
upsent=datediff("d",rs("lasttime"),date())
if upsent=0 then
upsent="今"
end if

%>
<TR align=middle class=a4>
    <TD height=32 align=center width="16%"><div align="left">
      <p><img src=images/membercode/gm.gif><a href=userinfo.asp?name=<%=rs("name")%>><%=rs("name")%></a></p>
      </div></td>
    <TD height=32 align=center width="10%"><div align="left"><%=zhiwu%></div></TD>
    <TD height=32 align=center width="10%"><div align="left"><img src=images/membercode/f_norm.gif> 
        <%=rs("EssayNum")%></div></TD>
    <TD height=32 align=center width="9%"><div align="left"><img src=images/membercode/f_norm.gif> 
        <%=rs("Mark")%></div></TD>
    <TD height=32 align=center width="11%"><div align="left"><img src=images/membercode/15.gif> 
        <%=upsent%>天</div></TD>
    <TD height=32 align=center width="18%"><div align="left"><%=rs("lasttime")%></div></TD>
    <TD height=32 align=center width="17%"><p align="left"><%=myvar%><br><%=comeon%></p>    </TD>




<%
RS.MoveNext
loop
RS.Close

%></table>
<center>
<SCRIPT>valignbottom()</SCRIPT>

<%end if
 BBS94KK.Footer()
%>