<%
Sub TopProducte()
Dim Sql,Rxs
i=1
Sql="select top 20 p_id,p_name,p_spec,p_pic from p_info where p_other=1 ORDER BY rnd(p_id) "
Set Rxs=server.createobject("adodb.recordSet")
Rxs.open sql,conn,1,1
if Rxs.BOF and Rxs.EOF then
'Response.Write("暂时还没有产品！")
Rxs.close
Set Rxs=Nothing
elseif Not(Rxs.BOF or Rxs.EOF) then
Response.Write("")
Do While Not Rxs.EOF
%>
function ScrollImgLeft(){
var speed=20
var scroll_begin = document.getElementById("scroll_begin");
var scroll_end = document.getElementById("scroll_end");
var scroll_div = document.getElementById("scroll_div");
scroll_end.innerHTML=scroll_begin.innerHTML
function Marquee(){
if(scroll_end.offsetWidth-scroll_div.scrollLeft<=0)
scroll_div.scrollLeft-=scroll_begin.offsetWidth
else
scroll_div.scrollLeft++
}
var MyMar=setInterval(Marquee,speed)
scroll_div.onmouseover=function() {clearInterval(MyMar)}
scroll_div.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
}
<% Call TopProducte() %>
|
|
|
|
友情连接