?? kq_jbsq_view.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="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,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") & ""
shzqk=rs("hzqk") & ""
shzyj=rs("hzyj") & ""
syjgs=rs("yjgs") & ""
ssjgs=rs("sjgs") & ""
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">
<tr class=InputFrameLine>
<td align="right" colspan="4" class="left">
</td>
</tr>
<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> <%=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> <%=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>")%></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>核準意見</td>
<td class=InputAreaCell colspan="3"><%=replace(server.HTMLEncode(shzyj),vbcr,"<br>")%></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="bFH" name="bFH" onclick="javascript:window.close();" value="關閉">
</td>
</tr>
</table></td></tr></table>
<br>
<%
set rs=nothing
set rs1=nothing
oConn.close
set oConn=nothing
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -