new.asp

来自「8款下载系统源代码 2003-3-11 21:37:45 433 949k · 」· ASP 代码 · 共 18 行

<!--#include file="dbpath.asp"--><%Set rs= Server.CreateObject("ADODB.Recordset")     
sql="select * from down order by id desc"
rs.open sql,conn,1,1                     
if not rs.eof then
do while not rs.eof%>
document.write("·<a href=http://www.downasp.com/show.asp?id=<%=rs("id")%> target=_blank><%=rs("name")%></a><Br>")
<%                
i=i+1                                     
if i>=10 then exit do                                     
rs.movenext                                     
loop                        
i=0               
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>