JAVASCRIPT连续跑马灯
<tablewidth="98%"border="0"align="center"cellpadding="0"cellspacing="0"><tr><tdwidth=...
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%"><div align="left"><img src="images/jingpin.jpg" width="24" height="99" /></div></td>
<td width="96%">
<%
'-------------------------
dim rsprfu
set rsprfu = Server.CreateObject("ADODB.RecordSet")
rsprfu.open "select * from niu_product where prdouct_piaofu <> null order by prdouct_piaofu desc",conn,1,1
%>
<table width="680" border="0" cellpadding="0" cellspacing="0" height="100%">
<tr><td> <div id="www_qpsh_com" style="overflow:hidden;height:100%px;width:98%px;color:#ff0000">
<table border="0" align="left" cellpadding="0" cellspacing="0" bordercolor="#999999" cellspace="0">
<tr><td id="www_qpsh_com1" valign="top">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%if rsprfu.bof and rsprfu.eof then%>
<td> </td>
<%
else
do while not rsprfu.eof
%>
<td><div align="center">
<a href="Products_detail.asp?list_id=<%=cint(rsprfu("product_list"))%>&products_id=<%=cint(rsprfu("Product_id"))%>" target="_blank"><img src="admin/images/upfile/<%=rsprfu("Product_images")%>" width="120" border="0" height="90"></a></div></td>
<td width="15"> </td>
<%
rsprfu.movenext
loop
end if
%>
</tr>
</table>
</td><td id=www_qpsh_com2 valign=top></td></tr></table></div>
<script language="javascript">
var speed=10//速度数值越大速度越慢
www_qpsh_com2.innerHTML=www_qpsh_com1.innerHTML
function Marquee(){
if(www_qpsh_com2.offsetWidth-www_qpsh_com.scrollLeft<=0)
www_qpsh_com.scrollLeft-=www_qpsh_com1.offsetWidth
else{
www_qpsh_com.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
www_qpsh_com.onmouseover=function() {clearInterval(MyMar)}
www_qpsh_com.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td></tr>
</table>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
rsprfu.close
set rsprfu = nothing
'推荐结束
%>
网页刚打开正常 网页运转一会这个跑马灯就停止了 不知道什么原因?
高手帮忙看看那 展开
<tr>
<td width="4%"><div align="left"><img src="images/jingpin.jpg" width="24" height="99" /></div></td>
<td width="96%">
<%
'-------------------------
dim rsprfu
set rsprfu = Server.CreateObject("ADODB.RecordSet")
rsprfu.open "select * from niu_product where prdouct_piaofu <> null order by prdouct_piaofu desc",conn,1,1
%>
<table width="680" border="0" cellpadding="0" cellspacing="0" height="100%">
<tr><td> <div id="www_qpsh_com" style="overflow:hidden;height:100%px;width:98%px;color:#ff0000">
<table border="0" align="left" cellpadding="0" cellspacing="0" bordercolor="#999999" cellspace="0">
<tr><td id="www_qpsh_com1" valign="top">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%if rsprfu.bof and rsprfu.eof then%>
<td> </td>
<%
else
do while not rsprfu.eof
%>
<td><div align="center">
<a href="Products_detail.asp?list_id=<%=cint(rsprfu("product_list"))%>&products_id=<%=cint(rsprfu("Product_id"))%>" target="_blank"><img src="admin/images/upfile/<%=rsprfu("Product_images")%>" width="120" border="0" height="90"></a></div></td>
<td width="15"> </td>
<%
rsprfu.movenext
loop
end if
%>
</tr>
</table>
</td><td id=www_qpsh_com2 valign=top></td></tr></table></div>
<script language="javascript">
var speed=10//速度数值越大速度越慢
www_qpsh_com2.innerHTML=www_qpsh_com1.innerHTML
function Marquee(){
if(www_qpsh_com2.offsetWidth-www_qpsh_com.scrollLeft<=0)
www_qpsh_com.scrollLeft-=www_qpsh_com1.offsetWidth
else{
www_qpsh_com.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
www_qpsh_com.onmouseover=function() {clearInterval(MyMar)}
www_qpsh_com.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td></tr>
</table>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
rsprfu.close
set rsprfu = nothing
'推荐结束
%>
网页刚打开正常 网页运转一会这个跑马灯就停止了 不知道什么原因?
高手帮忙看看那 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询