📄 kq_qjsq_xj_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.xjyj.value=trim(frmxx.xjyj.value)
frmxx.sjjssj.value=trim(frmxx.sjjssj.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
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 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
dim syjkssj,syjjssj,ssjkssj,ssjjssj,sxjqk,sjb,ssqr,ssqrxm,ssqzw,ssqzwmc,ssqsy,ssqsj,sspbz,sxjyj
rs.Open "select a.*,b.sqsy,b.sqr,b.sqzw,c.mc,b.sqsj,b.spbz from kq_qjd a,oa_sqjbxx b,KQ_JBZD c where a.jb=c.dm and 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") & ""
if ssjkssj="" then ssjkssj=syjkssj
if ssjjssj="" then ssjjssj=syjjssj
sxjqk=rs("xjqk") & ""
sjb=rs("mc") & ""
ssqr=rs("sqr") & ""
ssqzw=rs("sqzw") & ""
ssqsy=rs("sqsy") & ""
ssqsj=rs("sqsj") & ""
sspbz=rs("spbz") & ""
sxjyj=rs("xjyj") & ""
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
%>
<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_qjsq_xj_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> <%=server.HTMLEncode(sjb)%></td>
<td width=80 class=InputLabelCell align=right>申请时间 </td>
<td class=InputAreaCell> <%=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 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=xjyj name=xjyj><%=server.HTMLEncode(sxjyj)%></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 sxjqk
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=InputframeLine><td colspan=4 class=InputLabelCell>
<table class=tab width=100%>
<tr><td class=tdTop align=center colspan=4>审批记录</tr></td>
<tr align=center>
<td class=tdTop>审批人</td>
<td class=tdTop>审批时间</td>
<td class=tdTop>审批结果</td>
<td class=tdTop>审批意见</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=td1>
<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>
<%
set rs=nothing
oConn.close
set oConn=nothing
%>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -