📄 p_kqtj.asp

📁 网络办公系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<%
dim a_time,p_time
sql="select * from oa_kqtime where companyid="&session("companyid")
set rs=conn.execute(sql)
if not rs.eof then
	a_time=trim(rs("a_time"))
	p_time=trim(rs("p_time"))
end if
rs.close
set  rs=nothing
'--------------------------------------------
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<script language="javascript" src="../../inc/meizzDate.js"></script>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style3 {color: #FFFFFF; font-weight: bold; }
body,td,th {
	font-size: 12px;
}
-->
</style>
</head>
<body>
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
  <tr align="right">
    <td width="17%" height="25" align="left" bgcolor="#CC0000"><span class="style1"><strong>个人考勤查询</strong></span></td>
    <td height="25" colspan="3" bgcolor="#CC0000">&nbsp;</td>
    </tr>
	<form name="myform" action="p_kqtj.asp" method="post">
  <tr bgcolor="#F9F9F9">
    <td height="25" align="right" bgcolor="#F2F2F2"><span class="ItemTitleFont">查询日期：</span> </td>
    <td height="25" colspan="2" align="left" bgcolor="#F2F2F2">
	<input name="startDate" type=text class="tabel1"  onFocus="setday(this)" size="10">
      到
      <input name="endDate" type=text class="tabel1" onFocus="setday(this)" value="<%=date()%>" size="10">
        <input name="Submit" type="submit" class="tabel1" value="提交">
        <input name="Submit2" type="reset" class="tabel1" value="重置">
        请选择时间段</td>
    <td height="25" align="left" bgcolor="#F2F2F2">&nbsp;</td>
  </tr></form>
  <tr bgcolor="#CC6633">
    <td height="25" align="center"><span class="style3">日期</span></td>
    <td width="30%" height="25" align="center"><span class="style3">上午上班时间</span></td>
    <td width="18%" height="25" align="center"><span class="style3">下午下班时间</span></td>
    <td width="35%" height="25" align="center"><span class="style3">备注</span></td>
    </tr>
	<%
		startDate=trim(request.Form("startDate"))
		endDate=trim(request.Form("endDate"))

		sql="select top 20 kq_rq,kq_am,kq_pm from oa_kq where uid="&session("adminid")
		if startDate <>"" and endDate <>"" then sql=sql & " and (kq_rq between '"&startDate&"' and '"&endDate&"')"
		sql=sql& " order by id desc"
		set rs=conn.execute(sql)
		do while not rs.eof
			if len(rs(1))>0 then
				am=FORMATDATETIME(rs(1),3)
			end if
			if len(rs(2))>0 then
				pm=FORMATDATETIME(rs(2),3)
			end if
		if datediff("n",a_time,am)<0 then
			txt1="迟到"
		else
			txt1="正常"	
		end if
		if isnull(pm) then
			txt2=""
		end if
		if datediff("n",a_time,pm)<0 then
			txt2="早退"
		else
			txt2="正常"	
		end if	
		txt=txt1&","&txt2
		
	%>
  <tr>
    <td height="25" align="center"><%=rs(0)%></td>
    <td height="25" align="center"><%=am%></td>
    <td height="25" align="center"><%=pm%></td>
    <td height="25" align="center"><%=txt%></td>
    </tr>
	<%
		rs.movenext
		loop
		rs.close
		set rs=nothing
	%>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -