z_zvm_index.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/conn.asp" -->
<!--#include file="z_zvm_conn.asp"-->
<%
response.buffer=true
    dim Gzdays,Gzlbt,Gzhmon,Gzwealth,Gzuserep,Gzusercp,Gzpower,Gzifmess,Gzjbgz,pagenum,sucmsg,errmsg
    dim gzifarticle,gzsuperfj,glygz,gzparticle,gzplogins,gzplogs,gziflogs,gziflogins,ifautocancel,autocday
    Gzdays=7		'工资日间隔，每7天发放一次
    gzifmess="1"	'发薪是否短信通知版主,0否1是
    pagenum=8		'每页工资条列出多少行

    Gzjbgz=50		'版主的每版实质工资
    gzsuperfj=100	'超级版主附加工资(无作用)
    glygz=200          '管理员附加工资
    ifautocancel="1"	'是否自动取消失职版主职务，1自动，0手动
    autocday=30		'超过多少天未登陆取消版主职务

    gzifarticle="1"	'积分计算公式是否计算发贴量，1计算，0不计算
    gzparticle=0.05	'发贴量计算系数，如100发贴，计入工作积分50
    gziflogins="1"	'积分计算公式是否计算登陆次数，1计算，0不计算
    gzplogins=0.005      '登陆次数计算系数，如登陆100*0.5，实际计入50
    gziflogs="1"        '积分计算公式是否计算维护量，1计算，0不计算
    gzplogs=1		'维护量计算系数，默认为1

    Gzlbt=20		'得到业绩工资所需工作积分底线
    gzhmon=20		'积分每增加多少涨一级业绩工资
    gzwealth=100	'一级业绩工资加多少钱
    gzuserep=50		'一级业绩工资加多少积分
    gzusercp=50		'一级业绩工资加多少魅力
    gzpower=1		'一级业绩工资加多少威望(无作用)

	dim LeaveTimeout,rUrl
	LeaveTimeout=7	'允许超过请假时限的最大天数
	rUrl="z_zvm_index.asp"	'调用成功和失败后可返回的位址

'------------按照你的实际需求修改以上参数-----
tit="版主评定"
call web_head(0,0,2,0,0)
page_power="1.2" 
	select case Request.QueryString("action")
		case "hy" 
			call hy()
		case "leave" 
			call Leave()
		case "saveleave"
			call saveleave()
		case "cancelleave"
			call CancelLeave()
		case "checkleavelog"
			call CheckLeaveLog()
		case "dellog"
			call DelLog()
		case else
			call start()
	end select
call web_end(0) 
'=========================================================
sub start()
	if request("action")="reset" and format_power(login_mode,0)="admin" and login_username<>"" then
		connplus.execute("delete * from [fuser]")
        Response.Redirect "z_zvm_index.asp"
	end if
	dim Absentday,pagecount,p,rs1,countnum,flowers,tubiao
	dim RsB,RsU,RsL,RsF,Rstmp,Bcount,Bgzday,Btgz,savemoney,saveep,savecp,savepower
	dim UserName,BoardName,article,Message,Bnumgz,Bnumlog,saveMessage,masterlist,Barticle
	
	dim IsLeave,RsLeave,LeaveTime,LeaveDays,RestDays,IsSendMail,IsDelete		'added by bigqiang

       If Request.QueryString("Pagecount") = "" or Request.QueryString("Pagecount") = 0 then
		 Pagecount = 1
       Else
         Pagecount = CINT(Request.QueryString("Pagecount"))
       End If
    p=0
   	set RsB=conn.execute("select forum_name,forum_power,forum_id from [bbs_forum]")
  	sql="select id,UserName,power,last_tim,bbs_counter,login_num from [user_data] where power='admin' OR power='super' OR power='guan' order by bbs_counter desc"
    set RsU=server.createobject("adodb.recordset")
       RsU.open sql,conn,1,1
       Rsu.PageSize = Pagenum
       If Pagecount>RsU.Pagecount Then
          Pagecount=RsU.Pagecount
       end if
%>
<table cellpadding=2 cellspacing=0 border="0" style="border-collapse: collapse" width="97%" height="1"><tr><td>&nbsp;</td></tr></table>
<table cellpadding=2 cellspacing=0 border="1" bordercolor="#808080" style="border-collapse: collapse" width="97%" height="5">
	<tr>
		<th valign=middle colspan=8 align=center height=25 width='100%'>
<SCRIPT LANGUAGE='JavaScript' SRC='style/fader.js' TYPE='text/javascript'></script>
<SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>
prefix="";
arNews = ["斑 竹 工 作 业 绩 公 示","","感谢各位版主对 <font color=red><%=web_var(web_config,1)%></font> 的大力支持，本站每 <fotn color=red><%=gzdays%></font> 天对各位版主进行积分奖励","","工作积分的计算公式为：(版主<%=gzdays%>天内<%
if gziflogins="1" then 
    response.write "登陆次数*"&cstr(gzplogins)
    if gzifarticle="1" or gziflogs="1" then response.write "+"
end if
if gzifarticle="1" then 
    response.write "本期发贴量*"&cstr(gzparticle)
    if gziflogs="1" then response.write "+"
end if
if gziflogs="1" then response.write "版面维护次数*"&cstr(gzplogs)%>)。","","实际给付工资为实质工资加上业绩工资","","版主的实质工资为<font color=red>每版<%=Gzjbgz%></font>元，超级版主另有<font color=red><%=gzsuperfj%></font>元附加奖励","","管理员除实质工资外，另有<font color=red><%=glygz%></font>元附加奖励","","工作积分超过 <font color=red><%=Gzlbt%></font> 点后给付业绩工资","","业绩工资计算方法：版主的工作积分每提升 <font color=red><%=gzhmon%> </font>点，奖励金钱<font color=red><%=gzwealth%></font>，积分<font color=red><%=gzuserep%></font>，魅力<font color=red><%=gzusercp%></font>","","看看您的工资条吧！","","请各位斑竹注意，超过<%=autocday%>天未登陆的斑竹将被取消斑竹资格","","感谢大家的支持！",""]
</SCRIPT>
<div id="elFader" style="position:relative;visibility:hidden; height:16" ></div>
</td>
	</tr>
	<tr height=20 width='100%'>
		<td  align="center" colspan=2 width='10%'>斑竹</td>
    	        <td  align="center">担任版块</td>
		<td  align="center" width='8%'>发贴数</td>
		<td  align="center" width='20%'>发薪/登陆日</td>
		<td  align="center" width='8%'>登陆</td>
		<td  align="center" width='10%'>维护量</td>
		<td  align="center" width='30%'>预期工资/评语</td>
	</tr>
<%rsu.AbsolutePage=pagecount
	do while not RsU.eof
		if Pagecount = 1 then
		countnum = countnum + 1
		select case countnum
			case 1		
				flowers="<img src=images/down/star5.gif align=absmiddle>"
			case 2
				flowers="<img src=images/down/star4.gif>"
			case 3 
				flowers="<img src=images/down/star3.gif>"
			case 4 
				flowers="<img src=images/down/star2.gif>"
			case 5
				flowers="<img src=images/down/star1.gif>"
			case else
				flowers=""
		end select
		else 
			flowers=""
		end if
if RsU("power")="" then 
                                bubiao="无"
elseif RsU("power")="admin" then
				tubiao="<img src=images/"&web_var(web_config,5)&"/icon_admin.gif alt=管理员 height=18 border=0>"
elseif RsU("power")="super" then
				tubiao="<img src=images/"&web_var(web_config,5)&"/icon_super.gif alt=总版主 height=18 border=0>"
elseif RsU("power")="guan" then
				tubiao="<img src=images/"&web_var(web_config,5)&"/icon_guan.gif alt=版主 height=18 border=0>"
end if

		AbsentDay=DateDiff("d",RsU("last_tim"),Now)	'缺席的天数
		article=RsU("bbs_counter")
		UserName=RsU("UserName")
		IsDelete=False
		set RsLeave=Connplus.execute("select IsLeave,LeaveTime,LeaveDays,IsSendMail,Leave from [fuser] where username='"&UserName&"'")
		if RsLeave.eof then 
			Connplus.execute("insert into [fuser] (username,FuLiDate) values ('"&UserName&"',date()-1)")
			set RsLeave=Connplus.execute("select IsLeave,LeaveTime,LeaveDays,IsSendMail,Leave from [fuser] where username='"&UserName&"'")
		end if
			dim Leave
			IsLeave=RsLeave(0)
			LeaveTime=RsLeave(1)
			LeaveDays=RsLeave(2)
			IsSendMail=RsLeave(3)
			Leave=RsLeave(4)
		set RsLeave=nothing		
		dim Email_Subject,Email_Body
		Email_Subject="'"&web_var(web_config,1)&"'通知：请尽快登录网站"
		if not Isleave then
			if AbsentDay>=Autocday-3 and not IsSendMail then	'提前三天通知即将删除的版主登录
				Email_Body="您已经有"&AbsentDay&"天没有登录网站了。请您尽快登录"&web_var(web_config,1)&"论坛，履行您的版主职责。如果三天内你仍不能登录，系统将鉴于您的工作繁忙的情况，于"&(date()+3)&"，解除您的版主职务。"
'				call SMail(UserName,Email_Subject,Email_Body)
				Connplus.Execute("update [fuser] set IsSendMail=true where username='"&UserName&"'")
			end if
			if AbsentDay =< 2  then
				if IsSendMail then Connplus.Execute("update [fuser] set IsSendMail=true where username='"&UserName&"'")
				Message="<font color=#0080d5><b>此版主比较勤快，值得嘉奖！</b></font>"
			elseif AbsentDay =< 7  then
				Message="<font color=#99cc00><b>此版主 <font color=#ff0000>7</font> 天之内有登录</b></font>"
			elseif AbsentDay =< 15 then
				Message="<font color=#ff6780><b>此版主 <font color=#ff0000>15</font> 天内有登录</b></font>"
			elseif AbsentDay =< 30 then
				Message="<font color=#ff6600><b>此版主<font color=#ff0000> "&AbsentDay&" </font>天以上未登录</b></font>"
			else
				Message="<b>此版主已<font color=#ff0000>严重失职</font>，将取消资格！<b>"
			end if
		else
			RestDays=DateDiff("d",Now,DateAdd("d",LeaveDays,LeaveTime))	'假期剩余天数
			if RestDays<=0 and not IsSendMail then
				Email_Body="由于您请假，您已经有"&AbsentDay&"天没有登录网站了,您的请假时间已经结束。请您尽快登录"&web_var(web_config,1)&"论<br>坛，履行您的版主职责。系统从即日起系统对您的版主资格提供"&LeaveTimeout&"天保留期。如果这段时间内你仍不能登录手动取消你的假期，系统会鉴于您工作的繁忙情况，将在"&LeaveTimeout&"天后，即"&(date()+LeaveTimeout)&"，解除您版主职务。"
'				call SMail(UserName,Email_Subject,Email_Body)
				Connplus.Execute("update [fuser] set IsSendMail=true where username='"&UserName&"'")
			end if
			if RestDays<=0-LeaveTimeout then
				Message="<font face=Webdings color=red>i</font><font color=blue>已超过请假假期的<font color=red><b>"&LeaveTimeout&"</b></font>天限制，已删除并EMail通知</font>"
				IsDelete=true
			elseif RestDays<0 then
				Message="<font face=Wingdings color=blue>i</font><font color=blue>超过请假天数，系统延长<font color=red><b>"&LeaveTimeout&"</b></font>天等待期后删除</font>"
			else
				Message="<font face=Wingdings color=blue>v</font><font color=blue><a title="&Leave&">已请假,还有<font color=red><b>"&RestDays&"</b></font>天假期</a></font>"
			end if
		end if
		
		if ifautocancel="1" and AbsentDay>autocday or IsDelete then
	    	dim VIPtitle
			VIPtitle="user"
			conn.execute("update [user_data] set power='"&VIPtitle&"' where username='"&Username&"'")	'取的是注册会员头衔，该会员下次登录时会自动更新正确头衔

'---------------------------------------------------
dim temp,post
do while not RsB.eof
if RsB("forum_power")<>"" then
	masterlist=split(RsB("forum_power"),"|")
	temp=-1
	for i=0 to ubound(masterlist)
		if instr(masterlist(i),UserName) then
			temp=i
			exit for
		end if
	next
	if temp<>-1 then
	if temp<>ubound(masterlist) then
		for i=ubound(masterlist) to 0 step -1
			if i=temp then
				post=post
			elseif i=ubound(masterlist) then
				post=masterlist(i)
			else
				post=masterlist(i)&"|"&post
			end if
		next
	else
		for i=ubound(masterlist)-1 to 0 step -1
			if i=ubound(masterlist)-1 then
				post=masterlist(i)
			else
				post=masterlist(i)&"|"&post
			end if
		next
	end if
	if ubound(masterlist)=0 then
	conn.execute("update [bbs_forum] set forum_power='' where forum_id="&rsb("forumid")&"")
	else
	conn.execute("update [bbs_forum] set forum_power='"&post&"' where forum_id="&rsb("forumid")&"")
	end if
	end if
end if
RsB.movenext
loop
RsB.movefirst
'--------------------------------------------------- 
			dim canclemessage
			canclemessage="系统消息：您被解除版主职务,由于您超过"&autocday&"天未履行版主职责，已经被降为注册会员，请与站长联系！"
			if IsLeave  then