📄 top.asp
字号:
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
RS.open ("select (count) from system "),Conn,1
bos = rs(0)
rs.close
rs.Open ("select sum(count) from user "),conn,1
all_count=rs(0)
rs.Close
%>
<TITLE>中国洞穴网－－免费域名系统->访问排行</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="img/sys.css">
</STYLE>
<HTML>
<HEAD>
</HEAD>
</td>
</tr>
</table>
<body topmargin="0" leftmargin="0">
<div align="center" style="width: 1006; height: 476">
<BR>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>
</TD></TR>
<TR>
<TD>
<p align="center"> <table class=ttbb border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: dotted; border-width: 1" bordercolor="#111111" width="569" height="244">
<tr>
<td width="567" height="45" colspan="3" bgcolor="#FFFFFF" style="position:relative">
<div id="9126" style="position:absolute; left:0px; top:-31px; border-style:none;">
<img border="0" src="img/2hot.gif"></div>
</td>
</tr>
<tr>
<td width="567" height="24" bgcolor="#0374B8" colspan="3">
<script src=menu.js></script></td>
</tr>
<tr>
<td width="71" height="194" bgcolor="#66CCFF" valign=top rowspan="2">
<p align="center">
<img border="0" src="img/top.gif"></td>
<td class=en width=496 background="img/bg.gif" bgcolor=#66ccff
height=220 valign="top"> 累计访问量排行(TOP20) 总注册用户<strong><font color=red><%=bos%></font></strong>人 总访问量<strong><font color=red><%=all_count%></font></strong>次
<TABLE border=1 cellpadding=4 cellspacing=0 width="98%" height="100" style="border-collapse: collapse" bgcolor="#DBDBDB"><tr align="center" bgcolor="#0374B8"><td width="25" bgcolor="#0374B8"><font color="#FFFFFF">名次 </font></td><td><font color="#FFFFFF">网站资料</font></td><td width="70"><font color="#FFFFFF">总访问量 </font></td></tr><%
rs.Open ("select top 20 [title],[count],[info],[name],[url],[seldomain] from [user] order by count desc"),conn,1,1
count=rs.RecordCount
if count>20 then count=20
for i=1 to count
%>
<tr><td height="17" align="center" width="25"><b><%=i%></b></td><td height="17"><%=rs("title")%><br>网址：<a href=http://<%=rs("name")%>.<%=rs("seldomain")%> target=_blank><b>http://<%=rs("name")%>.<%=rs("seldomain")%> </b></a><br>网站介绍：<%=rs("info")%></td><td width="70" height="17" align="center"><%=rs("count")%></td></tr><%
rs.MoveNext
next
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table></td></tr><tr><td align=right bgcolor=#66ccff height=14><img height=20
src="img/bottomr.gif" width=20
border=0></td>
</tr>
</table>
</center>
</div>
<p align="center"><script src=bob.htm></script></p>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -