top.asp
来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 144 行
ASP
144 行
<!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/function.asp" -->
<!--#include file="inc/sqlfilter.asp"-->
<%
listnum=30 '每页显示数
%>
<html>
<head>
<title>页面点击排行 - 飞天网络统计程序 V1.0</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {
font-size: 14pt;
font-weight: bold;
}
-->
</style>
</head>
<body>
<!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->
<div align="center"><br>
<span class="style1">页面点击排行</span><br>
<br>
<br>
[ <%=now()%> ] <br>
<br>
</div>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="756" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><b>今日页面点击排行</b>： --- <a href="index.asp">返回首页</a> --- --- <a href=help.html target=_blank>帮助说明</a> --- </td>
</tr>
</table></td>
</tr>
</table>
<!--Powered by flymorn,www.cn-pn.com-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="biao_bdr3">
<tr>
<td><table width="758" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#DADCE4" class="xi">
<tr>
<td width="100"><div align="center"><strong>ID</strong></div></td>
<td width="550"><div align="center"><strong>页面</strong></div></td>
<td width="100"><div align="center"><strong>点击</strong></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="758" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#DADCE4" class="xi">
<%
sql="select url,n from urls order by n desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
If rs.eof and rs.bof Then
response.Write("当前列表为空。")
Else
recordcountnum=Rs.recordcount
Rs.pagesize = listnum
page = SafeRequest("page",1)
If page = "" Then
page=1
End If
If (page-Rs.pagecount) > 0 Then
page=Rs.pagecount
End If
if page < 1 Then
page = 1
End If
Rs.absolutepage=page
j=rs.recordcount
j=j-(page-1)*listnum
i=0
x=1+listnum*(page-1)
do while not rs.eof and i<listnum
n=rs("n")
url=rs("url")
url1=url
if len(url)>60 then
url=left(url,60)&"…"
end if
%>
<tr class="table001" onmouseover="this.className='table002'" onmouseout="this.className='table001'">
<td width="100"><div align="center"><%=x%></div></td>
<td width="550"><a href=<%=url1%> target=_blank title=<%=url1%>><%=url%></a></td>
<td width="100"><div align="center"><%=n%></div></td>
</tr>
<%
i=i+1
x=x+1
rs.movenext
loop
end if
%>
<tr>
<td colspan="7">
<%
Dim filename
filename="top.asp?"
%>
<table width="680" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DADCE4">
<tr>
<td><form method="post" action="<%=filename%>">
<div align="center">总共<strong><%=Rs.recordcount%></strong>人 <%=page%>/<%=Rs.pagecount%>页 每页<%= listnum %>人
<a href="<%=filename%>page=1">首页</a>
<% if page<>1 then %>
<a href="<%=filename%>page=<%=page-1%>">上一页</a>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href="<%=filename%>page=<%=page+1%>">下一页</a>
<%End If%>
<a href="<%=filename%>page=<%=Rs.pagecount%>">尾页</a>
<input type="text" name="page" size="3" maxlength="5" value="<%=page+1%>" />
<input type="submit" value="Go" name="cndok" />
</div>
</form></td>
</tr>
</table>
</td></tr>
</table>
</td>
</tr>
</table><!--Powered by flymorn,ftwl.cb35.com-->
<br>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">© 2005-2010 <a href="http://ftwl.cb35.com" target="_blank">飞天网络</a> 版权所有<br>
Powered By Author Flymorn,FTWL.CB35.COM; Website Stat Services! <script src=online.asp></script></div></td>
</tr>
</table><!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%><!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?