调用代码:
<!--#include file="conn.asp"-->
<%
ID=""
title=""
path=""
set Rspic=server.createobject("adodb.recordset")
Sqlpic="select top 6 * FROM tbArticle where PictureAddress<>'' and ColumnCode='A101' and State=1 order by ArticleID desc"
Rspic.open Sqlpic,conn,1,1
do until Rspic.eof
if path="" then
path="pics="&Rspic("PictureAddress")
ID="NewsContent.asp?ID="&Rspic("ArticleID")
title=Rspic("Title")
else
path=path&"|"&Rspic("PictureAddress")
ID=ID&"|NewsContent.asp?ID="&Rspic("ArticleID")
title=title&"|"&left(Rspic("Title"),20)
end if
Rspic.movenext
loop
Rspic.close
Set Rspic=nothing
picPath=path
picID=ID
pictitle=title
'pictitle="<font color='#FF0000'>"&title&"</font>"
'response.Write(pictitle)
'response.End()
response.write("<object ID='lunbo_flash' classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' codebase=' http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width='315' height='247'><param name='allowScriptAccess' value='sameDomain'><param name='movie' value='lunbo.swf'><param name='quality' value='high'><param name='fontcolor' value='#ff0000'><param name='bgcolor' value='#ffffff'><param name='menu' value='false'><param name=wmode value='opaque'><param name='FlashVars' value='"&picpath&"&links="&picID&"&texts="&pictitle&"&borderwidth=315&borderheight=220&textheight=20'><embed ID='lunbo_flash' src='lunbo.swf' wmode='opaque'FlashVars='"&picpath&"&links="&picID&"&borderwidth=315&borderheight=247&textheight=0' menu='false' bgcolor='#ffffff' quality='high' width='315' height='247' allowScriptAccess='sameDomain' type='application/x-shockwave-flash' pluginspage=' http://www.macromedia.com/go/getflashplayer'/>")
%>
如果有现在的满足条件的flash播放器更好 我没有分了 请大家帮帮忙