📄 kq_jddj.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #include file="../inc/pubfun_a.inc" -->

<%
maxmessage=15 '每页显示记录数
currentpage=request("page") '当前页码
%>
<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">
	function selsqxh()
		dim e,sFlag
		sFlag = formXW.selall.checked 
		for each e in formXW.elements 
			if lcase(trim(e.name)) = "chbox" then
				e.checked = sFlag
			end if
		next
	end function
	
	sub doDel
	    dim strid
	    strid=""
		if msgbox("要删除选中的假单登记吗？",vbQuestion+vbYesNo,"删除")=vbNo then exit sub
		for each e in formXW.elements 
		if lcase(trim(e.name))="chbox" then
		if e.checked=true then
		if strid="" then
		strid=e.value
		else
		strid=strid&","&e.value
		end if
		end if
		end if
		next
		if strid<>"" then 
		formXW.action="kq_jddj_del.asp"
		formXW.delid.value =strid
		formXW.submit
		else
		msgbox("请选择要删除的请假单登记信息！")
		exit sub
		end if
	end sub
	
	</script>
	<script language="javascript">
	<!--
	
	function doCX()
	{
		var k;
		var s = new Object();
		var	ssqr,ssqbm,skssjc,sjssjc,skssjc,sjssjc,sjb,ssqsy,stjrxm
		s.sqr=formXW.sqr.value;
		s.tjrxm=formXW.tjrxm.value;
		s.sqbm=formXW.sqbm.value;
        s.kssjc=formXW.kssjc.value;
		s.jssjc=formXW.jssjc.value;
		s.kssjd=formXW.kssjd.value;
		s.jssjd=formXW.jssjd.value;
		if (s.sqbm==""){s.sqbm="xx"};
 	//	s.sjb=formXW.jb.value;
	//	s.sqsy=formXW.sqsy.value;
	//	s.tjrxm=formXW.tjrxm.value;
		k=showModalDialog("kq_jddj_cx.asp",s,"dialogWidth:350px;status:no;dialogHeight:250px");
		if (k.type!=""){
		    ssqr=k.sqr;
		    stjrxm=k.tjrxm;
			ssqbm=k.sqbm;
			skssjc=k.kssjc;
			sjssjc=k.jssjc;
			skssjd=k.kssjd;
			sjssjd=k.jssjd;
			if (ssqbm==""){ssqbm="xx"};
	//		stjrxm=k.tjrxm;
	//		if (stjr=="") {stjr="XXX"};
			formXW.sqr.value=ssqr;
			formXW.tjrxm.value=stjrxm;
		    formXW.sqbm.value=ssqbm;
		    formXW.kssjc.value=skssjc;
		    formXW.jssjc.value=sjssjc;
            formXW.kssjd.value=skssjd;
		    formXW.jssjd.value=sjssjd;
            formXW.action="kq_jddj.asp";
			formXW.submit();

		}
	}
	-->
	</script>
	
</head>
<body>
<div class="TitleBar">假单登记</div>
<%
dim rs,ssql,sygbh,rs1,ssqr,ssqbm,skssjc,sjssjc,skssjd,sjssjd,stjrxm
    ssqr=Request("sqr")
    stjrxm=request("tjrxm")
    ssqbm=Request("sqbm")
    skssjc=Request("kssjc")
    sjssjc=Request("jssjc") 
    skssjd=Request("kssjd")
    sjssjd=Request("jssjd") 
    sygbh=session("LoginID")
	set rs=server.CreateObject("adodb.recordset")
	set rs1=server.CreateObject("adodb.recordset")
	ssql="select * from kq_qjd a,oa_sqjbxx b where a.sqxh=b.sqxh and a.jdbz='1'"
	if ssqr<>"" then
	ssql=ssql&" and sqr="&ssqr
	end if
	if ssqbm<>"" and ssqbm<>"xx" then
	ssql=ssql&" and sqbm="&ssqbm
	end if
	if skssjc<>"" and isdate(skssjc) then
	ssql=ssql&" and datediff(d,yjkssj,'"&skssjc&"')<=0"
	end if
	if skssjd<>"" and isdate(skssjd) then
	'ssql=ssql&" and yjkssj<='"&skssjd&"'"
	ssql=ssql&" and datediff(d,yjkssj,'"&skssjd&"')>=0"
	end if
	if sjssjc<>"" and isdate(sjssjc) then
	ssql=ssql&" and datediff(d,yjkssj,'"&sjssjc&"')<=0"
	end if
	if sjssjd<>"" and isdate(sjssjd) then
	ssql=ssql&" and datediff(d,yjkssj,'"&sjssjd&"')>=0"
	'ssql=ssql&" and yjkssj<='"&sjssjd&"'"
	end if
	
	rs.Open ssql,oConn,1,1
	Showpage=Paging(rs,maxmessage,currentpage,"sqr=" & ssqr & "&sqbm=" & ssqbm & "&kssj="&skssj&"&jssj="&sjssj&"")
%>

<table width="98%" class="tabletoolbar" border="0" cellspacing="1" cellpadding="0" align="center">
	<form name="formXW" id="formXW" method="post">
	<tr>
		<td align="left"><div class="TableTitleText">假单列表</div></td>
		<td align="right">
		<input type="hidden" name="sqr" value="<%=ssqr%>">
		<input type="hidden" name="tjrxm" value="<%=stjrxm%>">
		<input type="hidden" name="sqbm" value="<%=ssqbm%>">
		<input type="hidden" name="kssjc" value="<%=skssjc%>">
		<input type="hidden" name="jssjc" value="<%=sjssjc%>">
		<input type="hidden" name="kssjd" value="<%=skssjd%>">
		<input type="hidden" name="jssjd" value="<%=sjssjd%>">
		    <input type="button" class="button" onclick="javascript:doCX();" value="查询" id="button1" name="button1">
			<input type="button" class="button" onclick="javascript:location.href='kq_jddj_add.asp'" value="新增" id="button2" name="button2">
			<input type="button" class="button" onclick="vbscript:dodel" value="删除" id="button3" name="button3">
		</td>
	</tr>
</table>
<table class="tab" width="98%" align="center" border="0" cellpadding="2" cellspacing="1">
	<input type="hidden" id="delid" name="delid">
	<tr align="left" class="listtitle">
		<td class="tdtop" width="30"><input type="checkbox" id="selall" name="selall" onclick="vbscript:selsqxh()"> </td>
		<td class="tdtop" width="70">请假人</td>
		<td class="tdtop">所属部门</td>
		<td class="tdtop" width="100">开始时间</td>
		<td class="tdtop" width="100">结束时间</td>
		<td class="tdtop" width="50">编辑</td>
	</tr>
	<%
	dim i
	i=1
	for i = 0 to rs.PageSize-1
		If rs.EOF Then Exit For
		dim qjrxm,ssbm
		ssql="select a.Name, b.name as bmmc from tbioaUser a,tbioaDepartment b where a.Department=b.id and a.id="&rs("sqr")
		rs1.Open ssql,oConn,1,1
		if not rs1.EOF then
			qjrxm=rs1("Name")
			ssbm=rs1("bmmc")
		end if
		rs1.Close 
    %>
	<tr align="center" class="td1">
		<td width="30"><input type="checkbox" id="chbox" name="chbox" value="<%=rs("sqxh")%>"></td>
		<td width="70" align="left"><%=server.HTMLEncode(qjrxm&"")%></td>
		<td align="left"><%=server.HTMLEncode(ssbm&"")%></td>
		<td width="100" align="left"><%=formatdatetime_activenew(rs("yjkssj"),"yyyy-mm-dd hh:nn")%></td>
		<td width="100" align="left"><%=formatdatetime_activenew(rs("yjjssj"),"yyyy-mm-dd hh:nn")%></td>
		<td width="50" align="left"><a href="kq_jddj_add.asp?sqxh=<%=rs("sqxh")%>"><img src="../images/icon_edit.gif" border="0" alt="修改" style="cursor:hand" WIDTH="16" HEIGHT="16" align=left> 编辑</a></td>
	</tr>
	<%
		i=i+1
		rs.MoveNext
	next
	%>
</form>
	<tr>
	<%if rs.RecordCount<>0 then%>
		<td colspan="6" class="tdBottom" align="right"><%=ShowPage%></td>
	<%else%>
		<td colspan="6" class="tdBottom" 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 + -