日期:2014-05-16 浏览次数:20852 次
<div style="width:454px; height:216px; position:absolute; left: 13px; top: 57px;">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select top 5 * from new where LM_ID=4 order by New_ID desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
%>
<script language="JavaScript" type="text/javascript">
<%
do while not rs.eof
%>
ati('neirong.asp?id=<%=rs("New_ID")%>', '<%=rs("New_Url")%>', '<%=rs("New_Name")%>');
<%
rs.movenext
loop
%>
document.write('<embed src="images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F1F1F1" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash"/>');
</script>
<%
End If
rs.close
set rs=nothing
%>
</div>