Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
top.asp
Package: cnpncount15.rar　[view]
Upload User: maming258
Upload Date: 2022-01-28
Package Size: 283k
Code Size: 4k
Category:

WEB(ASP,PHP,...)

Development Platform:

HTML/CSS

top.asp：Code Content
  1. <!--飘易网站统计程序 V1.0 Powered by flymorn,www.cn-pn.com-->
  2. <!--#include file="inc/conn.asp" -->
  3. <!--#include file="inc/function.asp" -->
  4. <!--#include file="inc/sqlfilter.asp"-->
  5. <%
  6. listnum=30 '每页显示数
  7. %>
  8. <html>
  9. <head>
  10. <title>页面点击排行 - 飘易网站统计程序 V1.0</title>
  11. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  12. <LINK href="css.css" type=text/css rel=stylesheet>
  13. <style type="text/css">
  14. <!--
  15. .style1 {
  16. font-size: 14pt;
  17. font-weight: bold;
  18. }
  19. -->
  20. </style>
  21. </head>
  23. <body>
  24. <!--飘易网站统计程序 V1.0 Powered by flymorn,www.cn-pn.com-->
  25. <div align="center"><br>
  26.   <span class="style1">页面点击排行</span><br>
  27.   <br>
  28.   <br>
  29.   [ <%=now()%> ] <br>
  30.   <br>
  31. </div>
  32. <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  33.   <tr>
  34.     <td><table width="756" border="0" align="left" cellpadding="0" cellspacing="0">
  35.       <tr>
  36.         <td><b>今日页面点击排行</b>： --- <a href="index.asp">返回首页</a> --- --- <a href=help.html target=_blank>帮助说明</a> --- </td>
  37.       </tr>
  38.     </table></td>
  39.   </tr>
  40. </table>
  41. <!--Powered by flymorn,www.cn-pn.com-->
  42. <table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="biao_bdr3">
  43.   <tr>
  44.     <td><table width="758" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#DADCE4" class="xi">
  45.       <tr>
  46.         <td width="100"><div align="center"><strong>ID</strong></div></td>
  47.         <td width="550"><div align="center"><strong>页面</strong></div></td>
  48.         <td width="100"><div align="center"><strong>点击</strong></div></td>
  49.       </tr>
  50.     </table></td>
  51.   </tr>
  52.   <tr>
  53.     <td><table width="758" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#DADCE4" class="xi">
  54.       <%
  55. sql="select url,n from urls order by n desc"  
  56. set rs=server.createobject("adodb.recordset")
  57. rs.open sql,conn,1,1
  58. If rs.eof and rs.bof Then 
  59. response.Write("当前列表为空。")                      
  60. Else
  62. recordcountnum=Rs.recordcount
  63. Rs.pagesize = listnum
  64. page = SafeRequest("page",1)
  65. If  page = "" Then
  66. page=1
  67. End If
  68. If (page-Rs.pagecount) > 0 Then
  69. page=Rs.pagecount
  70. End If
  71. if page < 1 Then
  72. page = 1
  73. End If
  74. Rs.absolutepage=page
  75. j=rs.recordcount
  76. j=j-(page-1)*listnum
  77. i=0
  78. x=1+listnum*(page-1)
  79. do while not rs.eof and i<listnum
  80. n=rs("n")
  81. url=rs("url")
  82. url1=url
  83. if len(url)>60 then
  84. url=left(url,60)&"…"
  85. end if
  86. %>
  87.   <tr class="table001" onmouseover="this.className='table002'" onmouseout="this.className='table001'">
  88.         <td width="100"><div align="center"><%=x%></div></td>
  89.         <td width="550"><a href=<%=url1%> target=_blank title=<%=url1%>><%=url%></a></td>
  90.         <td width="100"><div align="center"><%=n%></div></td>
  91.   </tr>
  92.   <%
  93. i=i+1
  94. x=x+1
  95. rs.movenext
  96. loop
  97. end if
  98. %>
  99. <tr>
  100. <td colspan="7">
  101. <%
  102. Dim filename
  103. filename="top.asp?"
  104. %>
  105. <table width="680" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DADCE4">
  106.   <tr>
  107.     <td><form method="post" action="<%=filename%>">
  108.       <div align="center">总共<strong><%=Rs.recordcount%></strong>人 <%=page%>/<%=Rs.pagecount%>页&nbsp;每页<%= listnum %>人&nbsp;
  109.           <a href="<%=filename%>page=1">首页</a>&nbsp;
  110.           <% if page<>1 then %>
  111.           <a href="<%=filename%>page=<%=page-1%>">上一页</a>&nbsp;
  112.           <%end if%>
  113.           <% if Rs.pagecount-page <> 0 then %>
  114.           <a href="<%=filename%>page=<%=page+1%>">下一页</a>&nbsp;
  115.           <%End If%>
  116.   <a href="<%=filename%>page=<%=Rs.pagecount%>">尾页</a>&nbsp;
  117.           <input type="text" name="page" size="3" maxlength="5" value="<%=page+1%>" />
  118.           <input type="submit" value="Go" name="cndok" />
  119.       </div>
  120.     </form></td>
  121.   </tr>
  122. </table>
  124. </td></tr>
  125.     </table>
  127. </td>
  128.   </tr>
  129. </table><!--Powered by flymorn,www.cn-pn.com-->
  130. <br>
  131. <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  132.   <tr>
  133.     <td><div align="center">&copy; 2005-2010 <a href="http://www.cn-pn.com" target="_blank">飘网中国</a> 版权所有<br>
  134.       Powered By Author Flymorn,WWW.CN-PN.COM; Website Stat Services! <script src=online.asp></script></div></td>
  135.   </tr>
  136. </table><!--飘易网站统计程序 V1.0 Powered by flymorn,www.cn-pn.com-->
  137. </body>
  138. </html>
  139. <%
  140. rs.close
  141. set rs=nothing
  142. conn.close
  143. set conn=nothing
  144. %><!--飘易网站统计程序 V1.0 Powered by flymorn,www.cn-pn.com-->