📄 kq_qjsq.asp
字号:
<!--#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" -->
<html>
<head>
<title>考勤管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<script language="javascript" src="../js/fun_Script.js"></script>
<script language="vbscript">
sub doDel
if msgbox("要删除选中的请假单吗？",vbQuestion+vbYesNo,"删除")=vbNo then exit sub
frmSC.submit
end sub
</script>
</head>
<body>
<div class="TitleBar">请假销假</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_qjsq.asp">
<tr>
<td align="left"><div class="TableTitleText">请假单列表</div></td>
<td align="right">
按请假时间： <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" %>>未核准</option>
<option value="X5" <% If slb="X5" Then Response.Write " selected" %>>核准未同意</option>
<option value="X6" <% If slb="X6" Then Response.Write " selected" %>>核准已同意</option>
</select>
<input type="button" class="button" onclick="vbscript:frmcx.submit()" value="查询" id=button1 name=button1>
<input type="button" class="button" onclick="javascript:location.href='kq_qjsq_add.asp'" value="新增" id=button2 name=button2>
<input type="button" class="button" onclick="vbscript:dodel" value="删除" id=button3 name=button3>
</td>
</tr>
</form>
</table>
<%
dim rs,ssql,sygbh
sygbh=session("LoginID")
set rs=server.CreateObject("adodb.recordset")
ssql="select a.*,b.spbz,c.mc,b.sqsy from kq_qjd a,oa_sqjbxx b,KQ_JBZD c " _
& "where a.jb=c.dm and 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.xjqk='1' or a.xjqk='0') and b.spbz='1' "
case "X5"
ssql=ssql & " and a.xjqk='2' and b.spbz='1' "
case "X6"
ssql=ssql & " and a.xjqk='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="tab" width="98%" align="center" border="0" cellpadding="2" cellspacing="1">
<form name="frmSC" id="frmSC" method="post" action="kq_qjsq_del.asp">
<tr align="center" class="Listtitle">
<td nowrap class=tdTop>假别</td>
<td nowrap class=tdTop>预计起止时间</td>
<td nowrap class=tdTop>事由</td>
<td nowrap class=tdTop>审批情况</td>
<td nowrap class=tdTop>实际起止时间</td>
<td nowrap class=tdTop>销假情况</td>
</tr>
<%
dim i
i=0
do while i<application("RecPerPage") and Not rs.EOf
%>
<tr class=td1>
<td><nobr>
<%
if rs("spbz")="N" or rs("spbz")="2" or rs("spbz")="3" then
%>
<input type="checkbox" id="chksc" name="chksc" value="<%=rs("sqxh")%>"><%=server.HTMLEncode(rs("mc") & "") %> <a href="kq_qjsq_edit.asp?sqxh=<%=rs("sqxh")%>" title="请点击进行修改">修改</a>
<%else%>
<%=server.HTMLEncode(rs("mc") & "") %> <a href="javascript:gotourl('kq_qjsq_view.asp?sqxh=<%=rs("sqxh")%>','qjdview','600px','400px',1,0);" title="请点击查看详细信息">详细</a>
<%end if%>
</nobr></td>
<td 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 width=200 title="<%=replace(server.HTMLEncode(rs("sqsy")& ""),vbcr,"<br>")%>"><%
ii=""
if rs("sqsy")<>"" and isnull(rs("sqsy"))=fALSE then
if len(rs("sqsy"))>15 then
ii="..."
end if
end if
Response.Write replace(server.HTMLEncode(left(rs("sqsy"),15) &ii),vbcr,"<br>") %> </td>
<td><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 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><nobr>
<%
select case rs("xjqk")
case "0"
Response.Write "未销假"
if rs("spbz")="1" then
Response.Write "→<a href='kq_qjsq_xj_edit.asp?sqxh=" & rs("sqxh") & "' >销假</a>"
end if
case "1"
Response.Write "已销未核"
if rs("spbz")="1" then
Response.Write "→<a href='kq_qjsq_xj_edit.asp?sqxh=" & rs("sqxh") & "' >销假</a>"
end if
case "2"
Response.Write "不同意"
if rs("spbz")="1" then
Response.Write "→<a href='kq_qjsq_xj_edit.asp?sqxh=" & rs("sqxh") & "' >销假</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="td2" align=right><%call ShowPage_new(cint(rs.recordcount),cint(rs.pagesize),cint(page),cint(rs.pagecount),"kq_qjsq.asp?sj=" & ssj & "&lb=" & slb & "")%></td>
<%else%>
<td colspan="6" class="td2" align=center>没有符合条件的请假单</td>
<%end if%>
</tr>
</table>
</body>
</html>
<%
rs.Close
set rs=nothing
oConn.close
set oConn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -