rank.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10"></td>
    <td width="10" rowspan="3"></td>
    <td></td>
    <td width="10" rowspan="3"></td>
    <td></td>
  </tr>
  <tr>
    <td width="293" height="28" align="left" bgcolor="#D4D0C8" class="title">用户贡献排行</td>
    <td width="293" align="left" bgcolor="#B3BDC4" class="title">标签排行</td>
    <td align="left" bgcolor="#9E9EAD" class="title">一月点击排行</td>
  </tr>
  <tr>
    <td align="left" valign="top" bgcolor="#F4EFE5" class="list"><% 
       sql="select top 15 UserID,count(ID) as Num from zhai group by UserID order by count(1) desc,UserID"
       set rs=server.createobject("ADODB.recordset")
       rs.open sql,conn,3
       if not rs.Eof then
         while not rs.Eof 
           Response.Write("·<a href='userzhai.asp?ZhaiUser="&rs("UserID")&"'>"&rs("UserID")&"</a> ("&rs("Num")&") <a href='jsfeed.asp?u="&rs("UserID")&"' target='_blank' title='JS格式输出'>JS</a> <a href='rss2feed.asp?u="&rs("UserID")&"' target='_blank' title='RSS格式输出'>RSS</a><br>")
           rs.MoveNext
         wend
       end if
       rs.close    
       %></td>
    <td align="left" valign="top" bgcolor="#E3E8EA" class="list">      <%
       sql="select top 15 xsort from xsort order by hits desc"
       set rs=server.createobject("ADODB.recordset")
       rs.open sql,conn,3
       if not rs.Eof then
       i=1
         while not rs.Eof and i<=15
           Response.Write("·<a href='tag.asp?xsort="&rs("xsort")&"'>"&rs("xsort")&"</a> <a href='jsfeed.asp?t="&rs("xsort")&"' target='_blank' title='JS格式输出'>JS</a> <a href='rss2feed.asp?t="&rs("xsort")&"' target='_blank' title='RSS格式输出'>RSS</a><br>")
           rs.MoveNext
           i=i+1
         wend
       end if
       rs.close
       %></td>
    <td align="left" valign="top" bgcolor="#E6E6EB" class="list">     <%
		set rszhai=conn.execute("select top 15 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'...') as Title,UserID,FromURL,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,b.ZhaiID,b.Visits from zhai a, (select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=30 group by ZhaiID order by count(*) desc) b where ID=b.ZhaiID and isPub=true order by Visits desc,ID")
		do while not rszhai.Eof		
			Response.Write("·<a href='goto.asp?id="&rszhai("ID")&"' target='_blank' title='"&rszhai("title")&"'>"&HTMLEncode(rszhai("Title"))&"</a> <a href="&rszhai("FromURL")&" target='_blank'><font class='ray'>链接</font></a><br>")
			rszhai.movenext		
		loop
		rszhai.close
	   %></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10"></td>
    <td width="10" rowspan="3"></td>
    <td></td>
    <td width="10" rowspan="3"></td>
    <td></td>
  </tr>
  <tr>
    <td width="293" height="28" align="left" bgcolor="#D4D0C8" class="title">24小时点击排行</td>
    <td width="293" align="left" bgcolor="#B3BDC4" class="title">48小时点击排行</td>
    <td align="left" bgcolor="#9E9EAD" class="title">一周点击排行</td>
  </tr>
  <tr>
    <td align="left" valign="top" bgcolor="#F4EFE5" class="list">	   <%
		set rszhai=conn.execute("select top 15 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'...') as Title,UserID,FromURL,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,b.ZhaiID,b.Visits from zhai a, (select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=1 group by ZhaiID order by count(*) desc) b where ID=b.ZhaiID and isPub=true order by Visits desc,ID")
		do while not rszhai.Eof		
			Response.Write("·<a href='goto.asp?id="&rszhai("ID")&"' target='_blank' title='"&rszhai("title")&"'>"&HTMLEncode(rszhai("Title"))&"</a> <a href="&rszhai("FromURL")&" target='_blank'><font class='ray'>链接</font></a><br>")
			rszhai.movenext
		loop
		rszhai.close
	   %></td>
    <td align="left" valign="top" bgcolor="#E3E8EA" class="list">	   <%
		set rszhai=conn.execute("select top 15 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'...') as Title,UserID,FromURL,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,b.ZhaiID,b.Visits from zhai a, (select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=2 group by ZhaiID order by count(*) desc) b where ID=b.ZhaiID and isPub=true order by Visits desc,ID")
		do while not rszhai.Eof		
			Response.Write("·<a href='goto.asp?id="&rszhai("ID")&"' target='_blank' title='"&rszhai("title")&"'>"&HTMLEncode(rszhai("Title"))&"</a> <a href="&rszhai("FromURL")&" target='_blank'><font class='ray'>链接</font></a><br>")
			rszhai.movenext
		loop
		rszhai.close
	   %> </td>
    <td align="left" valign="top" bgcolor="#E6E6EB" class="list">	   <%
		set rszhai=conn.execute("select top 15 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'...') as Title,UserID,FromURL,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,b.ZhaiID,b.Visits from zhai a, (select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=7 group by ZhaiID order by count(*) desc) b where ID=b.ZhaiID and isPub=true order by Visits desc,ID")
		do while not rszhai.Eof		
			Response.Write("·<a href='goto.asp?id="&rszhai("ID")&"' target='_blank' title='"&rszhai("title")&"'>"&HTMLEncode(rszhai("Title"))&"</a> <a href="&rszhai("FromURL")&" target='_blank'><font class='ray'>链接</font></a><br>")
			rszhai.movenext	
		loop
		rszhai.close
	   %></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->