28,390
社区成员
发帖
与我相关
我的任务
分享
<%
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&left(RsPic("Title"),17)&"|"
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="330" 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=320
var focus_height=240
var text_height=21
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="#F8E299">');
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">
<td id="RunSwf" valign='center' align='middle' height='100%'></td></a>
</tr></TBODY>
</table>
<table border="0" cellpadding="3" cellspacing="0" width="100%" id="AutoNumber3">
<tr>
<td><script type="text/javascript">