<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="../conn.asp" --> 
<% 
Set rs = Server. CreateObject ("ADODB.Recordset") 
sql = "Select top 10 * from tp1 ORDER BY id DESC" 
rs.Open sql,conn,1,1 
%> <html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>无标题文档 </title> 
<link href="../ys/ys.css" rel="stylesheet" type="text/css"> 
</head> 

<body> 
<table width="300" height="250" border="0" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td> <div class="ztdx12" id=demo style=overflow:hidden;height:120;width:702> 
<table align=left cellpadding=0 cellspace=0 border=0> <tr> 
<td id=demo1 valign=top> <table border="0" cellspacing="0" 
cellpadding="0"> <tr> 
<td align="center" valign="top"> <table width="100%" border="0" 
cellspacing="0" cellpadding="0"> <tr> 
<% 
if rs.EOF and rs.BOF then 
response.write ("暂时还没有教材") 
else 
Do Until rs.EOF %> 
<td align="center" class="zt12"> <a 
href="qxs.asp?id= <%=rs("id")%>" target="_blank"> <img src=" <%=rs("url")%>" 
width=" <%=rs("kuan")%>"  height=" <%=rs("gao")%>" border="0" /> </a>&nbsp; </td> 
<% rs.MoveNext 
Loop 
end if 
%> </tr> </table> </td> </tr> </table> </td> 
<td id=demo2 valign=top> </td> </tr> </table> 
</div> <script> 
var speed=30 
demo2.innerHTML=demo1.innerHTML 
function Marquee(){ 
if(demo2.offsetWidth-demo.scrollLeft <=0) 
demo.scrollLeft-=demo1.offsetWidth 
else{ demo.scrollLeft++ } } 
var MyMar=setInterval(Marquee,speed) 
demo.onmouseover=function() {clearInterval(MyMar)} 
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)} 
</script> 
</td> 
  </tr> 
</table> 
</body> 
</html>