logo.asp

来自「小型房产中介源码」· ASP 代码 · 共 49 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/system.css" rel="stylesheet" type="text/css">
<div id=demo style=overflow:hidden;height:245;width:150;color:#ffffff>
<div id=demo1>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td align="center">


<%
dim sb,ns
sb="select * from link "
set ns=DB.execute(sb)
if ns.eof and ns.bof then
response.write "<p class=index-zhi>最近没有链接!</p>"
else	
do while not ns.eof 
%>
      <a href=<%=ns("siteurl")%> target="_blank"> 
      <img height="30" width="88" src=<%=ns("logourl")%>></a> 
      <br>
<br>
<%
 ns.movenext					 
 loop					 
	end if
  %>					
						  
 </td>					 
 </tr>					 
  </table>                   
      </div>
<div id=demo2></div>
</div>
<script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else{
demo.scrollTop++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>