ASP幻灯片

最近论坛里总有人问幻灯片怎么从数据库里取数据，花了几分钟简单的写了下。

用到的人可以自己在细化

<％
dim rs,sql
set rs = server.CreateObject("adodb.recordset")
dim conn,ConnStr
dataBasePath = "aa.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dataBasePath)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
dim pic,txt,link 
pic = ""
txt = ""
link = ""
rs.open "select * from a order by id desc ",conn,1,1 
do while not rs.eof
pic=pic&rs("pic")&"|" 
  txt=txt&rs("text")&"|" 
  link=link&rs("link")&"|" 
rs.movenext
loop
rs.close
set rs = nothing
pic=left(pic,len(pic)-1) 
txt=left(txt,len(txt)-1) 
link=left(link,len(link)-1) 
％>
<script type="text/javascript">
var focus_width=240
var focus_height=200
var text_height=18
var swf_height = focus_height+text_height
var pics="<％=pic％>"
var links="<％=link％>"
var texts="<％=txt％>"
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/focus1.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('</object>');
</script>