📄 shenhe.asp
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:214297587 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<title>考勤评分系统后台 by 野马</title>
<!--#include file="check.asp"-->
<!--#include file="MD5.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=../css.css rel=stylesheet>
<body background="../back.gif" style='cursor:url("Mouse.ani")'>
<!--#include file="config.asp"-->
<%
if session("qx")>4 then
response.write "对不起，您没有操作权限！"
else
%><center>
<table>
<tr>
<td height="30" colspan="3" align="center" bgcolor=#eeeeee>所有<font color="#FF0000">未审核</font>人员资料<br>
[系统设置每页显示<font color=red><%=shenhenum%></font>条数据] <br>
系统默认审核通过人员密码为123456，修改请直接输入数值</td>
</tr>
<tr>
<td width="6%"> </td>
<td width="90%" align="center"><table width="100%" height="94" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align=center>
<%
rs.PageSize=shenhenum
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from scunews where noshenhe=0"
rs.Open sql,cn,1,1
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
if (rs.eof and rs.bof) then
response.write "<br><br><font color=red size=5>没有记录<br><br></font>"
else
%><form action="shenhe_do.asp?act=shenhe" method="post" name=shenhe>
<table border=1 bordercolor=#3399ff bgcolor=#ffeeee>
<tr>
<td align=center bgcolor=#eeeeee >姓名</td>
<td bgcolor=#eeeeee align=center >账号状态</td>
<td bgcolor=#eeeeee align=center >输入通过密码</td>
<td bgcolor=#eeeeee align=center >操作</td>
</tr>
<% do while not rs.eof and shenhenum>0
name=rs("username")
lockstaut=rs("lock")
id=rs("id")
uncerten=rs("uncerten")
ucbk=rs("uncertenback")
%>
<tr>
<td align=center>
<b ><%=name %></b >
</td>
<td align=center><% if uncerten=1 then %><font color=blue>站长审核</font><%elseif noshenhe=0 then%>
<font color=red>等待审核</font></a>
<%end if%>
</td>
<td bgcolor=#eeeeee align=center ><input type=text size=8 name=pass <% if uncerten=1 then %> disabled <%end if%>value=123456></td>
<td alogn=center>
<% if session("qx") <>1and uncerten=1 then %>已经提交给站长进一步审核！<%elseif session("qx") =1 then %>
<input type=hidden value=<%=id%> name=aid>
<input type=submit onclick="{if(confirm('确定通过审核?')){return true;}return false;}" value=确定审核 class=ibox name=submit1>
<% if session("qx") < 3 then %>||
<a href="shenhe_do.asp?act=del&aid=<%=id%>" onclick="{if(confirm('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}" >坚决删除</a> <%end if%>
<%else%>
<input type=hidden value=<%=id%> name=aid>
<input type=submit onclick="{if(confirm('确定通过审核?')){return true;}return false;}" value=通过审核 class=ibox name=submit1>
<% if session("qx") < 3 then %>||
<a href="shenhe_do.asp?act=del&aid=<%=id%>" onclick="{if(confirm('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}" >删除</a> <%end if%> <% if session("qx")>1 then %>||<a href="shenhe_do.asp?act=submit&aid=<%=id%>" onclick="{if(confirm('确认提交')){return true;}return false;}" >无法决定，提交给站长</a><%end if%>
<%end if%>
</td>
</tr>
<% rs.movenext
shenhenum=shenhenum-1
loop
response.write"</table> </form>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=shenhe.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=shenhe.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=shenhe.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=shenhe.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
end if
%>
<% if session("qx") =1 then %><a href=shenhe_do.asp?act=allpass onclick="{if(confirm('确定全部通过审核?')){return true;}return false;}">[全部审核通过，密码为123456]</a><% end if%>
</td>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -