flash.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<%
dim pics1,texts1,links1  
set RsPic=server.createobject("adodb.recordset")
RsPic.Source="select top 5 * from  a125_news where Ispic=1 and New_tuijian=True ORDER BY id DESC" 
RsPic.Open RsPic.Source,conn,1,1   
do while not RsPic.eof    
links1=links1&"a125_news.asp?id="&RsPic("ID")&"|"      
pics1=pics1&RsPic("spic")&"|"      
texts1=texts1&RsPic("Title")&"|"    
RsPic.movenext 
loop  
RsPic.close 
Set RsPic=Nothing
if instr(right(links1,1),"|")>0 then  
links1=left(links1,len(links1)-1)  
texts1=left(texts1,len(texts1)-1) 
pics1=left(pics1,len(pics1)-1)  
end if
%>
<table width="236" border="0" cellpadding="0" cellspacing="0" bgcolor="#eeeeee" id="table2">
   <TBODY><tr>
    <td align="center" bgcolor="#FFFFFF">
      <table border="0" cellpadding="3" cellspacing="0" width="100%" id="AutoNumber3">
        <tr>
          <td><script type="text/javascript">
var focus_width=236
var focus_height=236
var text_height=14
var swf_height = focus_height+text_height
    
var pics="<%=pics1%>" 
var links="<%=links1%>"
var texts="<%=texts1%>" 

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/playswf1.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='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed ID="focus_flash" src="images/playswf1.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#FFFFFF" 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></td>
        </tr>
     </table>
    </td>
   </tr>
    <tr id="CanRunSwf" style="DISPLAY: none"><a id="Link2" " target=_blank&quot;>
      <td id="RunSwf" valign='center' align='middle' height='100%'></td></a>
    </tr></TBODY>
  </table>