function swfnews()
dim files,links,texts
dim swf_width,swf_height
swf_width=240
swf_height=320
dim config
config="5|0xffffff|0x105FAA|60|0xffffff|0xff0000|0x009900"
Set rs=server.CreateObject("adodb.Recordset")
sqlStr="Select * from Op_image;"
rs.open sqlStr,conn,3,1
do while not rs.EoF
files=files&"|"& trim(rs("image").value)
links=links&"|#"
texts=texts& "|" & trim(rs("text").value)
rs.MoveNext
loop
files=Mid(files,2)
links=Mid(links,2)
texts=Mid(texts,2)
Response.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="& swf_width &" height="&swf_height&">")
Response.Write("<param name='movie' value='html.filles/swf/swfnews.swf' />")
Response.Write("<param name='quality' value='high' />")
Response.Write("<param name='menu' value='false' />")
Response.Write("<param name='wmode' value='opaque' />")
Response.Write("<param name='FlashVars' value='config='"&config&"'&bcastr_flie='"&files&"'&bcastr_link='"&links&"'&bcastr_title='"&texts&"'' />")
Response.Write("<embed src='images/swfnews.swf' wmode='opaque' FlashVars='config='"&config&"'&bcastr_flie='"&files&"'&bcastr_link='"&links&"'&bcastr_title='"&texts&"'& menu='false' quality='high' width='"& swf_width &"' height='"& swf_height &"' type='application/x-shockwave-flash' pluginspage=' http://www.macromedia.com/go/getflashplayer' />")
Response.Write("</object>")
end function
ASP 高手请进看看怎么光显示flash不显示图片怎么回事。
答案:2 悬赏:20 手机版
解决时间 2021-04-10 17:01
- 提问者网友:欲望失宠
- 2021-04-10 13:56
最佳答案
- 五星知识达人网友:woshuo
- 2021-04-10 14:50
你的flash文件上下路径不一致,会不会造成你加载的问题
全部回答
- 1楼网友:轻雾山林
- 2021-04-10 15:50
找我,我给你一份好的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯