z_viewmanage.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
'绿水青山 修改 2002.12.31
	stats="斑竹工作评定"
	call nav()
	call head_var(2,0,"","")
	
	dim AbsentDay 		'失踪天数
	dim RsB,RsU
	dim UserName,BoardName,Article,Message,Counter
	
	Counter=0
   	set RsB=conn.execute("select BoardType,BoardMaster from [board]")
  	sql="select UserID,UserName,userclass,lastlogin,article from [User] where UserGroupID=3 OR UserGroupID=2 order by article desc"
   	set RsU=conn.execute(sql)
%>
<table cellpadding=3 cellspacing=1 class=tableborder1 align="center">
	<tr>
		<th valign=middle colspan=6 align=center height=25><b>斑 竹 工 作 成 绩 评 定</b></td>
	</tr>
	<tr>
		<td class=TopLighNav1 align="center" height="25">斑竹</td> 
		<td class=TopLighNav1 align="center">最后登陆</td>
		<td class=TopLighNav1 align="center">发贴数</td>
		<td class=TopLighNav1 align="center">失踪</td>
		<td class=TopLighNav1 align="center">担任版块</td>
		<td class=TopLighNav1 align="center">评定结果</td>
	</tr>
<%
	do while not RsU.eof
		AbsentDay=DateDiff("d",RsU("lastlogin"),Now)
		article=RsU("article")
		if AbsentDay =< 2  then
			Message="<font face=Wingdings color=blue>v</font> <font color=#0080d5>此斑竹工作比较认真负责</font>"
		elseif AbsentDay =< 7  then
			Message="此斑竹 <font color=#ff0000>7</font> 天内有登录"
		elseif AbsentDay =< 15 then
			Message="<font color=#ff6600>注意:此斑竹已松散 <font color=#ff0000>15</font> 天内有登录</font>"
			counter=counter+1
		elseif AbsentDay =< 30 then
			Message="<font color=#ff6600>警告:此斑竹已经 <font color=#ff0000>"&AbsentDay&"</font> 天没有工作了</font>"
			counter=counter+1
		else
			Message="<font color=red>×</font> 此斑竹 <font color=#ff0000>严重失职</font>，将被取消管理权限"
		end if
	
		UserName=RsU("UserName")
		BoardName=""
		do while not RsB.eof
			if instr(1,RsB("BoardMaster"),UserName) then
				if BoardName="" then
					BoardName=RsB("BoardType")
				else	
					BoardName=BoardName&"<font color=red>|</font>"&RsB("BoardType")
				end if	
			end if
			RsB.movenext
   		loop
  		RsB.movefirst
		if BoardName<>"" then
%>
	<tr>
        <td class=tablebody2 align=center><a href=dispuser.asp?id=<%=RsU("UserID")%> target=_blank title="查看<%=htmlencode(UserName)%>的信息"><%if membername=username then%><font color=blue><%end if%><%=UserName%></a></td>
		<td class=tablebody1 align=center><%=RsU("lastlogin")%></td>
		<td class=tablebody2 align=center><img src=plus/images/other/ViewManage_fabiao.gif align=absmiddle alt=已发表文章和回复共<%=article%>篇>文章<b><font color=red><%=article%></font></b>篇</td>
        <td class=tablebody1 align=center><font color=blue><%=AbsentDay%></font>天</td>
        <td class=tablebody2 align=center><%=BoardName%></td>
        <td class=tablebody1 align=center><%=Message%></td>
     </tr>
<%
		end if
		RsB.movenext  
		RsU.movenext
	loop
%>
	<tr>
		<td valign=middle colspan=6 align=center height=25 class=TableTitle2>◇共有 <font color=#ff0000><%=counter%></font> 位超过 15 天未登陆的斑竹 ◇<FONT color=red>请各位斑竹注意，超过一个月未登陆的斑竹将被取消斑竹资格</font> ◇望大家支持</td>
	</tr>
	</table>
<%
	call activeonline()
	call footer()
%>