xiangguan.asp

多语言网站管理系统

<div id=xiangguan style=overflow:hidden;height:170;width:570>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr><td height=10></td></tr>
<tr>
<td id=xiangguan1>
<table width=570 border=0 cellpadding=0 cellspacing=0>
<tr>
<%
xiangguan=30
on error resume next
sqlprod="select top "& xiangguan &" * from buyok_produc where online=true and MidCode ='"&Midcod&"' order by ClickTimes desc"
Set rsprod=Server.CreateObject("ADODB.RecordSet") 
rsprod.open sqlprod,conn,1,1
if not (rsprod.bof and rsprod.eof) then
do while not rsprod.eof
%>
<td class="pic2" align=center valign=bottom>
<img border=0 src=images/small/pic_bg_big<%=pic_xiaogao%>.gif>
<p class="pic1"><a href=list.asp?ProdId=<%=rsprod("ProdId")%>><img border=0 src='<%=rsprod("ImgPrev")%>' onload='DrawImage(this)' alt='<table><tr><td><font color=blue><%=rsprod("ProdName")%></font></td></tr></table>'></a>
</td>
<%
if rsprod.eof then exit do
rsprod.movenext
loop
end if
rsprod.close
set rsprod=nothing
%>
</tr></table>
</td><td id=xiangguan2 width="6"></td></tr></table>
</div>
<script>
  var speed=15
  xiangguan2.innerHTML=xiangguan1.innerHTML
  function Marquee(){
  if(xiangguan2.offsetWidth-xiangguan.scrollLeft<=0)
  xiangguan.scrollLeft-=xiangguan1.offsetWidth
  else{
  xiangguan.scrollLeft++
  }
  }
  var MyMar=setInterval(Marquee,speed)
  xiangguan.onmouseover=function() {clearInterval(MyMar)}
  xiangguan.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>