<%@ LANGUAGE = VBScript.Encode %> <%sqladm="select * from admin" Set rsadm= Server.CreateObject("ADODB.Recordset") rsadm.open sqladm,conn,1,1 if jypx=jypx then if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=rsamd("pagesize") if MaxPerPage="" or isempty(MaxPerPage) or MaxPerPage<1 then MaxPerPage=20 end if%> <%if request("type")="" then sqlu="select * from link order by incount desc" else sqlu="select * from link where type='"&request("type")&"' order by incount desc" end if Set rsu= Server.CreateObject("ADODB.Recordset") rsu.open sqlu,conn,1,1 totalPut=rsu.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage showContent showpage totalput,MaxPerPage else if (currentPage-1)*MaxPerPage <%=rsadm("webname")%> <%if session("jypxadmin")="ok" then%> <%end if%>
　　中国人民解放军总政治部组织部 解放军报社 联合举办
努力学习，艰苦奋斗，做无愧于新时代的高素质青年军人。—— 江 泽 民
   
人气榜
<%sql_type="select * from type" Set rs_type= Server.CreateObject("ADODB.Recordset") rs_type.open sql_type,conn,1,1 do while not rs_type.eof%> <%i=i+1 if i>=MaxPerPage then exit do rs_type.movenext loop i=0 %>
<%if request("type")="" then%><%else%><%end if%>总排行榜
"><%if request("type")=rs_type("type") then%><%end if%><%=rs_type("name")%>

编辑信箱

 

 

<%if rsu.eof and rsu.bof then%> <%for n=1 to 5%> <%next%> <%else%> <% k=MaxPerPage*(currentPage)-MaxPerPage do while not rsu.eof k=k+1%> <%i=i+1 if i>=MaxPerPage then exit do rsu.movenext loop end if%>
<%=rs_type("type")%>
名次 图标    名称 投票数浏览量

<--加入你的网站-->

<%=k%>

" target="_blank" onMouseOver="window.status='<%=rsu("url")%>'; return true;" onMouseOut="window.status=''; return true;">img/nologo.gif<%else%><%=rsu("logo")%><%end if%>" width="50" height="50" border="0"><%if session("jypxadmin")="ok" then%>
" target="_blank">编辑)">删除<%end if%>

" target="_blank" onMouseOver="window.status='<%=rsu("url")%>'; return true;" onMouseOut="window.status=''; return true;"><%=rsu("web")%>
<%=rsu("txt")%>		<%=rsu("incount")%><%=rsu("outcount")%>

统计数据每天(24:00)重置一次

 

 
编辑制作：李国华 向荣高 宣琦 尹大强 张华婧
热线电话：010-66720911 66720902 传真：010-66817035 66816951

解放军报社 版权所有 未经授权 不得转载
Copyright 2000 Pladaily All right reserved.
web@pladaily.com.cn 010-68529647 <%end if%>