📄 kq_qjsq_add.asp
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #include file="../inc/pubfun_a.inc" -->
<script language="vbscript" src="..\js\pubfun_a_c.vbs"></script>
<script language="javascript" src="../js/fun_Script.js"></script>
<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">
<!--
sub doSave
dim ssqzw
frmxx.yjkssj.value=trim(frmxx.yjkssj.value)
frmxx.yjjssj.value=trim(frmxx.yjjssj.value)
frmxx.sqsy.value=trim(frmxx.sqsy.value)
if frmxx.jb.value="" then
msgbox "必须选择假别",vbInformation ,"提示"
exit sub
end if
if not isdate(frmxx.yjkssj.value) then
msgbox "预计开始时间必须输入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm-dd hh:nn"),vbInformation,"提示"
frmxx.yjkssj.focus
exit sub
end if
frmxx.yjkssj.value=formatdatetime_activenew(frmxx.yjkssj.value,"yyyy-mm-dd hh:nn")
if not isdate(frmxx.yjjssj.value) then
msgbox "预计结束时间必须输入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm-dd hh:nn"),vbInformation,"提示"
frmxx.yjjssj.focus
exit sub
end if
frmxx.yjjssj.value=formatdatetime_activenew(frmxx.yjjssj.value,"yyyy-mm-dd hh:nn")
if frmxx.yjjssj.value<frmxx.yjkssj.value then
msgbox "预计开始时间必须早于预计结束时间",vbInformation,"提示"
frmxx.yjkssj.focus
exit sub
end if
if frmxx.sqzw.value="" then
msgbox "必须选择申请职务",vbInformation ,"提示"
exit sub
else
ssqzw = left(frmxx.sqzw.value,instr(1,frmxx.sqzw.value,"/")-1)
end if
dim strsplj
'msgbox "../share/pop_xzsplj.asp?sqzw=" & ssqzw &"&sqbm=" & frmxx.sqbm.value & "&sqlb=08"
frmxx.bBC.style.display="none"
strsplj = popdialog("../share/pop_xzsplj.asp?sqzw=" & ssqzw &"&sqbm=" & frmxx.sqbm.value & "&sqlb=08","300px","300px")
if trim(strsplj)="none" then
msgbox "该申请单没有选择相对应的审批流程，无法提交！",vbExclamation,"提示"
frmxx.bBC.style.display="inline"
exit sub
end if
if trim(strsplj)="noall" then
msgbox "没有为当前申请设置任何对应的审批流程，无法提交！您可以尝试选择其他的申请职位后再提交。",vbExclamation,"提示"
frmxx.bBC.style.display="inline"
exit sub
end if
frmxx.splc.value=strsplj
frmxx.sqzw.options(frmxx.sqzw.selectedIndex).value = ssqzw
frmxx.submit
end sub
function fun_chgzw()
dim funsqbm
funsqbm = mid(frmxx.sqzw.value,instr(1,frmxx.sqzw.value,"/")+1)
frmxx.sqbm.value = funsqbm
end function
//-->
</script>
</head>
<body>
<div class="TitleBar">请假单信息</div>
<%
Response.Expires=0
Dim rs
set rs=server.CreateObject("ADODB.recordset")
dim sygbh
sygbh=session("LoginID")
dim skqyqsrq
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")
rs.Close
%>
<table align="center" width="480" class="InputframeMain"><tr><td><table border=0 align=center cellpadding=0 cellspacing=0 style="Margin:5px 5px 5px 5px">
<form name="frmxx" id="frmxx" method="post" action="kq_qjsq_add_save.asp">
<input type="hidden" id="splc" name="splc">
<tr class=InputframeLine>
<td width=80 class='InputLabelCell' align=right>假别</td>
<td class="InputAreaCell" colspan="3">
<select id="jb" name="jb" rows="1">
<%
rs.Open "Select * from KQ_JBZD",oConn,1,1
do while not rs.EOf
%>
<option value="<%=rs("dm") & ""%>"><%=server.HTMLEncode(rs("mc") & "")%></option>
<%
rs.Movenext
loop
rs.Close
%>
</select>
</td>
</tr>
<%
rs.Open "Select Name,zw,ssbm from tbioaUser where ID=" & sygbh,oConn,1,1
dim szws,sName,ssqbm
ssqbm = ""
if not rs.EOf then
sName=rs("Name") & ""
szws=rs("zw") & ""
end if
rs.Close
%>
<tr class=InputframeLine>
<td width=80 class='InputLabelCell' align=right>申请人</td>
<td class="InputAreaCell"><%=server.HTMLEncode(sName)%></td>
<td width=80 class='InputLabelCell' align=right><nobr>职位[部门]</nobr></td>
<td class="InputAreaCell">
<select id="sqzw" name="sqzw" rows="1" onchange="vbscript:fun_chgzw()">
<%
if szws<>"" then
rs.Open "select a.zwbh,a.zwmc,a.bmbh,b.bmmc from oa_qx_zw a,rs_bmb b where a.bmbh=b.bmbh and a.zwbh in(" & szws & ")",oConn,1,1
do while not rs.EOf
if ssqbm & "" = "" then ssqbm = rs("bmbh")
%>
<option value="<%=rs("zwbh") & "/" & rs("bmbh")%>"><%=server.HTMLEncode(rs("zwmc") & "[" & rs("bmmc") & "]")%></option>
<%
rs.MoveNext
loop
rs.Close
end if
%>
</select>
<input type="hidden" id="sqbm" name="sqbm" value="<%=ssqbm%>">
</td>
</tr>
<tr class=InputframeLine>
<td width=80 class='InputLabelCell' align=right><nobr>预计开始时间</nobr></td>
<td class="InputAreaCell"><input type="text" class="input" id="yjkssj" name="yjkssj" size="20" maxlength="20" value="<%=formatdatetime_activenew(now,"yyyy-mm-dd hh:nn")%>"></td>
<td width=80 class='InputLabelCell' align=right><nobr>预计结束时间</nobr></td>
<td class="InputAreaCell"><input type="text" class="input" id="yjjssj" name="yjjssj" size="20" maxlength="20" value="<%=formatdatetime_activenew(now,"yyyy-mm-dd hh:nn")%>"></td>
</tr>
<tr class=InputframeLine>
<td width=80 class='InputLabelCell' align=right>事由</td>
<td class="InputAreaCell" colspan="3"><textarea class=inputarea rows="3" cols="50" id="sqsy" name="sqsy"></textarea></td>
</tr>
<tr class=InputframeButtonLine>
<td align="center" colspan="4">
<input type="button" class="button" id="bBC" name="bBC" onclick="vbscript:doSave" value="确定">
<input type="button" class="button" id="bfH" name="bfH" onclick="javascript:location.href='kq_qjsq.asp';" value="返回">
</td>
</tr>
</form>
</table></td></tr></table>
<br>
<%
set rs=nothing
oConn.close
set oConn=nothing
%>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -