主题:如何将这段代码中的滚动代码改为幻灯播放,谢谢了
<%@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> </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>
<!--#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> </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>