📄 kq_sckqtj.asp

📁 OFFICE办公自动化
💻 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 http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link rel="stylesheet" href="../css/main.css" type=text/css>
	<title>生成月考勤统计数据</title>
	<script language=vbscript src="..\js\pubfun_a_c.vbs"></script>
	<script language=vbscript>
	<!--
	    sub doSave
	        frmxx.tjny.value=trim(frmxx.tjny.value)
	        if not isdate(frmxx.tjny.value) then
	            msgbox "统计年月必须输入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm"),vbInformation,"提示"
	            frmxx.tjny.focus
	            exit sub
	        end if
	        frmxx.tjny.value=formatdatetime_activenew(frmxx.tjny.value,"yyyy-mm")
	        frmxx.submit
	    end sub
	//-->
	</script>
</head>
<body>

<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	rs.Open "select * from kq_csb",oConn,1,1
	if rs.EOF then
	  rs.Close
	  set rs=nothing
	  oConn.close
	  set oConn=nothing
	  Response.Write "未定义考勤参数"
	  Response.End
	end if
	skqyqsrq=rs("kqyqsrq")
	skqyqsbz=rs("kqyqsbz")
	scdsj1=rs("cdsj1")
	scdsj2=rs("cdsj2")
	scdsj3=rs("cdsj3")
	rs.Close
	set rs = nothing
	oConn.close
	set oConn = nothing
	dim scxsj	
	if now()>=cdate(formatdatetime_activenew(now,"yyyy-mm") & "-" & clng(skqyqsrq)) then
		select case cstr(skqyqsbz)
			case "1"					
				scxsj=formatdatetime_activenew(now,"yyyy-mm")					
			case "0"
				scxsj=formatdatetime_activenew(dateadd("m",1,now),"yyyy-mm")
		end select
	else
		select case cstr(skqyqsbz)
			case "0"
				scxsj=formatdatetime_activenew(now,"yyyy-mm")
			case "1"
				scxsj=formatdatetime_activenew(dateadd("m",-1,now),"yyyy-mm")
		end select	
	end if
	
%>
<div class="TitleBar">生成月考勤统计数据</div>
<br>
<table align="center"><tr><td><table border=0 align=center cellpadding=2 cellspacing=1 class="tab">
	<form name="frmxx" id=frmxx method="post" action="kq_sckqtj_do.asp">
	<tr>
		<td width=80 class=td2 align=right>统计年月</td>
		<td class=td2><input type=text class=input id=tjny name=tjny size=10 maxlength=7 value='<%=scxsj%>'></td>
		<td class=td2 align=right><input type=button class=button id=bBC name=bBC onclick="vbscript:doSave" value="生成"></td>
		<td class=td2 align=right><input type=button class=button id=bBC name=bBC onclick="javascript:location.href='kq_kqtjcx.asp'" value="返回"></td>
	</tr>
	</form>
</table></td></tr></table>
<br>
</body>
</html>
⌨️ 快捷键说明

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