?? kq_kqxxcx_gs.asp
字號:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<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">
<!--
sub bb1(obj)
if document.getElementById("trBM" & obj) is nothing then
exit sub
end if
dim x
dim smode
if right(document.getElementById("img" & obj).src,9)="close.gif" then
smode="block"
document.getElementById("img" & obj).src="../images/menu_open.gif"
else
smode="none"
document.getElementById("img" & obj).src="../images/menu_close.gif"
end if
for each x in document.all
if left(x.id,4+len(obj))="trBM" & obj and x.id<>"trBM" & obj then
x.style.display=smode
if not(document.getElementById(replace(x.id,"trBM","img")) is nothing) then
document.getElementById(replace(x.id,"trBM","img")).src="../images/menu_close.gif"
end if
end if
if left(x.id,4+len(obj))="trRY" & obj then
x.style.display="none"
end if
if x.id="trRY" & obj then
x.style.display=smode
end if
next
end sub
//-->
</script>
</head>
<body>
<%
sub showbm()
dim rsBM
Dim rs,rs1,lxjbms,lrs,lxjbmrs,sbmzgmc
set rsBM=server.CreateObject("ADODB.recordset")
set rs=server.CreateObject("ADODB.recordset")
set rs1=server.CreateObject("ADODB.recordset")
rsBM.Open "Select * from tbioaDepartment where id in ("&GetTreeId("tbioaDepartment","id","ParentID",Session("DepID"))&") order by id",oConn,1,1
do while not rsBM.EOF
sbmzgmc=""
if rsbm("ManagerID") & ""<>"" then
rs1.Open "select Name from tbioaUser where ID=" & rsbm("ManagerID"),oConn,1,1
if not rs1.eof then
sbmzgmc=rs1(0)
end if
rs1.Close
end if
xjbmlb="-1"&TreeId("tbioaDepartment","id","ParentID",rsbm("id"))'下級部門ID列表
lxjbms=0 '下級部門數
lxjbms=UBound(Split(xjbmlb,","))
lxjbmrs=0 '下級部門人數
if lxjbms>0 then
rs1.Open "Select count(*) from tbioaUser Where Department in ("&xjbmlb&")" ,oConn,1,1
if rs1(0) & ""<>"" then
lxjbmrs=rs1(0)
end if
rs1.Close
end if
lrs=0 '本部門人數
rs1.Open "Select count(*) from tbioaUser Where Department = "&rsbm("id")&"" ,oConn,1,1
if rs1(0) & ""<>"" then
lrs=rs1(0)
end if
rs1.Close
if lxjbms>0 or lrs>0 then
Response.Write "<tr class=td1 id=trBM" & rsbm("id") & " name=trBM" & rsbm("id") & ">" _
& "<td align=left width='100%'><nobr>" _
& " <a onclick='vbscript:bb1(""" & rsbm("id") & """)' style='cursor:hand'>" _
& "<img src='../images/menu_open.gif' border=0 id=img" & rsbm("id") & "></a>" _
& server.HTMLEncode(rsbm("name") & "") _
& "</nobr></td>" & chr(13)
else
Response.Write "<tr class=td1 id=trBM" & rsbm("id") & " name=trBM" & rsbm("id") & ">" _
& "<td align=left width='100%'><nobr>" _
& server.HTMLEncode(rsbm("name") & "") _
& "</nobr></td>" & chr(13)
end if
Response.Write "<td align=center>" & lrs & " " & chr(13)
Response.Write "<td align=center>" & lxjbms & "</td>" & chr(13)
Response.Write "<td align=center>" & lxjbmrs & "</td>" & chr(13)
Response.Write "<td align=center>" & server.HTMLEncode(sbmzgmc) & " </td></tr>" & chr(13)
if lrs>0 then
Response.write "<tr class=td0 name=trRY" & rsbm("id") & " id=trRY" & rsbm("id") & " style='display:block'><td colspan=5>" & chr(13)
rs1.Open "Select id,Name from tbioaUser where Department='" & rsbm("id") & "'" ,oConn,1,1
dim lcols
lcols=10
if not rs1.EOF then
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & chr(13)
Response.Write "<tr class=td0><td></td>" & chr(13)
i=0
do while not rs1.eof
if (i mod lcols)=0 and i<>0 then
Response.Write "</tr>" & chr(13)
Response.Write "<tr class=td0><td width=" & cstr((len(rsbm("id"))-2)*20) & ">" & " </td>" & chr(13)
end if
i=i+1
Response.Write "<td nowrap width='" & cstr(100/lcols) & "%'><A target=_blank href='kq_kqxxcx_yg.asp?ygbh=" & rs1("id") & "&sdepname=" & server.URLEncode(rsbm("name")) & "&ystatus=comp&syname=" & server.URLEncode(rs1("Name"))& "'>" & Server.HTMLEncode(rs1("Name")) & "</a>"
Response.Write "</td>" & chr(13)
rs1.MoveNext
loop
do while not (i mod lcols)=0
Response.Write "<td width='" & cstr(100/lcols) & "%'> </td>" & chr(13)
i=i+1
loop
Response.Write "</tr>" & chr(13)
Response.Write "</table> " & chr(13)
end if
rs1.Close
Response.write "</td></tr>"
end if
rsBM.MoveNext
loop
rsBM.Close
set rsbm=nothing
set rs=nothing
set rs1=nothing
end sub
%>
<%
sub showLzRY
Dim rs,lrs,rs1
set rs=server.CreateObject("ADODB.recordset")
set rs1=server.CreateObject("ADODB.recordset")
lrs=0 '本部門人數
rs.Open "Select count(*) from tbioaUser b " _
& "Where (b.Department=0) " _
,oConn,1,1
if rs(0) & ""<>"" then
lrs=rs(0)
end if
rs.Close
if lrs>0 then
Response.Write "<tr class=td1 id=trBMno name=trBMno>" _
& "<td align=left width='100%'><nobr>" & "" _
& " <a onclick='vbscript:bb1(""no"")' style='cursor:hand'>" _
& "<img src='../images/menu_open.gif' border=0 id=imgno></a>待分人員</nobr></td>" & chr(13)
else
Response.Write "<tr class=td1 id=trBMno name=trBMno>" _
& "<td align=left width='100%'><nobr>" & "待分人員" _
& "</nobr></td>" & chr(13)
end if
Response.Write "<td align=center>" & lrs & " " & chr(13)
Response.Write "<td align=center> </td>" & chr(13)
Response.Write "<td align=center> </td>" & chr(13)
Response.Write "<td align=center>" & server.HTMLEncode(sbmzgmc) & " </td></tr>" & chr(13)
if lrs>0 then
Response.write "<tr class=td0 name=trRYno id=trRYno style='display:block'><td colspan=5>" & chr(13)
rs1.Open "Select yg,Name from tbioaUser where (ssbm='' or ssbm is null) And (ryzt='0' or ryzt='2')" ,oConn,1,1
dim lcols
lcols=10
if not rs1.EOF then
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & chr(13)
Response.Write "<tr class=td0><td width=10>" & " </td>" & chr(13)
i=0
do while not rs1.eof
if (i mod lcols)=0 and i<>0 then
Response.Write "</tr>" & chr(13)
Response.Write "<tr class=td0><td width=10>" & " </td>" & chr(13)
end if
i=i+1
Response.Write "<td nowrap width='" & cstr(100/lcols) & "%'><A target=_blank href='kq_kqxxcx_yg.asp?ygbh=" & rs1("id") & "&sdepname=待分部門&ystatus=comp&syname=" & server.URLEncode(rs1("Name"))& "'>" & Server.HTMLEncode(rs1("Name")) & "</a>"
Response.Write "</td>" & chr(13)
rs1.MoveNext
loop
do while not (i mod lcols)=0
Response.Write "<td width='" & cstr(100/lcols) & "%'> </td>" & chr(13)
i=i+1
loop
Response.Write "</tr>" & chr(13)
Response.Write "</table> " & chr(13)
end if
rs1.Close
Response.write "</td></tr>"
end if
end sub
%>
<div class="TitleBar">全體考勤信息查詢</div>
<table width=98% class=tabletoolbar border=0 cellspacing="1" cellpadding="0" align=center>
<tr>
<td align="left"><div class="TableTitleText">人員列表</div></td>
</tr>
</table>
<table class="tab" width="98%" align="center" border="0" cellpadding="2" cellspacing="1">
<tr align="center">
<td class="tdtop"><nobr>部門名稱</nobr></td>
<td class="tdtop" width="80"><nobr>本部門人數</nobr></td>
<td class="tdtop" width="80"><nobr>下級部門數</nobr></td>
<td class="tdtop" width="80"><nobr>下級部門人數</nobr></td>
<td class="tdtop" width="80"><nobr>部門主管</nobr></td>
</tr>
<%call showbm%>
<%call showLzRY%>
<tr><td height=10 class="td3" colspan=5></td></tr>
</table>
<%
oConn.close
set oConn=nothing
%>
</body>
</html> ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -