kaoqinfdghmjnfhnetyhg.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 386 行 · 第 1/2 页
ASP
386 行
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor=""></td>
</tr>
<tr>
<td></td>
</tr>
<tr bgcolor="C6EBDE">
<td colspan="2" bgcolor="#FFFFFF"><div align="center"><img height=11 src="t/time.gif" width=11 align=absmiddle> <span class="style4" id="webasp_time"></span>
<script>setInterval("webasp_time.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt (new Date().getDay());",1000);</script>
</div>
</td>
</tr>
<tr bgcolor="C6EBDE">
<td colspan="2" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="50%"><span class="style21">上午时间段:<%=(r.Fields.Item("上午考勤起始时间").Value)%>-<%=(r.Fields.Item("上午考勤结束时间").Value)%></span></td>
<td width="50%"> </td>
</tr>
<tr>
<td><span class="style21">下午时间段:<%=(r.Fields.Item("下午考勤起始时间").Value)%>-<%=(r.Fields.Item("下午考勤结束时间").Value)%></span></td>
<td> </td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="left">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#669900">
<tr bgcolor="#B0E3B9">
<td width="18%" bgcolor="#B0E3B9"><div align="center" class="style14">姓 名</div></td>
<td width="19%"><div align="center" class="style14">部 门</div></td>
<td width="28%"><div align="center" class="style14">网 络 IP</div></td>
<td width="35%"><div align="left" class="style14">
<div align="left"> 状 态</div>
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="center"><span class="style12"><%= Session("names") %></span></div></td>
<td><div align="center"><span class="style12"><%= Session("bumen") %></span></div></td>
<td><div align="center"><span class="style12"><%=Request.ServerVariables("remote_ADDR")%></span></div></td>
<td>
<div align="center">
<% If Not rs.EOF Or Not rs.BOF Then %>
<%if rs("上午t")<=cdate(r("上午考勤起始时间")) then
session("shangwuresult")="上午早到" %>
<span class="style34">上午已考勤(早到)</span>
<% End If %>
<% End If %>
<% If Not rs.EOF Or Not rs.BOF Then %>
<%if rs("上午t")>=cdate(r("上午考勤起始时间")) and rs("上午t")<=cdate(r("上午考勤结束时间"))then
session("shangwuresult")="上午出勤" %>
<span class="style34">上午已考勤</span>
<% End If %>
<% End If %>
<% If Not rs.EOF Or Not rs.BOF Then %>
<%if rs("上午t")>cdate(r("上午考勤结束时间")) then %>
<span class="style38">上午迟到</span>
<% session("shangwuresult")="上午迟到"
End If %>
<% End If %>
<% If rs.EOF Then
if (time>=cdate(r("上午考勤起始时间")) and time<=#12:00#)or(time<cdate(r("上午考勤起始时间")) and time>#0:00#) then %>
<span class="style36">上午暂未考勤 </span>
<%end if%>
<%end if%>
<% If rs.EOF Then
if time>#12:00# then %>
<span class="style12"><span class="style38">上午缺勤</span> </span>
<%end if%>
<%end if%>
<span class="style19">|</span> <% If Not rs1.EOF Or Not rs1.BOF Then %>
<%if rs1("下午t")<cdate(r("下午考勤起始时间")) then %>
<span class="style38">考勤时间未到</span>
<% session("shangwuresult")="下午早退"
End If %>
<%if rs1("下午t")>cdate(r("下午考勤起始时间")) then %>
<span class="style34">下午已考勤</span>
<% session("shangwuresult")="下午晚走"
End If %>
<%if rs1("下午t")<cdate(r("下午考勤起始时间")) and rs1("下午t")>cdate(r("下午考勤起始时间")) then %>
<span class="style34">下午已考勤</span>
<%session("shangwuresult")="下午出勤"
End If %>
<%end if%>
<% If rs1.EOF Then
if time<=cdate(r("下午考勤起始时间")) then%>
<span class="style36">下午暂未考勤</span>
<% end if
end if%>
<% If rs1.EOF Then
if time>=cdate(r("下午考勤起始时间")) and time<=cdate(r("下午考勤结束时间")) then%>
<span class="style36">下午暂未考勤</span>
<% end if
end if%>
<% If rs1.EOF Then %>
<% if time>cdate(r("下午考勤结束时间")) then%>
<span class="style25"><span class="style32">下午迟到</span></span>
<strong>
<% end if%><% end if%>
</strong></div></td>
</tr>
<tr>
<td height="20" colspan="4" bgcolor="#FFFFFF"><div align="center">
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<div align="right"> <br>
<div id=his style=display:none ><textarea name="fuyan" cols="44" rows="5" id="fuyan"></textarea><a href="javascript:SummaryFromText()"></a><br> <a href="javascript:change(document.all.fuyan,-20)"><img src="../../../img/minus.gif" border=0 title="缩小文本框"></a> <a href="javascript:change(document.all.fuyan,20)"><img src="../../../img/plus.gif" border=0 title="放大文本框"></a></div>
<%
if time<cdate(r("上午考勤起始时间")) then
session("timeduan")="考勤时间未到1"
elseif time>=cdate(r("上午考勤起始时间")) and time<=#12:00# then
session("timeduan")="考勤时间未到3"
elseif time>=#12:00# and time<=#23:59:59# then
session("timeduan")="考勤时间未到2"
elseif date<rs("上午出勤") then
session("timeduan")="考勤时间已过"
end if
%>
<%if time<=#12:00# then %>
<input name="submit" type="submit" id="submit" onClick='return check();' value="上午考勤">
<%session("kq")="上午出勤"%>
<%end if%>
<%if time>#12:00# then %>
<input name="submit" type="submit" id="submit" value="下午考勤">
<%session("kq")="下午出勤"%>
<%end if%>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<br>
</div></td></tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="342" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="76"><a href="retome.asp" class="style23" >考勤记录</a></td>
<td width="76"> </td>
<td width="76"> </td>
<td width="76"> </td>
<td width="124"><a href="javascript:history.go(-1)"><img src="../../toall/gw/img/gif/back.gif" width="37" height="45" border="0"></a></td>
</tr>
</table>
<p> </p>
</form>
<p> </p>
<p> </p>
</div>
</body>
</html>
<%
r.Close()
Set r = Nothing
%>
<%
rs.Close()
Set rs = Nothing
%>
<%
rs1.Close()
Set rs1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?