用ASP真正动态实现FLASH幻灯片新闻代码

<table>
<tr>
<TD width=390>

<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(data/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs= Server.CreateObject("ADODB.Recordset")
newsnum=5 '设置你要调用的新闻条数
sql="select top "&newsnum&" * from news where imgtype=1 order by articleid desc"
rs.open sql,conn,1,1
  dim imgnum
  imgnum=1
  do while not (rs.eof or err)
    articleid=rs("articleid")
    titleImg=rs("titleImg")
    classid=rs("classid")
    if len(rs("title"))>15 then
       title=left(rs("title"),14)&"..."
    else
       title=rs("title")
    end if
    
    if imgnum=1 then
    imgUrl="news/"&titleImg
    imgtext=title
    imgLink="http://scdyzx.cn/news/show.aspx?id="&rs("articleid")&"&cid="&classid
    imgLink=vbsEscape(imgLink)
    else
    imgUrl=imgUrl&"|news/"&titleImg
    imgtext=imgtext&"|"&title
    imgLinkadd="http://scdyzx.cn/news/show.aspx?id="&rs("articleid")&"&cid="&classid
    imgLink=imgLink&"|"&vbsEscape(imgLinkadd)
    end if
    imgnum=imgnum+1
    
  rs.movenext
  loop
  rs.close

Function vbsEscape(str) '类似于Javascript的escape方法对文字和链接加密
     dim i,s,c,a
     s=""
     For i=1 to Len(str)
         c=Mid(str,i,1)
         a=ASCW(c)
         If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then
             s = s & c
         ElseIf InStr("@*_+-./",c)>0 Then
             s = s & c
         ElseIf a>0 and a<16 Then
             s = s & "%0" & Hex(a)
         ElseIf a>=16 and a<256 Then
             s = s & "%" & Hex(a)
         Else
             s = s & "%u" & Hex(a)
         End If
     Next
     vbsEscape = s
End Function
%>

<script type="text/javascript">

var focus_width=380
var focus_height=170
var text_height=20
var swf_height = focus_height+text_height

var pics="<%=imgUrl%>"
var link="<%=imgLink%>"
var texts="<%=imgtext%>"

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="image_index/focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#FFFFFF">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+link+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="image_index/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+link+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#FFFFFF" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');  document.write('</object>');

</script>

</td>
</tr>
</table>