?? kq_jbsq_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=javascript src="../js/fun_Script.js"></script>
<script language=vbscript>
<!--
sub doSave
frmxx.yjkssj.value=trim(frmxx.yjkssj.value)
frmxx.yjjssj.value=trim(frmxx.yjjssj.value)
frmxx.sqsy.value=trim(frmxx.sqsy.value)
if not isdate(frmxx.yjkssj.value) then
msgbox "預計開始時間必須輸入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm-dd hh:nn"),vbInformation,"提示"
frmxx.yjkssj.focus
exit sub
end if
frmxx.yjkssj.value=formatdatetime_activenew(frmxx.yjkssj.value,"yyyy-mm-dd hh:nn")
if not isdate(frmxx.yjjssj.value) then
msgbox "預計結束時間必須輸入日期格式，如" & formatdatetime_activenew(now,"yyyy-mm-dd hh:nn"),vbInformation,"提示"
frmxx.yjjssj.focus
exit sub
end if
frmxx.yjjssj.value=formatdatetime_activenew(frmxx.yjjssj.value,"yyyy-mm-dd hh:nn")
if frmxx.yjjssj.value<frmxx.yjkssj.value then
msgbox "預計開始時間必須早于預計結束時間",vbInformation,"提示"
frmxx.yjkssj.focus
exit sub
end if
if not IsNumeric(frmxx.yjgs.value) then
msgbox "預計工時需要輸入數字",vbInformation,"提示"
frmxx.yjgs.focus
exit sub
end if
if cdbl(frmxx.yjgs.value)<0 then
msgbox "預計工時需要輸入大于0的數字",vbInformation,"提示"
frmxx.yjgs.focus
exit sub
end if
frmxx.yjgs.value=cdbl(frmxx.yjgs.value)
frmxx.submit
end sub
//-->
</script>
</head>
<body>
<div class="TitleBar">加班申請單</div>
<%
Dim rs
set rs=server.CreateObject("ADODB.recordset")
dim sygbh
sygbh=session("LoginID")
dim syjkssj,syjjssj,ssqr,ssqrxm,ssqzw,ssqzwmc,ssqsy,syjgs
rs.Open "select a.*,b.sqsy,b.sqr,b.sqzw 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
oConn.close
set oConn=nothing
Response.Write "未找到對應加班申請單"
Response.End
end if
syjkssj=rs("yjkssj") & ""
syjjssj=rs("yjjssj") & ""
ssqr=rs("sqr") & ""
ssqzw=rs("sqzw") & ""
ssqsy=rs("sqsy") & ""
syjgs=rs("yjgs") & ""
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 A.zwmc as zwmc,B.bmmc as bmmc from oa_qx_zw A,rs_bmb B where zwbh=" & ssqzw & " and A.bmbh=B.bmbh",oConn,1,1
if not rs.eof then
ssqzwmc=rs("zwmc") & "[" & rs("bmmc") & "]"
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_jbsq_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(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><input type=text class=input id=yjkssj name=yjkssj size=20 maxlength=20 value='<%=syjkssj%>'></td>
<td width=80 class=InputLabelCell align=right>預計結束時間</td>
<td class=InputAreaCell><input type=text class=input id=yjjssj name=yjjssj size=20 maxlength=20 value='<%=syjjssj%>'></td>
</tr>
<tr class=InputFrameLine>
<td width=80 class=InputLabelCell align=right>預計工時</td>
<td class=InputAreaCell colspan=3><input type=text class=input id=yjgs name=yjgs size=20 maxlength=20 value='<%=syjgs%>'>小時</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=sqsy name=sqsy><%=server.HTMLEncode(ssqsy)%></textarea></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>
</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 + -