jstop.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<%
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("download.asa")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

<%  dim i,shu,classid,nclassid,news
    if request.querystring("shu")="" or request.querystring("shu")=0 then
       shu=10
    else
       shu=CINT(request.querystring("shu"))
    end if
    set rs=server.createobject("adodb.recordset")  
  
    if request("classid")<>"" and request("Nclassid")<>"" then
    classid = request("classid")
    Nclassid = request("Nclassid")
    sql="select * from download where classid="&classid&" and Nclassid="&Nclassid&" order by hits desc"

    elseif  request("classid")="" and request("Nclassid")<>"" then
    Nclassid = request("Nclassid")
    sql="select * from download where Nclassid="&Nclassid&" order by hits desc"

    elseif  request("classid")<>"" and request("Nclassid")="" then
    classid = request("classid")
    sql="select * from download where classid="&classid&" order by hits desc"

    else
    sql="select * from download order by hits desc" 
    end if
 
	rs.open sql,conn,1,1   
    if rs.eof and rs.bof then %>
      document.write('<p align="center">Sorry! 没有软件</p>');  
    <% else
        news=1  
	do while not rs.eof %> 
    document.write('<li><a  href=list.Asp?id=<%=rs("id")%> title="<%=rs("showname")%>"><%if len(rs("showname"))>16 then%><%=left(rs("showname"),16)%>..<%else%><%=rs("showname")%><%end if%></a></li><font color=#ff0000>(<%=rs("hits")%>)</font><br>'); 
	<% news=news+1 
        if news>shu then exit do  
	rs.movenext           
	loop       
    end if  
    rs.close 
    set Rs=nothing   
	%>