📄 kq_jbhz_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>
<script language=vbscript src="..\js\pubfun_a_c.vbs"></script>
<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 doTY
frmxx.hzyj.value=trim(frmxx.hzyj.value)
frmxx.czlb.value="TY"
frmxx.submit
end sub
sub doBTY
frmxx.hzyj.value=trim(frmxx.hzyj.value)
frmxx.czlb.value="BTY"
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,sxjqk,ssqr,ssqrxm,ssqzw,ssqzwmc,ssqsy,ssqsj,sspbz,ssjgs,syjgs,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
oConn.close
set oConn=nothing
Response.Write "未找到对应加班申请单"
Response.End
end if
syjkssj=rs("yjkssj") & ""
syjjssj=rs("yjjssj") & ""
ssjkssj=rs("sjkssj") & ""
ssjjssj=rs("sjjssj") & ""
ssjgs=rs("sjgs") & ""
syjgs=rs("yjgs") & ""
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="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_jbhz_edit_save.asp">
<input type=hidden id=sqxh name=sqxh value="<%=ssqxh%>">
<input type=hidden id=czlb name=czlb>
<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> <%=ssjkssj%></td>
<td width=80 class=InputLabelCell align=right>实际结束时间</td>
<td class=InputAreaCell> <%=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> <%=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>")%> </textarea></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><%=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">
<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>
<tr class=InputFrameButtonLine>
<td align="center" colspan="4">
<input type=button class=button id=bTY name=bTY onclick="vbscript:doTY" value="同意">
<input type=button class=button id=bBTY name=bBTY onclick="vbscript:doBTY" value="不同意">
<input type=button class=button id=bFH name=bFH onclick="javascript:history.back();" 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 + -