📄 kq_kqcssz.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<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.sbsj.value=trim(frmxx.sbsj.value)
			frmxx.xbsj.value=trim(frmxx.xbsj.value)
			dim scd
			scd=formatdatetime_activenew(now,"yyyy-mm-dd ")
			if not isdate(scd & frmxx.sbsj.value) then
				msgbox "上班时间需要输入合法的时间,例如" & formatdatetime_activenew(now,"hh:nn"),vbInformation,"提示"
				frmxx.sbsj.focus
				exit sub
			end if
			frmxx.sbsj.value=formatdatetime_activenew(scd & frmxx.sbsj.value,"hh:nn")
			if not isdate(scd & frmxx.xbsj.value) then
				msgbox "下班时间需要输入合法的时间,例如" & formatdatetime_activenew(now,"hh:nn"),vbInformation,"提示"
				frmxx.xbsj.focus
				exit sub
			end if
			frmxx.xbsj.value=formatdatetime_activenew(scd & frmxx.xbsj.value,"hh:nn")
			if frmxx.xbsj.value<=frmxx.sbsj.value then
				msgbox "下班时间需要晚于上班时间",vbInformation,"提示"
				frmxx.xbsj.focus
				exit sub
			end if
			if not isnumeric(frmxx.cdsj1.value) then
				msgbox  "迟到早退时间1需要输入合法的数字",vbInformation,"提示"
				frmxx.cdsj1.focus
				exit sub
			end if
			if cdbl(frmxx.cdsj1.value)<0 or  cdbl(frmxx.cdsj1.value)>720 then
				msgbox  "迟到早退时间1需要输入0-720之间的数字",vbInformation,"提示"
				frmxx.cdsj1.focus
				exit sub
			end if
			frmxx.cdsj1.value=clng(frmxx.cdsj1.value)
			if not isnumeric(frmxx.cdsj2.value) then
				msgbox  "迟到早退时间2需要输入合法的数字",vbInformation,"提示"
				frmxx.cdsj2.focus
				exit sub
			end if
			if cdbl(frmxx.cdsj2.value)<0 or  cdbl(frmxx.cdsj2.value)>720 then
				msgbox  "迟到早退时间2需要输入0-720之间的数字",vbInformation,"提示"
				frmxx.cdsj1.focus
				exit sub
			end if
			frmxx.cdsj2.value=clng(frmxx.cdsj2.value)
			if not isnumeric(frmxx.cdsj3.value) then
				msgbox  "迟到早退时间3需要输入合法的数字",vbInformation,"提示"
				frmxx.cdsj3.focus
				exit sub
			end if
			if cdbl(frmxx.cdsj3.value)<0 or  cdbl(frmxx.cdsj3.value)>720 then
				msgbox  "迟到早退时间3需要输入0-720之间的数字",vbInformation,"提示"
				frmxx.cdsj3.focus
				exit sub
			end if
			frmxx.cdsj3.value=clng(frmxx.cdsj3.value)
			if clng(frmxx.cdsj3.value)<=clng(frmxx.cdsj2.value) then
				msgbox  "迟到早退时间3应大于迟到早退时间2",vbInformation,"提示"
				frmxx.cdsj3.focus
				exit sub
			end if
			if clng(frmxx.cdsj2.value)<=clng(frmxx.cdsj1.value) then
				msgbox  "迟到早退时间2应大于迟到早退时间1",vbInformation,"提示"
				frmxx.cdsj2.focus
				exit sub
			end if
			if not isnumeric(frmxx.kqyqsrq.value) then
				msgbox  "考勤月起始日期需要输入合法的数字",vbInformation,"提示"
				frmxx.kqyqsrq.focus
				exit sub
			end if
			if cdbl(frmxx.kqyqsrq.value)<1 or  cdbl(frmxx.kqyqsrq.value)>31 then
				msgbox  "考勤月起始日期需要输入1-31之间的数字",vbInformation,"提示"
				frmxx.kqyqsrq.focus
				exit sub
			end if
			frmxx.kqyqsrq.value=clng(frmxx.kqyqsrq.value)
			frmxx.submit
		end sub
	//-->
	</script>
</head>
<body>
<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim sygbh
	sygbh=session("LoginID")
	rs.Open "select * from kq_csb",oConn,3,2
	if rs.EOF then
		rs.AddNew 
		rs("sbsj")="8:00"
		rs("xbsj")="17:00"
		rs("cdsj1")=5
		rs("cdsj2")=30
		rs("cdsj3")=60
		rs("kqyqsrq")=25
		rs("kqyqsbz")="0"
		rs.Update
	end if
	dim ssbsj,sxbsj,scdsj1,scdsj2,scdsj3,skqyqsbz,skqyqsrq
	ssbsj=rs("sbsj")
	sxbsj=rs("xbsj")
	scdsj1=rs("cdsj1")
	scdsj2=rs("cdsj2")
	scdsj3=rs("cdsj3")
	skqyqsrq=rs("kqyqsrq")
	skqyqsbz=rs("kqyqsbz")
	rs.Close
	set rs=nothing
  oconn.close
  set oconn=nothing
%>
<div class="TitleBar">考勤参数设置</div>
<table align="center" width="480"><tr><td><table width=460 border=0 align=center cellpadding=2 cellspacing=1 class="tab" style="Margin:5px 5px 5px 5px">
	<form name="frmxx" id=frmxx method="post" action="kq_kqcssz_save.asp">
	<tr class=td1>
		<td width=100 class=InputLabelCell align=right>上班时间</td>
		<td class=InputAreaCell ><input type=text id=sbsj name=sbsj size=10 maxlength=5 value="<%=ssbsj%>">(hh:mm)</td>
		<td width=100 class=InputLabelCell align=right>下班时间</td>
		<td class=InputAreaCell ><input type=text id=xbsj name=xbsj size=10 maxlength=5 value="<%=sxbsj%>">(hh:mm)</td>
	</tr>
	<tr class=td1>
		<td width=100 class=InputLabelCell align=right>迟到早退时间 1</td>
		<td class=InputAreaCell ><input type=text id=cdsj1 name=cdsj1 size=10 maxlength=3 value="<%=scdsj1%>">分钟</td>
		<td width=100 class=InputLabelCell align=right>迟到早退时间 2</td>
		<td class=InputAreaCell ><input type=text id=cdsj2 name=cdsj2 size=10 maxlength=3 value="<%=scdsj2%>">分钟</td>
	</tr>
	<tr class=td1>
		<td width=100 class=InputLabelCell align=right>迟到早退时间 3</td>
		<td class=InputAreaCell colspan=3><input type=text id=cdsj3 name=cdsj3 size=10 maxlength=3 value="<%=scdsj3%>">分钟</td>
	</tr>
	<tr class=td1>
		<td width=100 class=InputLabelCell align=right>考勤月起始日</td>
		<td class=InputAreaCell ><input type=text id=kqyqsrq name=kqyqsrq size=10 maxlength=2 value="<%=skqyqsrq%>"></td>
		<td width=100 class=InputLabelCell align=right>考勤月起计标志</td>
		<td class=InputAreaCell >
			<select id=kqyqsbz name=kqyqsbz>
				<option value=0 <%if skqyqsbz<>"1" then Response.Write "selected"%>>从上月开始计算</option>
				<option value=1 <%if skqyqsbz="1" then Response.Write "selected"%>>从本月开始计算</option>
			</select>
		</td>
	</tr>
	<tr class=tdbottom>
		<td align="center" colspan="4">
			<input type=button class=button id=bBC name=bBC onclick="vbscript:doSave" value="确定">
		</td>
	</tr>
</form>
</table></td></tr></table>
<br>
</body>
</html>
⌨️ 快捷键说明

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