kq_qjsq_view.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 195 行
ASP
195 行
<!--#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=javascript src="../js/fun_Script.js"></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,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") & ""
sxjqk=rs("xjqk") & ""
sxjyj=rs("xjyj") & ""
sjb=rs("mc") & ""
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 RoleName as zwmc from tbioaRole where id=" & ssqzw,oConn,1,1
if not rs.eof then
ssqzwmc=rs(0) & ""
end if
rs.Close
%>
<table width=530 border=0 align=center cellpadding=2 cellspacing=1 width="570" class=tab>
<tr class=td2>
<td width=80 align=right>假别 </td>
<td> <%=server.HTMLEncode(sjb)%></td>
<td width=80 align=right>申请时间 </td>
<td> <%=server.HTMLEncode(ssqsj)%></td>
</tr>
<tr class=td2>
<td width=80 align=right>申请人</td>
<td> <%=server.HTMLEncode(ssqrxm)%></td>
<td width=80 align=right>申请职位</td>
<td> <%=server.HTMLEncode(ssqzwmc)%></td>
</tr>
<tr class=td2>
<td width=80 align=right>预计开始时间</td>
<td> <%=syjkssj%></td>
<td width=80 align=right>预计结束时间</td>
<td> <%=syjjssj%></td>
</tr>
<tr class=td2>
<td width=80 align=right>实际开始时间</td>
<td> <%=syjkssj%></td>
<td width=80 align=right>实际结束时间</td>
<td> <%=syjjssj%></td>
</tr>
<tr class=td2>
<td width=80 align=right>事由</td>
<td colspan=3><%=replace(server.HTMLEncode(ssqsy),vbcr,"<br>")%></td>
</tr>
<tr class=td2>
<td width=80 align=right>销假意见</td>
<td colspan=3><%=replace(server.HTMLEncode(sxjyj),vbcr,"<br>")%></td>
</tr>
<tr class=td2>
<td width=80 align=right>审批状态</td>
<td>
<%
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 align=right>销假情况</td>
<td>
<%
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=td2>
<td colspan=4>
<table class=tab width=100% cellpadding=2 cellspacing=1>
<tr><td class=td3 align=center colspan=4>审批记录</tr></td>
<tr align=center>
<td class=td3>审批人</td>
<td class=td3>审批时间</td>
<td class=td3>审批结果</td>
<td class=td3>审批意见</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-->
<tr class=td1>
<td align="center" colspan="4">
<input type=button class=button id=bfH name=bfH onclick="javascript:window.close();" value="关闭">
</td>
</tr>
</form>
</table>
<br>
<%
set rs=nothing
set rs1=nothing
oConn.close
set oConn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?