📄 kq_jbsq_add.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #include file="../inc/pubfun_a.inc" -->
<%call checkqx("0803")%> 
<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=javascript src="../js/fun_Script.js"></script>
	<script language=vbscript>
	<!--
		sub doSave
			frmxx.yjkssj.value=trim(frmxx.yjkssj.value)
			frmxx.yjjssj.value=trim(frmxx.yjjssj.value)
			frmxx.sqsy.value=trim(frmxx.sqsy.value)
			if frmxx.sqzw.value="" then
				msgbox "必须选择申请职务",vbInformation	,"提示"
				exit sub
			else
				ssqzw = left(frmxx.sqzw.value,instr(1,frmxx.sqzw.value,"/")-1)		
			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 not IsNumeric(frmxx.yjgs.value) then
				msgbox "预计工时需要输入数字",vbInformation,"提示"
				frmxx.yjgs.focus
				exit sub
			end if
			if cdbl(frmxx.yjgs.value)<0 then
				msgbox "预计工时需要输入大于0的数字",vbInformation,"提示"
				frmxx.yjgs.focus
				exit sub
			end if
			frmxx.yjgs.value=cdbl(frmxx.yjgs.value)
			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=09","400px","400px")
			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")
%>
<br>
<table align="center" width="480" class="InputFrameMain"><tr><td><table width=460 border=0 align=center cellpadding=0 cellspacing=0 style="Margin:5px 5px 5px 5px">
<form name="frmxx" id=frmxx method="post" action="kq_jbsq_add_save.asp">
	<input type=hidden id=splc name=splc>
	<%
		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>
					<!--<option value="<%=rs("zwbh")%>"><%=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><input type=text class=input id=yjgs name=yjgs size=20 maxlength=20 value='0'>小时</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_jbsq.asp';" value="返回">
		</td>
	</tr>
</form>
</table></td></tr></table>
<%
  set rs=nothing
  oConn.close
  set oConn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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