z_viewmanage1.asp

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

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="z_connpd.asp"-->
<%
response.buffer=true
'------------hero20000 修改 2003.3.5----------
    dim Gzdays,Gzlbt,Gzhmon,Gzwealth,Gzuserep,Gzusercp,Gzpower,Gzifmess,Gzjbgz
    Gzdays=7       '工资日间隔，每7天发放一次
    Gzjbgz=300     '版主的基本工资
    Gzlbt=20       '奖励工资所需工作积分底线
    gzhmon=20      '积分每增加多少涨一级工资
    gzwealth=100   '一级工资加多少钱
    gzuserep=50    '一级工资加多少经验
    gzusercp=20    '一级工资加多少魅力
    gzpower=1      '一级工资加多少威望
    gzifmess="1"   '发薪是否短信通知版主,0否1是
    
'------------按照你的实际需求修改以上参数-----

	stats="斑竹工作公示"
	call nav()
	call head_var(2,0,"","")
	if request("action")="reset" and master and membername<>"" then
	 connplus.execute("delete * from [fuser]")
     Response.Redirect "z_ViewManage.asp"
    end if
	dim AbsentDay 		'失踪天数
	dim RsB,RsU,RsL,RsF,Rstmp,Bcount,Bgzday,Btgz,savemoney,saveep,savecp,savepower
	dim UserName,BoardName,userpower,Message,Counter,Bnumgz,Bnumlog,saveMessage
	
	Counter=0
   	set RsB=conn.execute("select BoardType,BoardMaster from [board]")
  	sql="select UserID,UserName,userclass,lastlogin,userpower,logins from [User] where UserGroupID=3 OR UserGroupID=2 order by userpower 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 valign=middle colspan=6 align=left height=25 class=TableTitle2>◇版主工资说明： 为感谢各位版主对 <font color=red><%=Forum_info(0)%></font> 的大力支持，本站每 <fotn color=red><%=gzdays%></font> 天对各版主进行积分奖励。<br>◇<u><font color=blue>工作积分</font></u>的计算公式为：<font color=red>(版主<%=gzdays%>内登陆次数*0.5+版面维护次数)。</font><br>◇<u><font color=blue>实际给付工资</font></u>为基本工资加上业绩工资。版主的基本工资为<font color=red>每版<%=Gzjbgz%></font>元虚拟币，工作积分超过 <font color=red><%=Gzlbt%></font> 点后给付业绩工资。<br>◇<u><font color=blue>业绩工资</font></u>的计算方法：版主的工作积分每提高 <font color=red><%=gzhmon%> </font>点，奖励金钱<font color=red><%=gzwealth%></font>，威望<font color=red><%=gzpower%></font>，经验<font color=red><%=gzuserep%></font>，魅力<font color=red><%=gzusercp%></font>。<br> <% if membername<>"" and master then response.write "◇<a href=z_ViewManage.asp?action=reset><font color=red>站长注意：当你清空了站点管理日志时，请您立即点此链接重建版主工资数据</font></a>" %></td>
	</tr>
	<tr height=20>
		<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>
		<td class=TopLighNav1 align="center">预期工资/评语</td>
	</tr>
<%
	do while not RsU.eof
		AbsentDay=DateDiff("d",RsU("lastlogin"),Now)
		userpower=RsU("userpower")
		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=""
		Bcount=0
		do while not RsB.eof
			if instr(1,RsB("BoardMaster"),UserName) then
			    Bcount=Bcount+1
				if BoardName="" then
					BoardName=RsB("BoardType")
				else	
					BoardName=BoardName&"<br>"&RsB("BoardType")
				end if	
			end if
			RsB.movenext
   		loop
  		RsB.movefirst
		if BoardName<>"" then
		set RsF=connplus.execute("select * from [fuser] where username='"&Username&"' ")
        if RsF.eof then
          set Rstmp=conn.execute("select count(*) from [log] where l_username='"&UserName&"'")
          connplus.execute("insert into fuser(username,FuLiDate,oldlogs,oldlogins) values('"&UserName&"',date()-1,"&Rstmp(0)&","&RsU("logins")&")")
        end if
		set Rsl=conn.execute("select count(*) from [log] where l_username='"&UserName&"'")
		if RsF.eof then
		 Bnumgz=0
         Bnumlog=0
         Bgzday=(date()-1+gzdays)
        else
         Bnumgz=cint(Rsl(0)-Rsf("oldlogs"))
         Bnumlog=cint(RsU("logins")-Rsf("oldlogins"))
         Bgzday=(RsF("Fulidate")+gzdays)
        end if
        '积分计算公式
		Btgz=(cint(Bnumlog*0.5)+Bnumgz)
		if Btgz>Gzlbt then
		  savemoney=(((Btgz-Gzlbt)\Gzhmon)*Gzwealth+gzjbgz*Bcount)
		  savepower=(((Btgz-Gzlbt)\Gzhmon)*Gzpower)
		  saveep=(((Btgz-Gzlbt)\Gzhmon)*Gzuserep)
		  savecp=(((Btgz-Gzlbt)\Gzhmon)*Gzusercp)
		elseif Btgz>0 then
		  savemoney=gzjbgz*Bcount
		  savepower=0
		  saveep=0
		  savecp=0
		else
		  savemoney=0
		  savepower=0
		  saveep=0
		  savecp=0
		end if
		if date()>=Bgzday and not RsF.eof and savemoney>0 then
		  savemessage="("&FormatDateTime(Rsf("Fulidate"),2)&"至"&FormatDateTime(Bgzday,2)&")：工作积分("&Btgz&")，金钱("&savemoney&")，威望("&savepower&")，经验("&saveep&")，魅力("&savecp&")"
		  connplus.execute("update [fuser] set Fulidate=date(),oldlogs="&Rsl(0)&",oldlogins="&RsU("logins")&",lastinfo='"&savemessage&"' where username='"&Username&"'")
		  conn.execute("update [user] set userwealth=userwealth+"&savemoney&",userep=userep+"&saveep&",usercp=usercp+"&savecp&",userpower=userpower+"&savepower&" where username='"&Username&"'")
		  if gzifmess="1" then
		    savemessage=savemessage&"。　再次对您为本站所做工作表示感谢！继续努力呦:)"
	    	conn.Execute("insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&Username&"','"&Forum_info(0)&"','系统消息：您的工资','"&checkSTR(savemessage)&"',Now(),0,1)")
          end if
		end if
%>
	<tr>
        <td rowspan=2 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 rowspan=2 class=tablebody1 align=center><%=BoardName%></td>
        <td class=tablebody2 >发薪：<%=FormatDateTime(Bgzday,2)%></td>
        <td  class=tablebody1>本期：<font color=blue><%=Bnumlog%></font></td>
   		<td class=tablebody2>维护量：<font color=blue><%=Bnumgz%></font></td>
        <td class=tablebody1 height=21 valign=top><img src=pic/xianhua.gif align=absmiddle alt=该版主上期工资<%if Rsf.eof then 
        response.write "0"
        else
        response.write Rsf("lastinfo")
        end if%>><font color=blue>积分：<%
         response.write "<b><font color=red>"&Btgz&"</font></b><font color=black>|</font>"
         if savemoney>0 then  
           response.write "工资：金钱(<b><font color=red>"&savemoney&"</font></b>)"
         elseif AbsentDay<=gzdays then
           response.write "工资：金钱(<b><font color=red>"&gzjbgz*Bcount&"</font></b>)"
         else
           response.write " <b><font color=red>此版主本期被停薪</font></b>"
         end if
         if savepower>0 then response.write "威望(<b><font color=red>"&savepower&"</font></b>)"
         if saveep>0 then response.write "经验(<b><font color=red>"&saveep&"</font></b>)"
         if savecp>0 then response.write "魅力(<b><font color=red>"&savecp&"</font></b>)"
           %></font></td>
     </tr>
     <tr>
            <td class=tablebody2 >登陆：<%=FormatDateTime(rsU("lastlogin"),2)%></td>
            <td  class=tablebody1 >失踪：<font color=blue><%=AbsentDay%></font></td>
    		<td class=tablebody2 >威　望：<font color=blue><%=userpower%></font></td>
            <td class=tablebody1 ><font color=#0080d5>评定：<%=Message%></font></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()
%>