www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > flash.asp

    <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db.mdb")
Set rs01 = Server.CreateObject("ADODB.Recordset")
sql01="select top 10 id,title,image from content where myindex=true and image<>null Order By ID DESC"
rs01.open sql01,conn,1,2
for i=1 to rs01.recordcount
title=rs01("title")
if len(title)>21 then title=left(title,20) & "?-"
response.Write("image"&i&"=" & rs01("image") & "&url"&i&"=" & title & "&id"&i&"=" & rs01("id")&"&")
rs01.MoveNext
next
rs01.close
%>