<SCRIPT type=text/javascript>
var focus_width=1000 //宽度(flash源文件不用修改,把要显示的图片设置同样大小)
var focus_height=133 //高度
var text_height=0
var swf_height = focus_height+text_height
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "select top 5 * from ad where nclass='首页1' order by intop desc",conn,1,1
for i = 1 to 5
piccs=piccs&"/upfile/"&rs("spic")
links=links&rs("url")
rs.movenext
if rs.eof then exit for
piccs=piccs&"|"
links=links&"|"
next
rs.close
set rs=nothing
%>
var pics= '<%=piccs%>'//图片地址
var links='<%=links%>'//相对于图片的链接地址
var texts='|||'
document.write('<object ID="focus_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="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="/images/focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#fff">');
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('<embed ID="focus_flash" src="images/focus.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#fff" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage=" http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
</SCRIPT>
这是一段调用幻灯片的代码,运行出错,但不知道出在那里,急求,谢谢!