📄 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%></title>
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="3" bgcolor="#FFFFFF"><img src="IMAGES/kb.gif" width="9" height="3"></td>
</tr>
<tr>
<td height="25" background="IMAGES/menu-guestbook.gif"> <font class=m_tittle> </font>栏目导航 <b>当前位置：<a class="daohang" href="./" >网站首页</a>>>单位部门稿件排行</b></td>
</tr>
<tr>
<td height="25" background="IMAGES/menu-guest-l.gif"><div align="center">
<a class=daohang href="./" >
<script language=javascript src=./zongg/ad.asp?i=13></script>
</a> </div></td>
</tr>
<tr>
<td height="25" background="IMAGES/menu-guestbook.gif"> </td>
</tr>
<tr>
<td height="25" background="IMAGES/menu-guest-l.gif">
<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,ConnUser,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>
</body>
</html>
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -