📄 kq_ygqt.asp

📁 OFFICE办公自动化

💻 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">签到时间&nbsp;</td>
		<td class=InputAreacell><%=rs("qdsj") & ""%>&nbsp;</td>
	</tr>
	<tr class=td2>
		<td class=InputLabelCell" align="right" width="80">签退时间&nbsp;</td>
		<td class=InputAreacell>
<%
	if rs("qtsj") & ""="" then
		Response.Write "未签退"
	else
		Response.Write rs("qtsj")
	end if
%>
		&nbsp;</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 + -