?? noshenhe.asp
字號:
<link href=css.css rel=stylesheet>
<!--#include file="conn.asp"-->
<!--#include file="webinfo.asp"-->
<!--#include file="fun.asp"-->
<!--#include file="check.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版權：野馬原創 ''''
''''聯系：ctplr@163.com ''''
''''說明：需要新功能聯系我 ''''
''''QQ:2643148 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''獲取系統資料''
sql="select username from ct_sql"
rs.open sql,cn,1,1
menbershenhenum=rs.recordcount
rs.close
sql="select username from ct_sql where noshenhe=0"
rs.open sql,cn,1,1
menbernoshenhenum=rs.recordcount
rs.close
sql="select username from ct_sql where mustqdok=1"
rs.open sql,cn,1,1
todaylogin=rs.recordcount
rs.close
sql="select username from ct_sql where todayqd=1"
rs.open sql,cn,1,1
nologinout=rs.recordcount
rs.close
sql="select username from ct_sql where todaylatter=1"
rs.open sql,cn,1,1
latter=rs.recordcount
rs.close
sql="select username from ct_sql where sucnownum=1"
rs.open sql,cn,1,1
noshenhesuc=rs.recordcount
rs.close
sql="select id from artic "
rs.open sql,cn,1,1
wznum=rs.recordcount
rs.close
sql="select id from annouce "
rs.open sql,cn,1,1
ggnum=rs.recordcount
rs.close
%>
<html>
<head>
<title><%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body onkeydown="if(event.keyCode==122){event.keyCode=0;return false}" bgcolor="#CACACA" background="images/index_bj.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align=CENTER valign=top>
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<table width="750" border="0" cellpadding="0" cellspacing="0" align="center">
<!--#include file="top.asp"-->
<tr>
<td width="184" height="667" align="center" valign="top" bgcolor="#4D87D6"><table width="86%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" background="images/time.GIF" bgcolor="#FFFFFF"> <strong> <font color="#FFaa00">當前時間</font></strong></td>
</tr>
<tr>
<td height="68" align="center" valign="middle" class=sec_menu><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="140" height="115">
<param name="movie" value="images/Clock.swf">
<param name="quality" value="high">
<embed src="images/Clock.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="140" height="115"></embed></object></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="30" background="images/login.GIF"> <strong> <font color="#FFaa00">登陸接口</font></strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class=sec_menu><%if (session("name")="" ) then%>
<!--#include file=login.asp-->
<%else %>
<!--#include file=loginin.asp-->
<%end if%> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="30" background="images/tj.GIF"> <strong> <font color="#FFaa00">統計數據</font></strong></td>
</tr>
<tr>
<td class=sec_menu> <img src=./images/favorites.gif> 系統文章數量<font color=green><%=wznum%></font>篇<br>
<img src=./images/favorites.gif> 系統公告數量<font color=green><%=ggnum%></font>篇<br>
<img src=./images/favorites.gif> 已審核成員<font color=green><%=menbershenhenum%></font>個<br>
<img src=./images/favorites.gif> 未審核成員<font color=green><%=menbernoshenhenum%></font>個<br>
<img src=./images/favorites.gif> 今天已簽到人員<font color=green><%=todaylogin%></font>個<br>
<img src=./images/favorites.gif> 當前未注銷人員<font color=green><%=nologinout%></font>個<br>
<img src=./images/favorites.gif> 今天遲到人員<font color=green><%=latter%></font>個<br>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="566" bgcolor="#4D87D6" align="center" valign="top"><table width="100%" height="679" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<%
'##########################|| 未審核人員 ||########################################
rs.PageSize=shenhenum
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from ct_sql where noshenhe=0"
rs.Open sql,cn,1,1
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
if (rs.eof and rs.bof) then
response.write "沒有記錄"
else
%><br>
<table border=1 bordercolor=#3399ff bgcolor=#E4F7FE>
<tr>
<td align=center bgcolor=#f8f8f8 >登陸帳號</td>
<td align=center bgcolor=#f8f8f8 > 考勤得分</td>
<td bgcolor=#f8f8f8 align=center >獎勵得分</td>
<td bgcolor=#f8f8f8 align=center >懲罰失分</td>
<td bgcolor=#f8f8f8 align=center >賬號狀態</td>
<td bgcolor=#f8f8f8 align=center >工資情況</td>
<td bgcolor=#f8f8f8 align=center title="今天是<%=date()%>">本月簽到</td>
<td bgcolor=#f8f8f8 align=center >備 注</td>
</tr>
<% do while not rs.eof and shenhenum>0
name=rs("username")
%>
<tr>
<td align=center>
<% if lockstaut=-1 then %><font color=red title="被鎖定">
<b ><%=name %></b >
<%else%>
<%=name %>
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待審核……">
0
<%else%>
0
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待審核……">
0
<%else%>
0
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待審核……">
0
<%else%>
0
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %>
<a href=login.asp title="登陸看看具體情況"><font color=red>等待審核……</font></a>
<%else%>
正常
<%end if%>
</td>
<% if isquexi=0 then %>
<td align=center width=50>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待審核……">
0
<%else%>
0
<%end if%>
</td>
<%end if%>
<% if iswenzhang=0 then %>
<td align=center width=50>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待審核……">
0
<%else%>
0
<%end if%>
</td>
<%end if%>
<% if ispaiming=0 then %>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待審核……">
0 <%else%>
0
<%end if%>
<%end if%>
</td>
</tr>
<% rs.movenext
shenhenum=shenhenum-1
loop
response.write"</table>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]頁 | "
Response.Write "[<a href=noshenhe.asp?page=1>首 頁</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=noshenhe.asp?page=" & (curpage-1) & " >上一頁</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=noshenhe.asp?page=" & (curpage+1) & " >下一頁</a></b>] "
end if
Response.Write " [<a href=noshenhe.asp?page="&pagenum&">尾 頁</a>]"
Response.Write " 當前是第[<font color=red>"&curpage&"</font>]頁</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
%></td>
</tr>
</table>
<p> </p>
</td>
</tr>
<tr >
<td height="46" colspan="2" VALIGN=TOP background="images/bottom_bg.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15" ALIGN=RIGHT> </td>
</tr>
<tr>
<td height="30" align="center" valign="middle"> <font color="#FF9900">推薦<font color="#FF0000">1024*768</font>分辨率</font>
<font color="green">Copyright © 2005 <font color="#FF0000">野馬</font>
All Rights Reserved</font> </td>
</tr>
</table></td>
</tr>
<tr >
<td height="34" colspan="2" > <!--#include file="foot.asp"--></td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -