如何将这段代码中的滚动代码改为幻灯播放

残恋思香 · 发表于 2009-9-15 02:49:30

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Set rs = Server. CreateObject ("ADODB.Recordset")
sql = "Select top 10 * from tpsc 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="../ys2.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="275" height="280" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#EEEEFF"><div class="ztdx12" id=demo style=overflow:hidden;height:280;width:275>
<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="qsx.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>

		自动登录	找回密码
密码			注册