📄 z_zvm_index.asp
字号:
canclemessage="系统消息：您被解除版主职务,由于您的假期超过您所申请的时间，而且在系统额外提供的"&LeaveTimeout&"天保留期内没有及时登录，长时间没履行版主职责，你已经被降为注册会员，请与站长联系！"
end if
conn.Execute("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_var(web_config,3)&"','"&Username&"','系统消息：您被解除版主职务','"&canclemessage&"',Now(),1,false)")
connplus.execute("delete * from [fuser] where username='"&Username&"'")
end if
BoardName=""
Bcount=0
do while not RsB.eof
forumid=rsb("forum_id")
if RsB("forum_power")<>"" then
masterlist=split(RsB("forum_power"),"|")
for i=0 to ubound(masterlist)
if instr(masterlist(i),UserName) then
Bcount=Bcount+1
if BoardName="" then
BoardName="<option value="&left(RsB("forum_name"),8)&">"&left(RsB("forum_name"),8)&"</option><br>"
else
BoardName=boardname&"<option value="&left(RsB("forum_name"),8)&">"&left(RsB("forum_name"),8)&"</option><br>"
end if
end if
next
end if
RsB.movenext
loop
RsB.movefirst
if BoardName="" then BoardName="-------"
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,oldarticle) values('"&UserName&"',date()-1,"&Rstmp(0)&","&RsU("login_num")&","&bbs_counter&")")
end if
set Rsl=conn.execute("select count(*) from [log] where l_username='"&UserName&"'")
if RsF.eof then
Bnumgz=0
Bnumlog=0
Barticle=0
Bgzday=(date()-1+gzdays)
else
' Bnumgz=cint(Rsf("oldlogs"))
Bnumgz=cint(Rsl(0)-Rsf("oldlogs"))
Bnumlog=cint(RsU("login_num")-Rsf("oldlogins"))
Bgzday=(RsF("Fulidate")+gzdays)
Barticle=(RsU("bbs_counter")-Rsf("oldarticle"))
end if
'积分计算公式
if gziflogins<>"1" then gzplogins=0
if gzifarticle<>"1" then gzparticle=0
if gziflogs<>"1" then gzplogs=0
Btgz=(Bnumlog*gzplogins+Barticle*gzparticle+Bnumgz*gzplogs)
if AbsentDay<=gzdays then
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
end if
if savemoney>0 and RsU("power")="super" or RsU("power")="guan" then savemoney=cint(savemoney+gzsuperfj)
if savemoney>0 and RsU("power")="admin" then savemoney=cint(savemoney+glygz)
if savemoney=0 and RsU("power")="super" then savemoney=cint(gzsuperfj)
if savemoney=0 and RsU("power")="guan" then savemoney=cint(gzsuperfj)
if savemoney=0 and RsU("power")="admin" then savemoney=cint(glygz)
else
savemoney=0
' savepower=0
saveep=0
savecp=0
end if
if IsLeave then savemoney=0 'Added by bigqiang
if date()>=Bgzday and not RsF.eof and savemoney>0 then
savemessage="("&FormatDateTime(Rsf("Fulidate"),2)&"至"&FormatDateTime(Bgzday,2)&")：工作积分("&cint(Btgz)&")，金钱("&savemoney&")，积分("&saveep&")，魅力("&savecp&")"
connplus.execute("update [fuser] set Fulidate=date(),oldlogs="&Rsl(0)&",oldlogins="&RsU("login_num")&",lastinfo='"&savemessage&"',oldarticle="&Rsu("bbs_counter")&" where username='"&Username&"'")
' connplus.execute("update [fuser] set Fulidate=date(),oldlogins="&RsU("login_num")&",lastinfo='"&savemessage&"',oldarticle="&Rsu("bbs_counter")&" where username='"&Username&"'")
conn.execute("update [user_data] set emoney=emoney+"&savemoney&",integral=integral+"&saveep&",usercp=usercp+"&savecp&" where username='"&Username&"'")
if gzifmess="1" then
savemessage=savemessage&"。 再次对您为本站所做工作表示感谢！继续努力呦:)"
conn.Execute("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_var(web_config,1)&"','"&Username&"','系统消息：您的工资','"&savemessage&"',Now(),1,false)")
end if
end if
%>
<tr>
<td rowspan=2 align=center><%=tubiao%></td>
<td rowspan=2 align=center><a href=user_view.asp?username=<%=UserName%> target=_blank title="查看<%=UserName%>的讯息"><%if login_username=username then%><font color=blue><%end if%><%=UserName%></a><a href=user_message.asp?action=write&accept_uaername=<%=UserName%> target=_blank title="给<%=UserName%>发短信"><img src=images/mail/msg.gif border=0 alt=给<%=UserName%>发短信></a><%if Rsu("power")="guan" then%><br><font color=#556600>（版主）</font><%end if%><%if Rsu("power")="super" then%><br><font color=#556600>（总版主）</font><%end if%><%if Rsu("power")="admin" then%><br><font color=#5566ff>（管理员）</font><%end if%><br><font color=#0080d5><%=flowers%></font></td>
<td rowspan=2 align=center>
<select name=groupname>
<%=BoardName%>
</select>
</td>
<td rowspan=2 align=center><img src=images/small/mini_write.gif align=absmiddle alt=已发表文章和回复共<%=Article%>篇><font color=red><%=Article%></font>篇</td>
<td >发薪日：<%=FormatDateTime(Bgzday,2)%></td>
<td >本期：<font color=blue><%=Bnumlog%></font></td>
<td >维护量：<font color=blue><%=Bnumgz%></font></td>
<td height=21 valign=top><img src=images/small/mini_write.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>"&cint(Btgz)&"</font></b> <font color=black>|</font> "
if AbsentDay<=gzdays and (not IsLeave) then
response.write "工资：金钱(<b><font color=red>"&savemoney&"</font></b>)"
elseif IsLeave then
response.write " <b><font color=red>此版主停薪留职</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 >最后登陆：<%=FormatDateTime(rsU("last_tim"),2)%></td>
<td >失踪：<font color=blue><%=AbsentDay%></font></td>
<td >发贴量：<font color=blue><%=Barticle%></font></td>
<td ><font color=#0080d5>评定：<%=Message%></font></td>
</tr>
<tr height=9><td colspan=8 height=4 align=right> </td></tr>
<%
'end if
p=p+1
RsU.movenext
if p>= rsu.PageSize then exit do
loop
response.write "<tr><td colspan=2 align=center>"
response.write "<a href=z_zvm_index.asp?action=hy><font color=blue>[会员情况]</font></a>"
response.write "</td><td colspan=6>"
response.write ""
response.write "</td></tr>"
response.write "<tr height=20><td colspan=8>"
set rs1=conn.execute("select username from [user_data] where datediff('d',last_tim,date())>"&autocday&" ")
if not rs1.EOF then
response.write "<marquee scrolldelay=200 scrollamount=4 onmouseout=""if (document.all!=null){this.start()}"" onmouseover=""if (document.all!=null){this.stop()}"">"
do while not rs1.EOF
response.Write "<a href=""user_view.asp?username="&rs1("username")&""">"&rs1("username")&"</a>，"
rs1.MoveNext
loop
response.write "以上版主超过"&autocday&"天未登陆，已经严重失职，将被本考评室终止版主资格！</MARQUEE>"
set rs1=nothing
end if
response.write "</td></tr>"
response.write " <tr><td height=25 valign=middle colspan=5 align=left style='font-weight:normal' colspan=2> ◇ <font color=red>"&web_var(web_config,1)&"</font> 目前共有版主 <font color=red>"&rsu.RecordCount&"</font> 人，第 <font color=red>"&pagecount&"</font> 页，共 <font color=red>"&rsu.PageCount&"</font> 页</td>"
response.write "<td height=25 valign=middle colspan=3 align=right style='font-weight:normal' >"
set RsLeave=connplus.execute("select IsLeave from [fuser] where username='"&login_username&"'")
if format_power(login_mode,0)="admin" then
response.write "<a href=?action=checkleavelog title='仅限于管理员查询'>[请假日志]</a>"
end if
if format_power(login_mode,0)="super" or format_power(login_mode,0)="admin" or format_power(login_mode,0)="guan" then
response.write "<a href=?action=leave title='非版主勿进'>[版主请假]</a>"
response.write "<a href=?action=cancelleave title='非版主勿进'>[取消请假]</a>"
end if
set RsLeave=nothing
if format_power(login_mode,0)="admin" then response.write "<a href=z_zvm_index.asp?action=reset title='站长注意：只有在你清空了管理日志log表后，才需要进行此项操作'>[重建工资数据]</a> "
if pagecount>1 then response.write "<a href=z_zvm_index.asp?pagecount=1>[首页]</a> <a href=z_zvm_index.asp?pagecount="&(pagecount-1)&">[上页]</a> "
if pagecount<Rsu.pagecount then response.write "<a href=z_zvm_index.asp?pagecount="&(pagecount+1)&">[下页]</a> <a href=z_zvm_index.asp?pagecount="&RsU.PageCount&">[尾页]</a>"
%>
</td>
</tr>
</table>
<BR>
<%rsU.close
end sub
'===========版主请假=======Added by bigqiang 2003-6-3
sub Leave()
dim RsA,i
set RsA=connplus.execute("select IsLeave from [fuser] where username='"&login_username&"'")
if RsA.Eof then
errmsg="<font color=red><li>你不是版主，这是版主请假的地方<li>请不要从外部非法提交而非法获得你的资料</font>"
set RsA=nothing
call z_err()
call web_end(0)
response.end
elseif RsA(0)=true then
errmsg="<font color=red><li>对不起你已经请过假了，如果要取消请假请重新进入版主评定<li>请不要从外部提交你的申请<li>请不要重复刷己经提交的页面</font>"
set RsA=nothing
call z_err()
call web_end(0)
response.end
end if
%>
<form method="POST" action="?action=saveleave">
<table cellpadding=3 cellspacing=1 align="center">
<tr height=20>
<th valign=middle align=center height=25 colspan="3">版 主 请 假</th>
</tr>
<tr>
<td rowspan=2 align="left" width=40%><center><B>注 意</B></center>
<ol><li>版主请假期满后注意要手动取消假期
<li>版主在假期过后仍未登录的，则将发送mail通知，三日后仍置之不理则删除
<li>版主请假在15天以上者可在此中请，最高时限为30天。
<li>版主请假后，第二周不会发放请假当周的工资；版主取消请假后，版主工资会从请假当周开始算
<li>请假理由不要超过200个字
</ol>
</td>
<td align="center"><B>请假事由</B></td>
<td align="left">
<textarea rows="8" name="S1" cols="50"></textarea>
</td>
</tr>
<tr>
<td align="center"><B>请假天数</B></td>
<td align="left">
<select size="1" name="D1">
<%
for i=15 to 30
response.write "<option>"&i&"</option>"
next
%>
</select>天
</td>
</tr>
<tr>
<td colspan="3" height=10>
<p align="center"><input type="submit" value="提交" name="B1">
<input type="button" value="重置" name="B2"></td>
</tr>
</table>
</form>
<%
set RsA=nothing
end sub
'======保存接收请假要求=======Added by bigqiang 2003-6-3
sub saveleave()
dim leave,leavedays,finderror,sql
leavedays=request.form("D1")
leave=request.form("S1")
finderror=false
if len(leave)=0 then
errmsg="<font color=red><li>您要填写请假理由的，请假理由不能为空</font>"
finderror=true
end if
if len(leave)>=200 then
errmsg="<font color=red><li>请假理由的字数超过了200个字</font>"
finderror=true
end if
if leavedays<15 or leavedays>30 then
errmsg=errmsg&"<font color=red><li>你请假天数超出了规定的限制！</font>"
finderror=true
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -