📄 e_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%>_建站铺修正版_bbs.jzpu.com</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="5" ></td>
</tr>
<tr>
<td height="30" background="images/menu_bg.jpg" class="white_link"> 栏目导航 <b>当前位置：<a class="white_link" href="./" >网站首页</a>>>单位部门稿件排行</b></td>
</tr>
<tr>
<td>
<table width="760" border="0" cellpadding="3" cellspacing="0">
<%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>
</td>
</tr>
</table>
</body>
</html>
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -