<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_popfun.asp -->
<!-- #include file=inc/UserTopic.asp -->
<%
DEF_BBS_HomeUrl = "../"
SiteHead(DEF_SiteNameString & " - 公社管理人员考勤")

UserTopicTopInfo
DisplayUserNavigate("公社管理人员考勤")
ScreenInfo
UserTopicBottomInfo
sitebottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function ScreenInfo%>

<p>
<%
     DisplayBoardManageInfo

End Function


Function DisplayBoardManageInfo

     GBL_CHK_PWdFlag = 0
     InitDatabase
        Dim N,GetData,Rs
     GetData = Split(DEF_SupervisorUserName,",")
     Rs = Ubound(GetData,1)
%>
           <p><table width="100%" border="0" cellspacing="2" cellpadding="3" bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1 align=center>
               <tr><td colspan=7><br><b>公社管理人员考勤记录</b><p>    处理建议包括:当天签到、一周内签到、黄牌警告（多于一周）、红牌警告（多于半月）、留用察看（多于一个月）、撤消职务（多于两个月）</td></tr>
               <tr><td colspan=7 align=center> 
<%

     Dim RequestStr
     RequestStr = Request.QueryString
     Set Rs = Con.ExeCute("select t1.UserID,t1.UserName,t1.ndatetime,t2.Prevtime,t1.Assort From LeadBBS_SpecialUser As t1,LeadBBS_User As t2 Where t1.UserID=t2.ID And t1.Assort=2 order by T1.UserID")
           GBL_DBNum = GBL_DBNum + 1
           If Not Rs.Eof Then
                 GetData = Rs.GetRows(-1)
                 Rs.Close
                 Set Rs = Nothing
                 Rs = Ubound(GetData,2)
                 Response.Write "<p><b>总版主</b></td></tr>"%>
           <tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                 <td align=center colspan=2>用户名</td>
                 <td align=center width=80>登录日期</td>
                 <td align=center width=80>未登录天数</td>
                 <td align=center width=80>处理建议</td>
                 <td align=center width=80>上任日期</td>
                 <td align=center width=80>备注说明</td>
                 </tr>

<%
                 For N = 0 to Rs
                       If Flag <> cCur(GetData(0,N)) Then
                             Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td align=center><a href=""LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a></td>"
                             Response.write "<td><a href=""SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a></td>"
Response.Write "<td align=center>" & left(RestoreTime(GetData(3,n)),10) & "</td><td align=center>"
    TempD=DateDiff("d",RestoreTime(GetData(3,n)),now)
    Response.Write TempD & "天</td><td align=center>"
    If TempD=0 Then
         Response.Write "<font color=green>当天签到</font>"
    End If
    If TempD>0 And TempD<=7 Then
         Response.Write "<font color=blue>一周内签到</font>"
    End If
    If TempD>7 And TempD<=15 Then
         Response.Write "<font color=orange>黄牌警告</font>"
    End If
    If TempD>15 And TempD<=30 Then
         Response.Write "<font color=red>红牌警告</font>"
    End If
    If TempD>30 And TempD<=60 Then
         Response.Write "<font color=red>留用察看</font>"
    End If
    If TempD>60 Then
         Response.Write "<font color=darkorchid>撤消职务</font>"
    End If
Response.Write "<td align=center>" & left(RestoreTime(GetData(2,n)),10) & "</td>"
    Response.Write "</td><td>全部版面</td></tr>"
                       End If
                 Next
           Else
                 Rs.Close
                 Set Rs = Nothing
                 Response.Write "<p><b>总版主</b>无</td></tr>"
           
     End If
Set Rs = Con.ExeCute("select t1.UserID,t1.UserName,t3.AssortName,t1.ndatetime,t2.Prevtime,t3.AssortID,t1.BoardID,t1.Assort From LeadBBS_SpecialUser As t1,LeadBBS_User As t2,LeadBBS_Assort As t3 Where t1.UserID=t2.ID And t1.BoardID=t3.AssortID And t1.Assort=7 order by T1.UserID")
           GBL_DBNum = GBL_DBNum + 1
           If Not Rs.Eof Then
                 GetData = Rs.GetRows(-1)
                 Rs.Close
                 Set Rs = Nothing
                 Rs = Ubound(GetData,2)
                 Response.Write "<tr><td colspan=7 align=center><p><b>区版主</b></td></tr>"
                 Flag = 0
                 %>
           <tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                 <td align=center colspan=2>用户名</td>
                 <td align=center>登录日期</td>
                 <td align=center>未登录天数</td>
                 <td align=center>处理建议</td>
                 <td align=center>上任日期</td>
                 <td align=center>担任区面</td></tr>
<%
                 For N = 0 to Rs
                       If Flag <> cCur(GetData(0,N)) Then
                             Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td align=center><a href=""LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a></td>"
                             Response.write "<td><a href=""SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a></td>"
Response.Write "<td align=center>" & left(RestoreTime(GetData(4,n)),10) & "</td><td align=center>"
    TempD=DateDiff("d",RestoreTime(GetData(4,n)),now)
    Response.Write TempD & "天</td><td align=center>"
    If TempD=0 Then
         Response.Write "<font color=green>当天签到</font>"
    End If
    If TempD>0 And TempD<=7 Then
         Response.Write "<font color=blue>一周内签到</font>"
    End If
    If TempD>7 And TempD<=15 Then
         Response.Write "<font color=orange>黄牌警告</font>"
    End If
    If TempD>15 And TempD<=30 Then
         Response.Write "<font color=red>红牌警告</font>"
    End If
    If TempD>30 And TempD<=60 Then
         Response.Write "<font color=red>留用察看</font>"
    End If
    If TempD>60 Then
         Response.Write "<font color=darkorchid>撤消职务</font>"
    End If
    Response.Write "</td><td colspan=2>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Boards.asp?Assort=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                             Flag = cCur(GetData(0,n))
                       Else
                             Response.Write "<br><br>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Boards.asp?Assort=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                       End If

                 Next

           Else
                 Rs.Close
                 Set Rs = Nothing
                 Response.Write "<tr><td colspan=7 align=center><p><b>区版主</b>无</td></tr>"
           End If

     Dim Flag
     Set Rs = Con.ExeCute("select t1.UserID,t1.UserName,t3.BoardName,t1.ndatetime,t2.Prevtime,t1.BoardID,t1.Assort From LeadBBS_SpecialUser As t1,LeadBBS_User As t2,LeadBBS_Boards As t3 Where t1.UserID=t2.ID And t1.BoardID=t3.BoardID And t1.BoardID>=0 And t1.Assort>=1 order by T1.UserID")
           GBL_DBNum = GBL_DBNum + 1
           If Not Rs.Eof Then
                 GetData = Rs.GetRows(-1)
                 Rs.Close
                 Set Rs = Nothing
                 Rs = Ubound(GetData,2)
                 Response.Write "<tr><td colspan=7 align=center><p><b>公社版主</b></td></tr>"
                 Flag = 0
                 %>
           <tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                 <td align=center colspan=2>用户名</td>
                 <td width=60 align=center>登录日期</td>
                 <td width=60 align=center>未登录天数</td>
                 <td width=60 align=center>处理建议</td>
                 <td width=60 align=center>上任日期</td>
                 <td align=center>担任版面</td></tr>
<% 
                 For N = 0 to Rs
                       If Flag <> cCur(GetData(0,N)) Then
                             Response.Write "</td></tr><tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td align=center><a href=""LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a></td>"
                             Response.write "<td><a href=""SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a></td>"
Response.Write "<td align=center>" & left(RestoreTime(GetData(4,n)),10) & "</td><td align=center>"
    Dim TempD
    TempD=DateDiff("d",RestoreTime(GetData(4,n)),now)
    Response.Write TempD & "天</td><td align=center>"
    If TempD=0 Then
         Response.Write "<font color=green>当天签到</font>"
    End If
    If TempD>0 And TempD<=7 Then
         Response.Write "<font color=blue>一周内签到</font>"
    End If
    If TempD>7 And TempD<=15 Then
         Response.Write "<font color=orange>黄牌警告</font>"
    End If
    If TempD>15 And TempD<=30 Then
         Response.Write "<font color=red>红牌警告</font>"
    End If
    If TempD>30 And TempD<=60 Then
         Response.Write "<font color=red>留用察看</font>"
    End If
    If TempD>60 Then
         Response.Write "<font color=darkorchid>撤消职务</font>"
    End If
    Response.Write "</td><td colspan=2>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Board/Board.asp?BoardID=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                             Flag = cCur(GetData(0,n))
                       Else
                             Response.Write "<br><br>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Board/Board.asp?BoardID=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                       End If

                 Next
           Else
                 Rs.Close
                 Set Rs = Nothing
                 Response.Write "<tr><td colspan=7 align=center><p><b>公社版主</b>无</td></tr>"
           End If
     Closedatabase
     Response.Write "</td></tr></table>"
        Response.Write "<p align=center><a href=http://www.tuibian.org><font color=red>蜕变网络公社</font></a>"
     
End Function%>
