?? kq_sckqtj.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 + -