Question

asp 代码 读取ID

下面是一段滚动图片代码，我想从数据库表tupian里读取ID1的图片作为滚动图片001.gif,读取ID2的图片作为滚动图片002.gif,读取ID3的图片作为滚动图片003.gif,如此类推，请问我该怎样做才行？

<div id="demo" style="overflow:hidden;height:210;width:560;color:#ffffff">
<table align="left" cellpadding="0" cellspace="0" border="0">
<tr>
<td id="demo1" valign="top"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="indexgd/001.gif" width="143" height="200" /></td>
<td><img src="indexgd/002.gif" width="143" height="200" /></td>
<td><img src="indexgd/003.gif" width="143" height="200" /></td>
<td><img src="indexgd/004.gif" width="143" height="200" /></td>
<td><img src="indexgd/005.gif" width="143" height="200" /></td>
<td><img src="indexgd/006.gif" width="143" height="200" /></td>
<td><img src="indexgd/007.gif" width="143" height="200" /></td>
<td><img src="indexgd/008.gif" width="143" height="200" /></td>
</tr>
</table></td>
<td id="demo2" valign="top"></td>
</tr>
</table>
</div>
<script>
var speed=8//速度数值越大速度越慢
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>
我的意思是希望用<%=rs3("pic")%>读取同一表不同ID的图片,这样的表应该怎样做,希望有高手帮忙,谢谢
谢谢186563880和 longkin_wl的回答
但如果只用<td><img src="<%=rs3("pic")%>" width="143" height="200" /></td>
这一句,那图像就不滚动了

Answer 1

<td><img src="<%=rs3("pic")%>" width="143" height="200" /></td>
只需要这一句就可以了，其他的都去掉

........
if rs3.eof then
response.write("")
else
do while not rs3.eof 'for i=1 to 10
response.write("<td><img src='"<%=rs3("pic")%>"' width='"143"' height='"200"' /></td>")
rs3.movenext
loop 'next
end if

Answer 2

<td><img src="<%=rs3("pic")%>" width="143" height="200" /></td>
把这个一句话写在循环体中就行了

用数据读取器读取如干条数据，然后循环显示上面的代码

Answer 3

在script里定义一个数组，然后利用下面的语句赋值
<%
Set Rs = Server.createobject("adodb.recordset")
Rs.Open "Select * From tupian",Conn,3,1
for i=0 to Rs.RecordCount
%>
arr[i]=<%=Rs(pic)%>
<%
Rs.moveNext
if Rs.Eof Then Exit For
Next
Rs.Close
Set Rs = Nothing
%>