📄 alldep.asp
字号:
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; chars8et=gb2312">
<LINK href=news.css rel=stylesheet>
<title>单位部门稿件排行__<%=jjgn%>完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="180" bordercolor="#FDFCF8" valign="top" bgcolor="#FDFCF8" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<!--#include file="calendar.asp"-->
<!--右侧查询开始-->
<table>
<tr> <td height="28" align="left" valign="middle" bordercolor="#999999" background="IMAGES/WmCms_type.jpg"> <font color="#95641D"><b>公文检索</b></font></td>
</tr>
<tr>
<form method="post" name="myform" action="Result.asp" target="newwindow">
<td width="236" valign="middle">
<div align="center"><br>
<!--#include file=search.asp-->
</div><br></td>
</form>
</tr>
</table>
<!--右侧查询结束-->
</td>
<td width="6"></td>
<td style="border-left: 1px solid #cccccc ; border-top: 0px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc " align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="25" background="IMAGES/WmCms_Result.gif"> <font class=m_tittle> </font> <b>当前位置：<a class="daohang" href="./" >网站首页</a>＞单位部门稿件排行</b></td>
</tr>
<tr>
<td height="25"><br><br>
<div align="center">
<table width="758" border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<%set rs8=server.CreateObject("ADODB.RecordSet")
sql8="select * from "& db_Dep_Table &" where depnumber>=0 order by depnumber desc"
rs8.open sql8,Conn,1,1
if not rs8.EOF then
%>
<tr align="center" class="TDtop1">
<td width="10%" height="25" >排名</td>
<td width="40%" >单位名称</td>
<td width="25%" >所属部门</td>
<td width="25%" >累计投稿</td>
</tr>
<%
i=1
while not rs8.EOF
%>
<tr>
<td width="10%" align="center" bgcolor="#FFFFFF"><%=i%></td>
<td width="40%" align="center" bgcolor="#FFFFFF"><%=rs8("depname")%></td>
<td width="25%" height="25" align="center" bgcolor="#FFFFFF"><%=rs8("deptype")%></td>
<td width="25%" bgcolor="#FFFFFF" align="center"><%=rs8("depnumber")%></td>
</tr>
<%rs8.MoveNext
i=i+1
wend
end if
rs8.close
set rs8=nothing
%>
</table>
</div>
</tr>
</table>
</td></tr></table>
</body>
</html>
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -