📄 z_zvm_index.asp
字号:
end if
if finderror then
call z_err()
call web_end(0)
response.end
end if
sql="update [fuser] set IsLeave=true,Leave='"&Leave&"',LeaveTime=Now(),Leavedays='"&Leavedays&"' where username='"&login_username&"'"
connplus.execute(sql) '记录保存
sql="insert into [LeaveLog] (username,LeaveTime,LeaveDays,Leave) values ('"&login_username&"',Now(),'"&Leavedays&"','"&Leave&"')"
connplus.execute(sql) '日志保存
sucmsg="您所提交的 <font color=red>"&leavedays&"</font> 天请假申请己获受理<li>谢谢你对<font color=red>"&web_var(web_config,1)&"</font>始终如一的支持，辛苦了！好好休息一下"
call z_suc()
end sub
'=======取消请假======added by bigqiang
Sub CancelLeave()
dim sql,RsLeave
sql="update [fuser] set IsLeave=False,LeaveDays=0,IsSendMail=False where username='"&login_username&"'"
set RsLeave=connplus.execute(sql)
sql="update [leavelog] set CancelLeave=Now() where username='"&login_username&"' and CancelLeave=#2008-10-1#"
set RsLeave=connplus.execute(sql)
sucmsg="<font color=red><li>您的假期已经顺利取消，欢迎回来！</font>"
set RsLeave=nothing
call z_suc()
End sub
'=======管理员检查请假日志======added by bigqiang
Sub CheckLeaveLog()
dim sql,RsLeave
if not (format_power(login_mode,0)="admin") then
Errmsg="<li><font color=red>仅授予管理员查看权限，请不要非法进入！</font>"
founderr=true
exit sub
end if
set RsLeave=connplus.execute("select * from [LeaveLog]")
%>
<BR>
<table cellSpacing=1 cellPadding=3 width="90%" border=1 bordercolor="#808080" style="border-collapse: collapse">
<tbody>
<tr>
<th vAlign="center" align="middle" colSpan="5" height="25">版主请假日志查询
</tr>
<tr height="20">
<td align="center" width=80>请假版主</td>
<td align="center" width=80>请假时间</td>
<td align="center" width=30>天数</td>
<td align="center" width=80>取消时间</td>
<td align="center" width="*">请假留言</td>
</tr>
<% do while not RsLeave.Eof
response.write "<tr>"
response.write "<td align='middle'>"&RsLeave("username")&"</td>"
response.write "<td align='middle'>"&RsLeave("LeaveTime")&"</td>"
response.write "<td align='middle'>"&RsLeave("LeaveDays")&"</td>"
if RsLeave("CancelLeave")=#2008-10-1# then
response.write "<td align=center><font color=red>仍在假期中</font></td>"
else
response.write "<td align=center>"&RsLeave("CancelLeave")&"</td>"
end if
response.write "<td >"&RsLeave("Leave")&"</td>"
RsLeave.MoveNext
response.write "</tr>"
response.write "<tr height='9'>"
response.write "<td colspan=5 align='right' height='4'> </td></tr>"
loop
set RsLeave=nothing
%>
<tr height="20">
<td colSpan="5"></td>
</tr>
<tr>
<td height=25 vAlign=middle colSpan=5 align=middle><a href=<%=rUrl%>><b>[返回版主评定]</a> <a href="?action=dellog" title="仅管理员进入" ><b>[删除假期已取消的记录]</b></a>
</tr>
</tbody>
</table>
<BR>
<%
End Sub
'=======删除假期已取消的日志记录=======
Sub DelLog()
dim sql
if not (format_power(login_mode,0)="admin") then
Errmsg="<li><font color=red>仅授予管理员删除日志权限，请不要非法进入！</font>"
founderr=true
exit sub
end if
connplus.execute("delete * from [LeaveLog] where CancelLeave<>#2008-10-1#")
sucmsg="<li><font color=red>按你要求，删除日志记录成功！</font>"
call z_suc()
End Sub
'=====要用到的函数====Added by bigqiang
sub z_suc() '调用成功
%>
<table cellspacing=1 cellpadding=3 align=center style="width:75%">
<tr><th height=25>操作成功讯息</th></tr>
<tr><td width="100%" ><b>操作成功：</b><br><br><li>你现下使用<%=web_var(web_config,1)%>的版主请假功能
<font color=navy><%=sucmsg%></font><br></td></tr>
<tr><td align=center height=26 ><a href=<%if rUrl="" or isnull(rUrl) then%><%=Request.ServerVariables("HTTP_REFERER")%><%else%><%=rUrl%><%end if%>>返回上一页</a></td></tr>
</table>
<%
end sub
sub z_err()
%>
<table cellspacing=1 cellpadding=3 align=center style="width:75%">
<tr><th height=25>操作错误讯息</th></tr>
<tr><td width="100%" ><b>产生错误的可能原因：</b><br><br><li>您是否仔细阅读了<a href="boardhelp.asp?forum_id=0">帮助文件</a>，可能您还没有登陆或者不具有使用当前功能的权限
<font color=red><%=errmsg%></font><br></td></tr>
<tr><td align=center height=26 ><a href=<%if rUrl="" or isnull(rUrl) then%><%=Request.ServerVariables("HTTP_REFERER")%><%else%><%=rUrl%><%end if%>>返回上一页</a></td></tr>
</table>
<%end sub
'======发送Email通知的函数=====
'Added by bigqiang. Modifed the usersms.asp written by fssunwin
Sub SMail(UserName,subject,body)
dim smaildate,sendname,sendbody,email,topic
dim mailbody
email=conn.execute("select UserEmail from [user_data] where username='"&Username&"'")
sendname=Username
smaildate=date()+time()
sendbody=trim(body)
topic=trim(request("subject"))
mailbody="<table><tr><td><br>收信者"&sendname&",您好:<br><br>"&sendbody&"<br><br><center><br><center> <A HREF="&Forum_info(3)&">"&web_var(web_config,1)&"<br></A><a href="&Forum_info(3)&"><img border='0' src='../logo.gif' width='88' height='31'></a><br><center> "&smaildate&"</td></tr></table>"
select case Cint(webmail(0))
case 1
call jmail(email,topic,mailbody)
case 2
call Cdonts(email,topic,mailbody)
case 3
call aspemail(email,topic,mailbody)
case else
dim SystemMessage,RsA
set RsA=conn.execute("select username from [user_data]")
SystemMessage="来自版主评定的系统消息："&web_var(web_config,1)&"不支持电子邮件发送，无法将一些情况有效通知版主。"
conn.Execute("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_var(web_config,3)&"','"&RsA(0)&"','系统消息：关于邮件发送','"&SystemMessage&"',Now(),1,false)")
set RsA=nothing
end select
end Sub
sub hy()
dim page,Pcount,totalrec,endpage
If Request("page") = "" or not isInteger(Request("page")) then
page = 1
Else
page = CINT(Request("page"))
End If
dim GlTime,sex
dim PageCount
set rs = server.CreateObject ("adodb.recordset")
sql="select username,tim,Sex,power,last_tim from [user_data] where login_num <= 1 and bbs_counter=0 and datediff('d',last_tim,date())>15 order by last_tim"
rs.open sql,conn,1,1
response.write "<BR>"
response.write "<table cellSpacing=0 cellPadding=3 border=1 bordercolor='#808080' style='border-collapse: collapse'>"
response.write "<tr>"
response.write "<th height=25 align=center colspan=6>会员登录情况</td>"
response.write "</tr>"
if rs.eof or rs.bof then
response.write "<tr><td colspan=6 height=30 align=center>所有会员全部比较热心！</td></tr>"
response.write "<tr>"
response.write "<td align=center height=25 colspan=6><a href=z_zvm_index.asp><font class=blue>[版主工作]</font></a></td>"
response.write "</tr>"
else
response.write "<tr>"
response.write "<td colspan=6 ><br>"
response.write " 欢迎光临 <font color=red>"&web_var(web_config,1)&"</font> ！<br><br>"
response.write " 这里列出的是只登录过一次，又没发表过任何文章的会员，看到这么多的人上黑名单真让人伤心！<br>"
response.write " 所以如果你打算只来一次的话，请不要注册了！<br>"
response.write " 这样即节省了数据库的空间，又省了你的时间，不是吗？<br><br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25>"
response.write "<td align=center>会员姓名</td>"
response.write "<td align=center>注册日期</td>"
response.write "<td align=center>消失天数</td>"
response.write "<td align=center>会员性别</td>"
response.write "<td align=center>会员门派</td>"
response.write "<td align=center>发送讯息</td>"
response.write "</tr>"
rs.AbsolutePage=Page
rs.PageSize=10 '每页显示数量
PageCount=0
totalrec=rs.recordcount
while (not rs.eof) and (not pagecount = rs.PageSize)
response.write "<tr height=25 align=center>"
response.write "<td align=center><a href=user_view.asp?username="&rs(0)&" target=""_blank"" title=""查看"&rs(0)&"的个人资料"">"&rs(0)&"</a></td>"
response.write "<td align=center>"&rs(1)&"</td>"
GlTime= datediff("d",rs(1),date())
response.write "<td align=center><b><font color=red>"&GlTime&"</font></b> 天</td>"
if rs(2)=true then
sex="男"
elseif rs(2)=false then
sex="女"
end if
response.write "<td align=center>"&sex&"</td>"
response.write "<td align=center>暂 无</td>"
response.write "<td align=center><a target=""_blank"" href=user_message.asp?action=write&accept_uaername="&rs("username")&"><img src=images/mail/msg.gif alt=给他留言 border=0></a></td>"
response.write "</tr>"
pagecount = pagecount + 1
rs.movenext
wend
response.write "<td height=25 COLSPAN=6><a href=z_zvm_index.asp><font color=blue>[版主工作]</font></a>"
response.write " 共 <b>"&rs.RecordCount&"</b> 人 第 <b>"&page&"</b> / <b>"&rs.PageCount&"</b> 页 分页："
if totalrec mod rs.PageSize=0 then
Pcount= totalrec \ rs.PageSize
else
Pcount= totalrec \ rs.PageSize+1
end if
if page > 4 then
response.write "<a href=""?action=hy&page=1"">[1]</a> ..."
end if
if Pcount>page+3 then
endpage=page+3
else
endpage=Pcount
end if
for i=page-3 to endpage
if not i<1 then
if i = clng(page) then
response.write " <font color=red>["&i&"]</font>"
else
response.write " <a href=""?action=hy&page="&i&""">["&i&"]</a>"
end if
end if
next
if page+3 < Pcount then
response.write "... <a href=""?action=hy&page="&Pcount&""">["&Pcount&"]</a>"
end if
response.write "</td>"
end if
response.write "</table><br>"
rs.Close
set rs = nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -