newsphoto.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 49 行

<div align='center' id='demo' style='overflow:hidden;height:130px;width:700px;'>
<%
    set RsPic=server.createobject("adodb.recordset")
    sql="select top 6 * from a125_p_news where isbest=1 ORDER BY id DESC"
    RsPic.open sql,conn,1,1
    if RsPic.eof or RsPic.bof then
    Call NoPic("暂无图文新闻")
    end if
%>
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
	<td width="287" valign='top' id='demo1'>
		<table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
		<tr valign='top'>
	<%
    do while not RsPic.eof 
		%>
			<td align='center'>
<%   Call a125_NewsShowPic(RsPic("pic_spic"),RsPic(0),RsPic("pic_name"),110,90,16)%>			
			</td>
	  <%
    RsPic.movenext
    loop
    RsPic.CLOSE
    SET RsPic=Nothing
	%>
		</tr>
		</table>
	</td>
	<td width="12" valign=top id=demo2></td>
</tr>
</table>
<script>
var speed=15
demo2.innerHTML=demo1.innerHTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,speed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,speed)}
</script>
</div>