?? kq_jbsq.asp
字號(hào):
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #INCLUDE FILE = "../public/showpage.asp" -->
<!-- #include file="../inc/pubfun_a.inc" -->
<%call checkqx("0803")%>
<html>
<head>
<script language=javascript src="../js/fun_Script.js"></script>
<title>考勤管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<script language="vbscript">
sub doDel
if msgbox("要?jiǎng)h除選中的加班申請(qǐng)嗎？",vbQuestion+vbYesNo,"刪除")=vbNo then exit sub
frmSC.submit
end sub
</script>
</head>
<body>
<div class="TitleBar">加班申請(qǐng)</div>
<%
dim ssj,slb
ssj=Request("sj")
slb=Request("lb")
if ssj="" then ssj="X1"
if slb="" then slb="XX"
%>
<table width=98% class=tabletoolbar border=0 cellspacing="1" cellpadding="0" align=center>
<form name=frmCX id=frmCX method="post" action="kq_jbsq.asp">
<tr>
<td align="left"><div class="TableTitleText">加班申請(qǐng)單列表</div></td>
<td align="right">
按加班時(shí)間： <select name="sj" id=sj size="1">
<option value="XX" selected>全部</option>
<option value="X1"<% if ssj="X1" then Response.Write " selected" %>>本周</option>
<option value="X2"<% if ssj="X2" then Response.Write " selected" %>>本月</option>
</select>
按審批情況： <select name="lb" id =lb size="1" >
<option value="XX" selected>全部</option>
<option value="X1"<% If slb="X1" Then Response.Write " selected" %>>審批未完成</option>
<option value="X2"<% If slb="X2" Then Response.Write " selected" %>>審批未通過</option>
<option value="X3"<% If slb="X3" Then Response.Write " selected" %>>審批已通過</option>
<option value="X4"<% If slb="X4" Then Response.Write " selected" %>>未核準(zhǔn)</option>
<option value="X5"<% If slb="X5" Then Response.Write " selected" %>>核準(zhǔn)未同意</option>
<option value="X6"<% If slb="X6" Then Response.Write " selected" %>>核準(zhǔn)已同意</option>
</select>
<input type="button" class="button" onclick="vbscript:frmcx.submit()" value="查詢" id=button1 name=button1></input>
<input type="button" class="button" onclick="javascript:location.href='kq_jbsq_add.asp'" value="新增" id=button2 name=button2></input>
<input type="button" class="button" onclick="vbscript:dodel" value="刪除" id=button3 name=button3></input>
</td>
</tr>
</form>
</table>
<%
dim rs,ssql,sygbh
sygbh=session("LoginID")
set rs=server.CreateObject("adodb.recordset")
ssql="select a.*,b.spbz,b.sqsy from oa_jbmx a,oa_sqjbxx b " _
& "where a.sqxh=b.sqxh and b.sqr="&session("LoginID") &" "
dim bdate,edate
select case ssj
case "XX"
ssql=ssql & " "
case "X1"
bdate=formatdatetime_activenew(dateadd("d",1-Weekday(now,vbMonday),now),"yyyy-mm-dd")
edate=formatdatetime_activenew(dateadd("d",7-Weekday(now,vbMonday),now),"yyyy-mm-dd")
ssql=ssql & "and substring(YJKSSJ,1,10)>='" & bdate & "' and substring(YJKSSJ,1,10)<='" & edate & "' "
case "X2"
bdate=formatdatetime_activenew(now,"yyyy-mm-01")
edate=formatdatetime_activenew(dateadd("m",1,now),"yyyy-mm-01")
ssql=ssql & "and substring(YJKSSJ,1,10)>='" & bdate & "' and substring(YJKSSJ,1,10)<'" & edate & "' "
end select
select case slb
case "XX"
ssql=ssql & " "
case "X1"
ssql=ssql & " and (b.spbz='N' or b.spbz='0') "
case "X2"
ssql=ssql & " and (b.spbz='2' or b.spbz='3') "
case "X3"
ssql=ssql & " and b.spbz='1' "
case "X4"
ssql=ssql & " and (a.hzqk='1' or a.hzqk='0') and b.spbz='1' "
case "X5"
ssql=ssql & " and a.hzqk='2' and b.spbz='1' "
case "X6"
ssql=ssql & " and a.hzqk='3' and b.spbz='1' "
end select
ssql=ssql & " order by a.sqxh desc"
'Response.Write ssql
rs.Open ssql,oConn,1,1
dim page
rs.Pagesize=application("RecPerPage")
page=Request("page")
if isempty(page) then
page=1
end if
if rs.recordcount>0 then
rs.absolutepage=page
end if
%>
<table class="tableframe" width="98%" align="center" border="0" cellpadding="0" cellspacing="0">
<form name=frmSC id=frmSC method="post" action="kq_jbsq_del.asp">
<tr align="center" class=listtitle>
<td class="listcelltitle" >詳細(xì)</td>
<td class="listcelltitle" >預(yù)計(jì)起止時(shí)間</td>
<td class="listcelltitle" >加班事由</td>
<td class="listcelltitle" >審批情況</td>
<td class="listcelltitle" >實(shí)際起止時(shí)間</td>
<td class="listcelltitle" >確認(rèn)情況</td>
</tr>
<%
dim i
i=0
do while i<application("RecPerPage") and Not rs.EOF
%>
<tr class=listrow1>
<td class=listcellrow><nobr>
<%
if rs("spbz")="N" or rs("spbz")="2" or rs("spbz")="3" then
%>
<input type="checkbox" id=chksc name=chksc value=<%=rs("sqxh")%>><a href="kq_jbsq_edit.asp?sqxh=<%=rs("sqxh")%>" title="請(qǐng)點(diǎn)擊進(jìn)行修改">修改</a>
<%else%>
<a href="javascript:gotourl('kq_jbsq_view.asp?sqxh=<%=rs("sqxh")%>','qjdview','600px','400px',1,0);" title="請(qǐng)點(diǎn)擊查看詳細(xì)信息">詳細(xì)</a>
<%end if%>
</nobr></td>
<td class=listcellrow align=center><nobr>
從：<%=formatdatetime_activenew(rs("yjkssj"),"yyyy-mm-dd hh:nn")%>
<br> 到：<%=formatdatetime_activenew(rs("yjjssj"),"yyyy-mm-dd hh:nn")%></nobr></td>
<td class=listcellrow><%=replace(server.HTMLEncode(rs("sqsy") & ""),vbcr,"<br>") %> </td>
<td class=listcellrow><nobr>
<%
select case rs("spbz")
case "N"
Response.Write "未審批"
case "0"
Response.Write "審批中"
case "1"
Response.Write "同意"
case "2"
Response.Write "不同意"
case "3"
Response.Write "不同意已退回"
end select
%>
</nobr></td>
<td class=listcellrow align=center><nobr>
<%if rs("sjkssj") & ""<>"" then Response.Write "從：" & formatdatetime_activenew(rs("sjkssj"),"yyyy-mm-dd hh:nn")%>
<br> <%if rs("sjjssj") & ""<>"" then Response.Write "到：" & formatdatetime_activenew(rs("sjjssj"),"yyyy-mm-dd hh:nn")%></nobr></td>
<td class=listcellrow><nobr>
<%
select case rs("hzqk")
case "0"
Response.Write "未確認(rèn)"
if rs("spbz")="1" then
Response.Write "→<a href='kq_jbsq_qr_edit.asp?sqxh=" & rs("sqxh") & "' >確認(rèn)</a>"
end if
case "1"
Response.Write "已確認(rèn)未核"
if rs("spbz")="1" then
Response.Write "→<a href='kq_jbsq_qr_edit.asp?sqxh=" & rs("sqxh") & "' >確認(rèn)</a>"
end if
case "2"
Response.Write "不同意"
if rs("spbz")="1" then
Response.Write "→<a href='kq_jbsq_qr_edit.asp?sqxh=" & rs("sqxh") & "' >確認(rèn)</a>"
end if
case "3"
Response.Write "同意"
end select
%>
</nobr></td>
</tr>
<%
rs.MoveNext
i=i+1
loop
%>
</form>
<tr>
<%if rs.RecordCount<>0 then%>
<td colspan="6" class="listtail" align=right><%call ShowPage_new(cint(rs.recordcount),cint(rs.pagesize),cint(page),cint(rs.pagecount),"kq_jbsq.asp?sj=" & ssj & "&lb=" & slb & "")%></td>
<%else%>
<td colspan="6" class="listtail" align=center>沒有符合條件的加班申請(qǐng)單</td>
<%end if%>
</tr>
</table>
</body>
</html>
<%
rs.Close
set rs=nothing
oConn.close
set oConn=nothing
%> ?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -