📄 allqdshow.asp
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:2643148 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="conn.asp"-->
<!--#include file="webinfo.asp"-->
<link href=./manager/left.css rel=stylesheet>
<script src="./manager/calendar.js"></script>
<script src="./manager/exportExcel.js"></script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table background=./manager/images/loginIn2.gif width=100%>
<tr>
<td align=center>
<img src=./manager/images/manberqdqt.GIF><br><a href=# onclick='history.back();'>【返回】</a>
<a href="#" onclick=window.print() style="cursor:hand">【打印本页】</a>
<a href="#" onclick="{if(confirm('注意：使用此功能前请保证ie浏览器安全选项中\n\n“对没有标记为安全的Active X 控件进行初始化和脚本运行”\n\n选项处于“启用”状态,否则此功能不可用！')){texportExcel();}return false;}" >【导出Excel】</a>
</td>
</tr>
</table>
<%
if isallqdshow=0 then
response.write "<Script>alert('系统没有开放签到查询功能！');window.close();</script>"
else
if session("qx")<6 then
act=request("act")
if act="" then
act="dft"
end if
if act="dft" then
thisyear=year(date())
thismonth=month(date())
thisday=day(date())
response.write"<center><form name='checkqdqt' method='post' action='?act=checkqdqt'>"
response.write"<table width=70% border=1 bordercolor=#0055aa id='tblData'>"
response.write"<tr><td colspan=2 class=tdhead align=center><img src='./images/checkarticle.gif'> 查询员工签到签退纪录</td></tr>"
response.write"<tr><td colspan=2 class=tdwhtimg align=center>选择查询条件: <input type='radio' name='selectcx' onclick='doselectcx(this.value);' value='name' >按员工姓名 <input type='radio' name='selectcx' onclick='doselectcx(this.value);' value='ftime'>按时间 <input type='radio' name='selectcx' onclick='doselectcx(this.value);' value='multime' >按时间段</td></tr>"
response.write"<tr><td class=td1 align=center><input type=text name='tj' class=ibox value='输入查询条件' onclick='doselectcxsubmit();' onkeyup='doselectcxsubmit();' disabled ></td>"
response.write"<td class=td1 align=center><select name='fyear' disabled>"
for i=0 to 100
fyeara=2007+i
if fyeara=thisyear then
response.write"<option value="&thisyear&" selected>"&thisyear
else
response.write"<option value="&fyeara&">"&fyeara
end if
next
response.write"</select>年 <select name='fmon' disabled>"
for i=1 to 12
fmona=i
if fmona=thismonth then
response.write"<option value="&fmona&" selected>"&fmona
else
response.write"<option value="&fmona&">"&fmona
end if
next
response.write"</select>月 <select name='fdate' disabled>"
for i=1 to 31
fdays=i
if fdays=thisday then
response.write"<option value="&fdays&" selected>"&fdays
else
response.write"<option value="&fdays&">"&fdays
end if
next
response.write"</select>日</td></tr>"
response.write"<tr><td class=td2 align=center> 按时间段查询：</td> "
response.write" <td class=td2 align=center>起讫时间：<input type=text size=10 disabled readonly onclick='calendar(document.all.starttime);' name='starttime' id='starttime' value="&date()-30&" >-<input type=text size=10 readonly disabled onclick='calendar(document.all.endtime);' name='endtime' id='endtime' value="&date()&" > <input type=button onclick='doselectcxsubmit2()' value='ok' class='ibox' name='ok' disabled></td></tr>"
response.write"<tr><td colspan=2 class=td3 align=center><input type=submit name='suba' class=abox value='提交' disabled > <input type=reset name='res' class=abox value='重置' disabled ></td></tr>"
end if
if act="checkqdqt" then
selectcxradio=request("selectcx")
if selectcxradio="name" then
selecttjtext=request("tj")
sql="select id,realname from ct_sql where username='"&selecttjtext&"'"
rs.open sql,cn,1,1
if not rs.eof then
menberid=rs("id")
realname=rs("realname")
else
response.write "<script >alert('查无此人！');history.back();</script>"
end if
rs.close
response.write "<table width=95% align=center id='tblData'>"
response.write "<tr><td colspan=4 class=tdhead align=center>察看 "&selecttjtext&" ["&realname&"] 的签到纪录</td>"
response.write "<tr><td align=center width=10% class=tdwhtimg>页内ID</td><td align=center class=tdwhtimg>签到时间</td><td align=center class=tdwhtimg>签到IP</td><td align=center class=tdwhtimg>迟到时间</td></tr>"
sql="select qdtime,latttimes,qdip from qdzxrec where menberid="&menberid
qdviewnum=20 '''''''本页显示20条
rs.PageSize=qdviewnum
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
qdtimeids=1
rs.open sql,cn,1,1
if rs.eof then
response.write"<tr><td colspan=3 class=td3 align=center><font color=blue>没有记录！</td></tr>"
else
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
do while not rs.eof and qdviewnum>0
qdtime=rs("qdtime")
qdip=rs("qdip")
latttimes=rs("latttimes")
response.write "<tr><td align=center width=10% class=td1>"&qdtimeids&"</td><td align=center class=td2>"&qdtime&"</td><td align=center class=td1>"&qdip&"</td><td align=center class=td2>"&latttimes&"</td></tr>"
qdtimeids=qdtimeids+1
qdviewnum=qdviewnum-1
rs.movenext
loop
end if
response.write"</table>"
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=?act=checkqdqt&selectcx=name&tj="&selecttjtext&"&page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=?act=checkqdqt&selectcx=name&tj="&selecttjtext&"&page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=?act=checkqdqt&selectcx=name&tj="&selecttjtext&"&page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=?act=checkqdqt&selectcx=name&tj="&selecttjtext&"&page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
elseif selectcxradio="ftime" then
request_date=request("cxtime")
if request_date=empty then
fyear=request.form("fyear")
fmon=request.form("fmon")
fdate=request.form("fdate")
request_date=fyear & "-" & fmon & "-" & fdate
request_date=Format_Time(request_date, 2)
end if
request_dateview=Format_Time(request_date, 4)
response.write "<table width=95% align=center border=0 id='tblData'>"
response.write "<tr><td colspan=6 class=tdhead align=center>察看 "&request_dateview&" 的签到纪录</td>"
response.write "<tr><td align=center width=10% class=tdwhtimg>页内ID</td><td align=center class=tdwhtimg>员工账号</td><td align=center class=tdwhtimg>真实姓名</td><td align=center class=tdwhtimg>签到时间</td><td align=center class=tdwhtimg>签到IP</td><td align=center class=tdwhtimg>迟到时间</td></tr>"
sql="select * from qdzxrec where qddate=#"&request_date&"#"
qdviewnum=20 '''''''本页显示20条
rs.PageSize=qdviewnum
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
qdtimeids=1
rs.open sql,cn,1,1
if rs.eof then
response.write "<script >alert('数据库没有当天的纪录!');history.back();</script>"
else
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
do while not rs.eof and qdviewnum>0
qdtime=rs("qdtime")
qdip=rs("qdip")
latttimes=rs("latttimes")
menberid=rs("menberid")
sqlmenber="select username,realname from ct_sql where id="&menberid
rs4.open sqlmenber,cn,1,1
zh=rs4("username")
realname=rs4("realname")
rs4.close
response.write "<tr><td align=center width=10% class=td1>"&qdtimeids&"</td>"
response.write "<td align=center class=td2><a href=menberqdqt.asp?act=checkqdqt&selectcx=name&tj="&zh&" title='点击察看该人员签到纪录'>"&zh&"</a></td>"
response.write "<td align=center class=td1>"&realname&"</td>"
response.write "<td align=center class=td2>"&qdtime&"</td><td align=center class=td1>"&qdip&"</td><td align=center class=td2>"&latttimes&"</td></tr>"
qdtimeids=qdtimeids+1
qdviewnum=qdviewnum-1
rs.movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -