📄 list_ph.asp
字号:
<%@ language=vbscript%>
<%response.buffer=true%>
<!--#include file=conn.asp-->
<% id=trim(request.querystring("id"))
howto=trim(request.querystring("act"))
set countcon=server.createobject("adodb.connection")
%>
<head>
<title></title>
</head>
<body bgcolor="#B2AAA6">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="654" style="font-size: 9pt">
<tr>
<!-- Shim row, height 1. -->
<td><img src="shim.gif" width="39" height="1" border="0"></td>
<td><img src="shim.gif" width="33" height="1" border="0"></td>
<td><img src="shim.gif" width="31" height="1" border="0"></td>
<td><img src="shim.gif" width="30" height="1" border="0"></td>
<td><img src="shim.gif" width="15" height="1" border="0"></td>
<td><img src="shim.gif" width="162" height="1" border="0"></td>
<td><img src="shim.gif" width="318" height="1" border="0"></td>
<td><img src="shim.gif" width="13" height="1" border="0"></td>
<td><img src="shim.gif" width="13" height="1" border="0"></td>
<td><img src="shim.gif" width="1" height="1" border="0"></td>
</tr>
<tr>
<!-- row 1 -->
<td rowspan="2" colspan="6"><img src="img/top.gif" border="0"></td>
<td colspan="2" BACKGROUND="img/namebg.gif"> </td>
<td rowspan="2"><img src="img/edge3.gif" width="13" height="56" border="0"></td>
<td><img src="shim.gif" width="1" height="26" border="0"></td>
</tr>
<tr>
<!-- row 2 -->
<td colspan="2"><img src="img/topbot.gif" border="0" width="331" height="30"></td>
<td><img src="shim.gif" width="1" height="30" border="0"></td>
</tr>
<tr>
<!-- row 3 -->
<td rowspan="8"><img src="img/ileft.gif" width="39" height="262" border="0"></td>
<td rowspan="2"><img src="img/edge1.gif" width="33" height="38" border="0"></td>
<td rowspan="2" BACKGROUND="img/mailbg.gif"> </td>
<td rowspan="2" BACKGROUND="img/questionbg.gif"> </td>
<td rowspan="2"><img src="img/edge2.gif" width="15" height="38" border="0"></td>
<td colspan="2"><img src="img/shadow.gif" width="480" height="22" border="0"></td>
<td colspan="2" VALIGN="top"><img src="img/rtop.gif" width="26" height="22" border="0"></td>
<td><img src="shim.gif" width="1" height="22" border="0"></td>
</tr>
<% select case howto
case "month"
strs="本月"
sql="select top 20 years.y"&month(date())&" as countno,userinfo.webname,userinfo.url,userinfo.admin from years,userinfo where userinfo.admin=years.admin order by years.y"&month(date())&" desc"
case "all"
strs="整体"
sql="select top 20 userinfo.webname,userinfo.url,userinfo.admin,userinfo.totalcount as countno from userinfo order by userinfo.totalcount desc"
case else
strs="本日"
sql="select top 20 months.m"&day(date())&" as countno,userinfo.webname,userinfo.url,userinfo.admin from months,userinfo where userinfo.admin=months.admin order by months.m"&day(date())&" desc"
end select
countcon.open conn
set list_ph=countcon.execute(sql)%>
<tr>
<!-- row 4 -->
<td rowspan="8" colspan="2" VALIGN="top" BGCOLOR="#ffffff">
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="78" style="font-size: 9pt" bgcolor="#7A727E" bordercolor="#9AADCB">
<tr>
<td width="100%" height="5" colspan="5" bgcolor="#FFFFFF">
<p align="center"><br>[<a href="list_ph.asp?id=<%response.write id%>">本日排行</a>][<a href="list_ph.asp?act=month&id=<%response.write id%>">本月排行</a>][<a href="list_ph.asp?act=all&id=<%response.write id%>">整体排行</a>]</td>
</tr>
<tr>
<td width="104%" height="16" align="center" bgcolor="#FFFFFF" colspan="5"> 以下为<%response.write strs%>前20名排行</td>
</tr>
<tr>
<td width="9%" height="13" align="center" bgcolor="#FFFFFF">名次</td>
<td width="35%" height="13" align="left" bgcolor="#FFFFFF">
<p align="center">网站</td>
<td width="20%" height="13" align="center" bgcolor="#FFFFFF">站长</td>
<td width="21%" height="13" align="center" bgcolor="#FFFFFF">评价</td>
<td width="19%" height="13" align="center" bgcolor="#FFFFFF">人数</td>
</tr>
<%i=0
do while not list_ph.eof
i=i+1%>
<tr>
<td width="8%" height="5" bgcolor="#FFFFFF" align="center">
<p align="center"><%response.write i%></td>
<td width="34%" height="5" bgcolor="#FFFFFF" style="border-style: solid" align="center"> <%response.write list_ph("webname")%></td>
<td width="19%" height="5" bgcolor="#FFFFFF" align="center"><%response.write list_ph("admin")%></td>
<td width="20%" height="5" bgcolor="#FFFFFF" align="center">
<%select case strs
case "本日"
ii=int(list_ph("countno")/30)
case "本月"
ii=int(list_ph("countno")/500)
case "整体"
ii=int(list_ph("countno")/1500)
end select
if ii>7 then ii=7
for i=0 to ii
response.write "<img border=0 src=img/star.gif width=11 height=10>"
next%>
</td>
<td width="19%" height="5" bgcolor="#FFFFFF" align="center">
<%response.write list_ph("countno")%></td>
</tr>
<%list_ph.movenext
loop%>
</table>
</td>
<td rowspan="8" colspan="2" VALIGN="top" BACKGROUND="img/rmidbg.gif"><img src="img/rmid.gif" width="26" height="370" border="0"></td>
<td><img src="shim.gif" width="1" height="16" border="0"></td>
</tr>
<tr>
<!-- row 5 -->
<td colspan="4"><img src="img/itop.gif" border="0" width="109" height="64"></td>
<td><img src="shim.gif" width="1" height="64" border="0"></td>
</tr>
<tr>
<!-- row 6 -->
<td colspan="4" background="img/b1.gif" align="center"><font color="#FFFFFF"><a style="cursor: hand" onclick="jscript:window.location='<%response.write yoururl%>'">首
页</a></font></td>
<td><img src="shim.gif" width="1" height="27" border="0"></td>
</tr>
<tr>
<!-- row 7 -->
<td colspan="4" background="img/b2.gif" align="center" valign="top"><font color="#FFFFFF"><br>
<a onclick="jscript:window.location='reg.htm'" style="cursor:hand">免费申请</a></font></td>
<td><img src="shim.gif" width="1" height="31" border="0"></td>
</tr>
<tr>
<!-- row 8 -->
<td colspan="4" background="img/b3.gif" align="center" valign="top"><font color="#FFFFFF"><br>
<a onclick="jscript:window.location='listcount.asp?id=<%response.write server.urlencode(id)%>'" style="cursor:hand">网站统计</a></font></td>
<td><img src="shim.gif" width="1" height="31" border="0"></td>
</tr>
<tr>
<!-- row 9 -->
<td colspan="4" background="img/b4.gif" align="center" valign="top"><font color="#FFFFFF"><br>
<a onclick="jscript:window.location='log.htm'" style="cursor:hand">修改资料</a></font></td>
<td><img src="shim.gif" width="1" height="32" border="0"></td>
</tr>
<tr>
<!-- row 10 -->
<td colspan="4"><img src="img/aftw.gif" border="0" width="109" height="39"></a></td>
<td><img src="shim.gif" width="1" height="39" border="0"></td>
</tr>
<tr>
<!-- row 11 -->
<td colspan="5" BACKGROUND="img/left.gif" VALIGN="top" HEIGHT="450">
<p ALIGN="center"><br>
</td>
<td><img src="shim.gif" width="1" height="130" border="0"></td>
</tr>
<tr>
<!-- row 12 -->
<td colspan="5"><img src="img/bot1.gif" width="148" height="20" border="0"></td>
<td colspan="2"><img src="img/bot2.gif" width="480" height="20" border="0"></td>
<td colspan="2"><img src="img/bot3.gif" width="26" height="20" border="0"></td>
<td><img src="shim.gif" width="1" height="20" border="0"></td>
</tr>
</table>
</center>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -