📄 userindex2.asp
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:2643148 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=left.css rel=stylesheet>
<title><%=webver%>-人员管理 :<%=webver%>by 野马</title>
<%ptype=session("ptype")
sql11="select typename from type where type="&ptype
rs1.open sql11,cn,1,1
tpname=rs1("typename")
rs1.close
if session("qx")<4 then
act=request("way")
if act="" then
act="dft"
end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% if act="dft" then %>
<center>
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/allinf.GIF><br>[当前察看组别：<%=tpname%>]
</td></tr></table>
<p>
<%
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"<table border=1 bordercolor=#0055aa width=100% cellpadding=1 cellspacing=1 >"
response.write "<tr><td class=tdhead align=center><b>ID号</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><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><b><%=id%></b></a></td>
<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%></font></a> [<font color=#00ffcc><%=ltype%>] </b>
<%else%>
<%=preal %>
<%end if%>
</td>
<td align=center class=td1 > <font color=#ffffff><%=tname%> </font></td>
<td align=center class=td2>
<%if autoqd=0 then %>
<font color=#00ffaa><%=autocn%></font></a>
<%else%>
<font color=#ffff00 title='当前设定签到时间为<%=mustqdtime%>'><%=autocn%></font>
<%end if%>
</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><font color=#ff6600><b><%=alllattertime%></b></font></td>
<td class=td1 align=center><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('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}">删除</a><%end if%>
</td></tr>
<% rs.movenext
num=num-1
loop
response.write"</table>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 "
Response.Write "[<a href=userindex.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=userindex.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=userindex.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=userindex.asp?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 + -