asp网页 图片从数据库读取,并横向从右往左滚动的代码怎么写?
2个回答
展开全部
<div id="demo" style="overflow:hidden;width:700px;">
<table border=0 align=center cellpadding=1 cellspacing=1 cellspace=0 >
<tr><td valign=top bgcolor=ffffff id="marquePic1">
<table width='100%' border='0' cellspacing='0'><tr>
<% set rs= Server.CreateObject("ADODB.RecordSet")
sql="select top 8 topid,photoname,bigpic from zhi_rui_g_po order by topid desc" '数据表及调用的总图片数
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂无信息!")
else
i=0
do while not rs.eof%>
<td align="center">
<a href="xxxx.asp?id=<%=rs(0)%>" title="<%=rs(1)%>"><img width="50" height="50" src="<%=rs(2)%>"><br><br><%=left(rs(1),8)%></a></td>
<%
i=i+1
rs.movenext
if i mod 4=0 then response.write ("</tr>")'每行显示的图片数
loop
end if
rs.close
set rs=nothing%>
</table>
</td><td id=marquePic2 valign=top></td></tr>
</table></div>
<script type="text/javascript">
var speed=50
marquePic2.innerHTML=marquePic1.innerHTML
function Marquee(){
if(demo.scrollLeft>=marquePic1.scrollWidth){
demo.scrollLeft=0
}else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</div>
<table border=0 align=center cellpadding=1 cellspacing=1 cellspace=0 >
<tr><td valign=top bgcolor=ffffff id="marquePic1">
<table width='100%' border='0' cellspacing='0'><tr>
<% set rs= Server.CreateObject("ADODB.RecordSet")
sql="select top 8 topid,photoname,bigpic from zhi_rui_g_po order by topid desc" '数据表及调用的总图片数
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂无信息!")
else
i=0
do while not rs.eof%>
<td align="center">
<a href="xxxx.asp?id=<%=rs(0)%>" title="<%=rs(1)%>"><img width="50" height="50" src="<%=rs(2)%>"><br><br><%=left(rs(1),8)%></a></td>
<%
i=i+1
rs.movenext
if i mod 4=0 then response.write ("</tr>")'每行显示的图片数
loop
end if
rs.close
set rs=nothing%>
</table>
</td><td id=marquePic2 valign=top></td></tr>
</table></div>
<script type="text/javascript">
var speed=50
marquePic2.innerHTML=marquePic1.innerHTML
function Marquee(){
if(demo.scrollLeft>=marquePic1.scrollWidth){
demo.scrollLeft=0
}else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</div>
追问
怎么不移动
2013-06-19 · 知道合伙人数码行家
关注
展开全部
图片循环从右往左滚动,且当鼠标移动到图片上时停止滚动。
详细代码如下:
<marquee direction=right onmouseover=stop() onmouseout=start()>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb") '数据库文件名
set rs=server.createobject("adodb.recordset")
%>
<%
SQL="Select * from 表名 where bigpic order by id desc"
set rs=server.createobject("Adodb.Recordset")
rs.open SQL,conn,1,1
Do while not rs.eof
%>
'下面就从数据库里取图片的路径,路径你自己需要再调下。
<p align="center"><img src="<%=(rs("BigPic"))%>" width="25" height="25" align="absmiddle" />p>
<br>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</marquee>
希望可以帮到你。
详细代码如下:
<marquee direction=right onmouseover=stop() onmouseout=start()>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb") '数据库文件名
set rs=server.createobject("adodb.recordset")
%>
<%
SQL="Select * from 表名 where bigpic order by id desc"
set rs=server.createobject("Adodb.Recordset")
rs.open SQL,conn,1,1
Do while not rs.eof
%>
'下面就从数据库里取图片的路径,路径你自己需要再调下。
<p align="center"><img src="<%=(rs("BigPic"))%>" width="25" height="25" align="absmiddle" />p>
<br>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</marquee>
希望可以帮到你。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询