?? kq_ygqt.asp
字號:
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #include file="../inc/pubfun_a.inc" -->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>考勤簽退</title>
</head>
<body>
<div class="TitleBar">考勤簽退</div>
<table align="center" width="350" class="td1"><tr><td><table width=100% border=0 align=center cellpadding=2 cellspacing=1>
<%
Dim rs,bxx
bxx=false
set rs=server.CreateObject("ADODB.recordset")
rs.Open "Select * from kq_kqb " _
& "Where KQRQ='" & formatdatetime_activenew(now,"yyyy-mm-dd") & "' and ygbh=" & session("LoginID") ,oConn,1,1
if rs.EOF then
bxx=true
%>
<tr class=InputFrameLine>
<td align="center">★無法簽到！</td>
</tr>
<%else%>
<tr class=td2>
<td class=InputLabelCell" align="right" width="80">簽到時間 </td>
<td class=InputAreacell><%=rs("qdsj") & ""%> </td>
</tr>
<tr class=td2>
<td class=InputLabelCell" align="right" width="80">簽退時間 </td>
<td class=InputAreacell>
<%
if rs("qtsj") & ""="" then
Response.Write "未簽退"
else
Response.Write rs("qtsj")
end if
%>
</td>
</tr>
<%
end if
rs.Close
set rs=nothing
oConn.close
set oConn=nothing
%>
<%if not bxx then%>
<tr class=td2>
<td align="center" colspan="4">
<input type="button" class="button" value="點此簽退" onclick="javascript:location.href='kqqt.asp'" id="bQT">
<input type="button" class="button" value="返回" id=bnew name=bnew onclick='vbscript:location.href="../office/officemain.asp"'>
</td>
</tr>
<%end if%>
</table></td></tr></table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -