📄 userindex.asp
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:2643148 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<script language=javascript>
<!--
function checkAll(){
for(i=0;i<document.usertable.chknum.length;i++){
document.usertable.chknum[i].checked=true;
}
}
function uncheckAll(){
for(i=0;i<document.usertable.chknum.length;i++){
document.usertable.chknum[i].checked=false;
}
}
function switchAll()
{
var num=document.usertable.chknum.length;
if(num>1)
{
for(var i=0;i<num;i++)
{
if(document.usertable.chknum[i].checked==false)
{
document.usertable.chknum[i].checked=true;
}
else
{
document.usertable.chknum[i].checked=false;
}
}
}
else
{
if(document.usertable.chknum.checked==false)
{
document.usertable.chknum.checked=true;
}
else
{
document.usertable.chknum.checked=false;
}
}
}
function checkptype(){
if (document.subptype.ptype.value==0){
document.subptype.ptypesub.value="请选择组别";
document.subptype.ptypesub.disabled=1;
}else{
document.subptype.ptypesub.value="查询";
document.subptype.ptypesub.disabled=0;
}
}
//-->
</script>
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=left.css rel=stylesheet>
<title><%=webver%>-人员管理 :<%=webver%>by 野马</title>
<%
if (session("qx")<4 and session("qx")>0)then
act=request("way")
if act="" then
act="dft"
end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/allinf.GIF>
<form action=?way=sigcheck method=post name=subptype>
<a href=adduser.asp>增加人员</a> |
<select name=ptype class=abox onchange='checkptype();'>
<option value=0>-按工作组快速查询-</option>
<%
sqltype="select type,typename from type"
rs2.open sqltype,cn,1,1
do while not rs2.eof
ptype=rs2("type")
pname=rs2("typename")
response.write "<option value="&ptype&">"&pname&"</option>"
rs2.movenext
loop
rs2.close
%>
</select> <input type=submit value=请选择 disabled class=ibox name=ptypesub></form>
</td></tr></table>
<p>
<%
if act="dft" then
num=backgl
rs.PageSize=num
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from ct_sql where noshenhe=1"
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 "<center>没有记录</center>"
else
response.write"<form name=usertable action='user_xiugai.asp?action=alldel' method=post><table border=1 bordercolor=#0055aa width=100% cellpadding=1 cellspacing=1 >"
response.write "<tr><td class=tdhead align=center><b>登陆帐号</b></td><td class=tdhead align=center><b>真实姓名</b></td><td class=tdhead align=center><b>工 作 组</b></td><td class=tdhead align=center > <b>签到设置组</b></td><td class=tdhead align=center > <b>本月签到</b></td><td class=tdhead align=center > <b>所有签到</b></td><td class=tdhead align=center><b>本月迟到</b></td><td class=tdhead align=center > <b>所有迟到</b></td><td class=tdhead align=center><b>操 作</b></td></tr>"
do while not rs.eof and num>0
pname=rs("username")
preal=rs("realname")
ptype=rs("type")
if ptype=0 then
tname="没有工作组"
else
sql2="select * from type where type="&ptype
rs1.open sql2,cn,1,1
tname=rs1("typename")
rs1.close
end if
monthqdnum=rs("monthqdnum")
allqdnum=rs("allqdnum")
monthlattertime=rs("monthlattertime")
alllattertime=rs("alllattertime")
ltype=rs("ltype")
id=rs("id")
monthfen=rs("monthfen")
allfen=rs("allfen")
autoqd=rs("auto")
if autoqd=0 then
autocn="自由签到"
else
sql="select setname from qdsetall where id="&autoqd
rsa.open sql,cn,1,1
autocn=rsa("setname")
rsa.close
end if
mustqdtime=rs("mustqdtime")
%>
<tr>
<td align=center class=td1>
<a href=viewmenber.asp?name=<%=pname%> title="点击察看详细资料" target=_blank><%=pname %></a>
</td>
<td align=center class=td2>
<%if ltype="组管理者" then%>
<b><%=preal%></b> [<span class=littlefont><%=ltype%></span>]
<%else%>
<%=preal %>
<%end if%>
</td>
<td align=center class=td1><font color=#ffffff><%=tname%> </font></td>
<td align=center class=td2><a href=qdset2.asp target=_blank><%=autocn%></a></td>
<td align=center class=td1><%=monthqdnum%></td>
<td align=center class=td2><b><%=allqdnum%></b></td>
<td align=center class=td1><%=monthlattertime%></td>
<td align=center class=td2><b>
<%if alllattertime=0 then
response.write "0"
else
response.write "<a href=latterc.asp?aid="&id&" target=blank>"&alllattertime&"</a>"
end if
%>
</b></td>
<td class=td1 align=center>
<% if allqdnum=0 then%>
<font color=#aaaaaa title='此人还没有签到纪录'>签到纪录</font>
<%else%>
<a href=menberqdqt.asp?act=checkqdqt&selectcx=name&tj=<%=pname%> title='点击察看该人员签到纪录'>签到纪录</a>
<%end if%>
<a href=user_xiugai.asp?id=<%=id%>&action=xiugai>修改</a>
<% if session("qx")=1 then %>
<a href=user_xiugai.asp?action=del&id=<%=id%>&name=<%=pname%> onclick="{if(confirm('确定删除?')){return true;}return false;}">删除</a> <input type=checkbox value=<%=id%> name=chknum><%end if%>
</td></tr>
<% rs.movenext
num=num-1
loop
%>
<tr><td colspan=12 align=right class=td3>
<input type=button value="全选" onClick="checkAll()" class=bbox>
<input type=button value="全否" onClick="uncheckAll()" class=bbox>
<input type=button value="反选" onClick="switchAll()" class=bbox>
<input type=submit value="删除所选" class=ibox onclick="{if(confirm('确定要删除所选?')){return true;}return false;}">
</td>
</tr></table>
</form>
<%
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 "
Response.Write "[<a href=?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
end if
if act="sigcheck" then
ptype=request.form("ptype")
num=backgl
rs.PageSize=num
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from ct_sql where noshenhe=1 and type="&ptype
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 "<center>没有记录</center>"
else
response.write"<form name='usertable' action='user_xiugai.asp?action=alldel' method=post><table border=1 bordercolor=#3399ff width=100% cellpadding=1 cellspacing=1 >"
response.write "<tr><td class=tdhead align=center><b>登陆帐号</b></td><td class=tdhead align=center><b>真实姓名</b></td><td class=tdhead align=center><b>工作组</b></td><td class=tdhead align=center > <b>签到设置</b></td><td class=tdhead align=center > <b>本月签到</b></td><td class=tdhead align=center > <b>所有签到</b></td><td class=tdhead align=center><b>本月迟到</b></td><td class=tdhead align=center > <b>所有迟到</b></td><td class=tdhead align=center><b>操 作</b></td></tr>"
do while not rs.eof and num>0
pname=rs("username")
preal=rs("realname")
ptype=rs("type")
if ptype=0 then
tname="没有工作组"
else
sql2="select * from type where type="&ptype
rs1.open sql2,cn,1,1
tname=rs1("typename")
rs1.close
end if
monthqdnum=rs("monthqdnum")
allqdnum=rs("allqdnum")
monthlattertime=rs("monthlattertime")
alllattertime=rs("alllattertime")
ltype=rs("ltype")
id=rs("id")
monthfen=rs("monthfen")
allfen=rs("allfen")
autoqd=rs("auto")
if autoqd=0 then
autocn="自由签到"
else
sql="select setname from qdsetall where id="&autoqd
rsa.open sql,cn,1,1
autocn=rsa("setname")
rsa.close
end if
mustqdtime=rs("mustqdtime")
%>
<tr>
<td align=center class=td2><a href=viewmenber.asp?name=<%=pname%> title="点击察看详细资料" target=_blank><%=pname %></a></td>
<td align=center class=td1>
<%if ltype="组管理者" then%>
<b><%=preal%></b> [<font color=#00ffcc><%=ltype%></font>]
<%else
response.write preal
end if%>
</td>
<td align=center class=td2> <font color=#ffffff><%=tname%> </font></td>
<td align=center class=td1> <a href=qdset2.asp target=_blank><%=autocn%></a></td>
<td align=center class=td2> <b><%=monthqdnum%></b></td>
<td align=center class=td1><font color=#00ffcc><b><%=allqdnum%></b></font></td>
<td align=center class=td2><b><%=monthlattertime%></b></td>
<td align=center class=td1><b><%=alllattertime%></b></td>
<td class=td2 align=center>
<% if allqdnum=0 then%>
<font color=#aaaaaa title='此人还没有签到纪录'>签到纪录</font>
<%else%>
<a href=menberqdqt.asp?act=checkqdqt&selectcx=name&tj=<%=pname%> title='点击察看该人员签到纪录'>签到纪录</a>
<%end if%>
<a href=user_xiugai.asp?id=<%=id%>&action=xiugai>修改</a>
<% if session("qx")=1 then %>
<a href=user_xiugai.asp?action=del&id=<%=id%>&name=<%=pname%> onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a><input type=checkbox value=<%=id%> name=chknum><%end if%>
</td></tr>
<% rs.movenext
num=num-1
loop
%>
<tr><td colspan=12 align=right class=td3>
<input type=button value="全选" onClick="checkAll()" class=bbox>
<input type=button value="全否" onClick="uncheckAll()" class=bbox>
<input type=button value="反选" onClick="switchAll()" class=bbox>
<input type=submit value="删除所选" class=ibox onclick="{if(confirm('确定要删除这些项目?')){return true;}return false;}">
</td>
</tr></table>
</form>
<%
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 "
Response.Write "[<a href=?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
end if
else
response.write "<script >alert('您不能进入此页面');window.close();</script>"
end if
%>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -