各位大侠：我想实现的功能是将数据库中的多张图片显示再网页上。具体代码如下：
<%
For i = 1 To rsImageCount(0)
If Not rsImage.Eof Then
session("imgID") = rsImage("imgID")
%>
<td width="514" height="41" align="center" valign="middle">
<IMG SRC="showimg.asp"> &nbsp;</td>
<%
rsImage.MoveNext
end if
Next
%>
在showing.asp的页面中的代码是这样的：
<%
Dim cn,cnnstr
Set cn=Server.CreateObject("ADODB.Connection")
cnnstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "&Server.MapPath("Dog.mdb")
cn.Open cnnstr
set rec=server.createobject("ADODB.recordset")
strsql="select image from NewsImage where imgID ="&session("imgID")
rec.open strsql,cnnstr,1,1
Response.ContentType="image/*"
Response.BinaryWrite rec("image").getChunk(8500000)
rec.close
set rec=nothing
set cnnstr=nothing
%>

但是我显示出来的是我在数据库中最后一张图片的信息，比如说我一个新闻标题对应有三张图片，按理说是显示三张不同的图片，可是我只能显示最后一张图片，请问这是为什么啊？？小弟在线等候！！

不要用SESSION，用参数实现，
If Not rsImage.Eof Then
imgID = rsImage("imgID")
...
<IMG SRC="showimg.asp?imgID=<%=imgID%>"> &nbsp;</td>
...
End If


在showing.asp的页面中的代码是这样的：
<%
Dim cn,cnnstr,imgID
imgID = Request("imgID")
Set cn=Server.CreateObject("ADODB.Connection")
cnnstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "&Server.MapPath("Dog.mdb")
cn.Open cnnstr
set rec=server.createobject("ADODB.recordset")
strsql="select image from NewsImage where imgID ="& imgID
rec.open strsql,cnnstr,1,1
Response.ContentType="image/*"
Response.BinaryWrite rec("image").getChunk(8500000)
rec.close
set rec=nothing
set cnnstr=nothing
%>

恩.

[此贴子已经被作者于2007-3-9 11:07:26编辑过]

因为IMG的SRC即showing.asp是在输出到客户端后才去加载的，并不是在循环的同时运行showing.asp，session("imgID")在服务器端经过循环已赋值为最后一个图片记录的ID

谢谢，非常受用

同意