📄 kq_jbsq_qr_edit.asp
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
dim ssqxh
ssqxh=Request.QueryString("sqxh")
if ssqxh & ""="" then
Response.Write "申请序号错误"
Response.End
end if
%>
<!-- #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.sjkssj.value=trim(frmxx.sjkssj.value)
frmxx.sjjssj.value=trim(frmxx.sjjssj.value)
frmxx.hzyj.value=trim(frmxx.hzyj.value)
if not isdate(frmxx.sjkssj.value) then
msgbox "实际开始时间必须输入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm-dd hh:nn"),vbInformation,"提示"
frmxx.sjkssj.focus
exit sub
end if
frmxx.sjkssj.value=formatdatetime_activenew(frmxx.sjkssj.value,"yyyy-mm-dd hh:nn")
if not isdate(frmxx.sjjssj.value) then
msgbox "实际结束时间必须输入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm-dd hh:nn"),vbInformation,"提示"
frmxx.sjjssj.focus
exit sub
end if
frmxx.sjjssj.value=formatdatetime_activenew(frmxx.sjjssj.value,"yyyy-mm-dd hh:nn")
if frmxx.sjjssj.value<frmxx.sjkssj.value then
msgbox "实际开始时间必须早于实际结束时间",vbInformation,"提示"
frmxx.sjkssj.focus
exit sub
end if
if frmxx.sjjssj.value>formatdatetime_activenew(now,"yyyy-mm-dd hh:nn") then
msgbox "实际结束时间必须早于当前时间",vbInformation,"提示"
frmxx.sjjssj.focus
exit sub
end if
if not IsNumeric(frmxx.sjgs.value) then
msgbox "实际工时需要输入数字",vbInformation,"提示"
frmxx.sjgs.focus
exit sub
end if
if cdbl(frmxx.sjgs.value)<0 then
msgbox "实际工时需要输入大于0的数字",vbInformation,"提示"
frmxx.sjgs.focus
exit sub
end if
frmxx.sjgs.value=cdbl(frmxx.sjgs.value)
frmxx.submit
end sub
//-->
</script>
</head>
<body>
<div class="TitleBar">加班确认</div>
<%
Dim rs,rs1
set rs=server.CreateObject("ADODB.recordset")
set rs1=server.CreateObject("ADODB.recordset")
dim sygbh
sygbh=session("LoginID")
dim syjkssj,syjjssj,ssjkssj,ssjjssj,shzqk,ssqr,ssqrxm,ssqzw,ssqzwmc,ssqsy,ssqsj,sspbz,syjgs,ssjgs,shzyj
rs.Open "select a.*,b.sqsy,b.sqr,b.sqzw,b.sqsj,b.spbz from oa_jbmx a,oa_sqjbxx b where a.sqxh=b.sqxh and a.sqxh=" & ssqxh,oConn,1,1
if rs.EOF then
rs.Close
set rs=nothing
set rs1=nothing
oConn.close
set oConn=nothing
Response.Write "未找到对应加班申请单"
Response.End
end if
syjkssj=rs("yjkssj") & ""
syjjssj=rs("yjjssj") & ""
ssjkssj=rs("sjkssj") & ""
ssjjssj=rs("sjjssj") & ""
syjgs=rs("yjgs") & ""
ssjgs=rs("sjgs") & ""
if ssjkssj="" then ssjkssj=syjkssj
if ssjjssj="" then ssjjssj=syjjssj
if cstr(ssjgs)="0" then ssjgs=syjgs
shzqk=rs("hzqk") & ""
shzyj=rs("hzyj") & ""
ssqr=rs("sqr") & ""
ssqzw=rs("sqzw") & ""
ssqsy=rs("sqsy") & ""
ssqsj=rs("sqsj") & ""
sspbz=rs("spbz") & ""
rs.Close
rs.Open "Select Name from tbioaUser where ID=" & ssqr,oConn,1,1
if not rs.eof then
ssqrxm=rs(0) & ""
end if
rs.Close
rs.Open "Select zwmc from oa_qx_zw where zwbh=" & ssqzw,oConn,1,1
if not rs.eof then
ssqzwmc=rs(0) & ""
end if
rs.Close
%>
<table align="center" width="570" class="InputFrameMain"><tr><td><table width=530 border=0 align=center cellpadding=0 cellspacing=0 style="Margin:5px 5px 5px 5px">
<form name="frmxx" id=frmxx method="post" action="kq_jbsq_qr_edit_save.asp">
<input type=hidden id=sqxh name=sqxh value="<%=ssqxh%>">
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>申请时间 </td>
<td class=InputAreaCell colspan=3> <%=server.HTMLEncode(ssqsj)%></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>申请人</td>
<td class=InputAreaCell> <%=server.HTMLEncode(ssqrxm)%></td>
<td width=80 class=InputLabelCell align=right>申请职位</td>
<td class=InputAreaCell> <%=server.HTMLEncode(ssqzwmc)%></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>预计开始时间</td>
<td class=InputAreaCell> <%=syjkssj%></td>
<td width=80 class=InputLabelCell align=right>预计结束时间</td>
<td class=InputAreaCell> <%=syjjssj%></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>实际开始时间</td>
<td class=InputAreaCell><input type=text class=input id=sjkssj name=sjkssj size=20 maxlength=20 value='<%=ssjkssj%>'></td>
<td width=80 class=InputLabelCell align=right>实际结束时间</td>
<td class=InputAreaCell><input type=text class=input id=sjjssj name=sjjssj size=20 maxlength=20 value='<%=ssjjssj%>'></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>预计工时</td>
<td class=InputAreaCell ><%=syjgs%>小时</td>
<td width=80 class=InputLabelCell align=right>实际工时</td>
<td class=InputAreaCell ><input type=text class=input id=sjgs name=sjgs size=20 maxlength=20 value='<%=ssjgs%>'>小时</td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>加班事由</td>
<td class=InputAreaCell colspan=3><%=replace(server.HTMLEncode(ssqsy),vbcr,"<br>")%></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=hzyj name=hzyj disabled><%=server.HTMLEncode(shzyj)%></textarea></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>审批状态</td>
<td class=InputAreaCell>
<%
select case sspbz
case "N"
Response.Write "未审批"
case "0"
Response.Write "审批中"
case "1"
Response.Write "审批同意"
case "2"
Response.Write "审批不同意"
case "3"
Response.Write "未同意且已退回"
end select
%>
</td>
<td width=80 class=InputLabelCell align=right>销假情况</td>
<td class=InputAreaCell>
<%
select case shzqk
case "0"
Response.Write "未销假"
case "1"
Response.Write "已销假未核准"
case "2"
Response.Write "核准不同意"
case "3"
Response.Write "核准同意"
end select
%>
</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:history.back();" value="返回">
</td>
</tr>
<tr class=InputFrameButtonLine><td align="center" colspan="4">
<table class="tableframe" width="100%">
<tr class=listtitle><td class="listcelltitle" align="center" colspan="4">审批记录</tr></td>
<tr class=listtitle align="center">
<td class="listcelltitle">审批人</td>
<td class="listcelltitle">审批时间</td>
<td class="listcelltitle">审批结果</td>
<td class="listcelltitle">审批意见</td>
</tr>
<%
rs.Open "select * from oa_spjl where sqxh=" & ssqxh & " and spbz<>'N' order by spxh",oConn,1,1
do while not rs.EOF
%>
<tr class=listrow1>
<td class=listcellrow><nobr> <%
if rs("spdlr") & ""="" then
rs1.Open "select Name from tbioaUser where ID=" & rs("spr"),oConn,1,1
else
rs1.Open "select Name from tbioaUser where ID=" & rs("spdlr"),oConn,1,1
end if
if not rs1.EOF then
Response.Write server.HTMLEncode(rs1(0) & "")
end if
rs1.Close
%></nobr></td>
<td class=listcellrow><nobr> <%=rs("spsj") & ""%></nobr></td>
<td class=listcellrow><nobr> <%
select case rs("spbz") & ""
case "N"
Response.Write "未审批"
case "1"
Response.Write "同意"
case "2"
Response.Write "不同意"
end select
%></nobr></td>
<td class=listcellrow> <%=replace(server.HTMLEncode(rs("spyj") & ""),vbcr,"<br>")%></td>
</tr>
<%
rs.MoveNext
loop
rs.Close
%>
</table>
</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 + -