急:请教图片横向循环滚动问题
xiloo 2006-06-26 05:09:36 代码如下,不知道什么原因,图片只循环滚动一次就停止了,希望大家能帮帮我。
sub pic_s()
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="select Top 8 * from Tx_Products where Products_Flag=1 and Products_Index=1 order by Products_Date"
Rs.Open sql,Conn,1,1
response.write"<div id=demo style=overflow:hidden;height:110;width:750;background:#ffffff;color:#ffffff>"
response.write"<table><tr><td id=demo1> <table><tr>"
while not rs.eof
response.write "<td height='80' width='110'><div><span><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称:" & Rs("Products_Name") & "
产品编号:" & Rs("Products_Code") & "
添加时间:" & YearDa(Rs("Products_Date")) & "'>"
response.write "<IMG SRC=" & Rs("Products_Pic") & " WIDTH=120 HEIGHT=80 BORDER=0></A></span>"
response.write "<br><span><A HREF='Products.asp?Id=" & Rs("Products_Id") & "' title='产品名称:" & Rs("Products_Name") & "
产品编号:" & Rs("Products_Code") & "
添加时间:" & YearDa(Rs("Products_Date")) & "'>" & gotTopic(Rs("Products_Name"),9,1) & "</A></span></td>"
rs.movenext
wend
Rs.Close
Set Rs=Nothing
response.write "</tr></table></td>"
response.write "<td id=demo2></td>"
response.write "</tr></table></div>"
response.write "<script>"
response.write "var speed=15;"
response.write "demo2.innerHTML=demo1.innerHTML; "
response.write "function Marquee(){"
response.write "if(demo2.offsetwidth-demo.scrollLeft<=0) "
response.write "{demo.scrollleft-=demo1.offsetwidth;} "
response.write "else{"
response.write "demo.scrollLeft++;"
response.write "}"
response.write "}"
response.write "var MyMar=setInterval(Marquee,speed);"
response.write "demo.onmouseover=function() {clearInterval(MyMar)};"
response.write "demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}"
response.write "</script>"
end sub