top10.asp

1st-pay.rar 在线支付程序

javastr=""
<!--#include file="../inc/conn.asp"-->
<%
tops=request("top")
num=request("num")
yangshi=request("yangshi")
if request("top")="day" then
hits="order by dayhits desc"
end if
if request("top")="week" then
hits="order by weekhits desc"
end if
if request("top")="all" or request("top")="" then
hits="order by click desc"
end if
 	set rs=server.createobject("adodb.recordset")
sql="select top "&num&" id,title,click,dayhits,weekhits from news where up=1  "&hits&""
	rs.open sql,conn,1,1
if rs.recordcount>0 then
do while not rs.eof
%>

javastr=javastr+" <%if yangshi=1 then%><IMG src=../../download//%22img/5324_01.gif/%22 border=0><%end if%><%if yangshi=2 then%><li><%end if%> <A  <%if tops="day" then%>title=今日下载：<%=rs("dayhits")%><%end if%><%if tops="week" then%>title=本周下载：<%=rs("weekhits")%><%end if%><%if tops="all" or tops="" then%>title=总下载：<%=rs("click")%><%end if%>次 href=../../download//%22list.asp?id=<%=rs("id")%>%5C%22><%=rs("name")%>&nbsp;<%=rs("bb")%></A><BR>"
<% 
rs.movenext
loop
rs.close   
set rs=nothing   
conn.close   
set conn=nothing %> 
 
document.write (javastr)
<%else%>
document.write ("对不起，暂时没有任何内容。")
<%end if%>