ASP幻灯片
时间:2009-09-04 18:05:00
最近论坛里总有人问幻灯片怎么从数据库里取数据,花了几分钟简单的写了下。
用到的人可以自己在细化
<%
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>