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