我把整个代码都贴出来吧：
Sub DePic()
dim pic,links,texts
set rs=server.CreateObject("adodb.recordset")
msql="select top 6 * from zhi_rui_e_io where VoticeFlag=1 and BigPic<>'' and AdminName='"&AdminName&"' order by Id desc"
rs.open msql,conn
do while not rs.eof
pic= pic & Trim(rs("BigPic")&"") & "|"
links="info_Show.asp?InfoId="&rs("ID")&"&ClassId="&rs("ClassId")&"&AdminName="&AdminName & "|"
texts= texts & left(Trim(rs("InfoName")&""),20) & "|"
response.Write(links)
rs.movenext
loop
if pic="" then
pic="images/news.gif"
else
if pic<>"" then pic=left(pic,len(pic)-1)
end if
if links<>"" then links=left(links,len(links)-1)
if texts<>"" then texts=left(texts,len(texts)-1)
If rs.state<>0 Then rs.close
Set rs=nothing
Response.Write"<script type='text/javascript'>"
Response.Write"var swf_width=300;"
Response.Write"var swf_height=240;"
Response.Write"var config='3|0xFFFFFF|FD380B|50|0xffffff|0x0099ff|0x000000';"
Response.Write"var files="""&pic&""";"
Response.Write"var links="""&links&""";"
Response.Write"var texts="""&texts&""";"
Response.Write"document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.,0,0,0"" width=""'+ swf_width +'"" height=""'+ swf_height +'"">');"
Response.Write"document.write('<param name=""movie"" value=""images/focus.swf"" />');"
Response.Write"document.write('<param name=""quality"" value=""high"" />');"
Response.Write"document.write('<param name=""menu"" value=""false"" />');"
Response.Write"document.write('<param name=wmode value=""opaque"" />');"
Response.Write"document.write('<param name=""FlashVars"" value=""config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'"" />');"
Response.Write"document.write('<embed src=""images/focus.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. />');"
Response.Write"document.write('</object>');"
Response.Write"</script>"
End Sub
