<%
dim allfiles
set rs=server.CreateObject("adodb.recordset")
sql="select * from test "
rs.open sql,conn,1,1
if not rs.eof then
while not rs.eof

          AllFiles=split(rs("AllFiles"),"@@@")
           for i=0 to ubound(AllFiles)
           url=replace(AllFiles(i),"{%uploaddir%}","/uploadfiles/") %>
           <div> <img  src=<%=url%>   /></div><br />
<%next%>
           <%
        
 rs.movenext
    wend
    end if
    rs.close:set rs=nothing
    conn.close:set conn=nothing
%>
以上是代码

下面是数据库字段 allfiles 内容： @@@{%uploaddir%}Cons/2011/20111017152339293.jpg@@@{%uploaddir%}Cons/2011/20111017152339293.jpg  这是两个图片，

我for循环那里好像写得不对。大家仔细看纠正一下。

<%
dim allfiles
set rs=server.CreateObject("adodb.recordset")
sql="select * from test "
rs.open sql,conn,1,1
if not rs.eof then

 do while not rs.eof

          AllFiles=split(rs("AllFiles"),"@@@")
           for i=0 to ubound(AllFiles)
           url=replace(AllFiles(i),"{%uploaddir%}","/uploadfiles/") %>
           <div> <img  src=<%=url%>   /></div><br />
<%next%>
           <%
       


 rs.movenext

 Loop
    end if
    rs.close:set rs=nothing
    conn.close:set conn=nothing
%>

不知道对不对 do while not

你没明白我的意思，
这样写是不会报错的。
只不过查询出来的图片 上面 多了 一个这个

就是破了那个 红叉子 图 我估计是for那里写得有毛病

<%
dim allfiles
set rs=server.CreateObject("adodb.recordset")
sql="select * from test "
rs.open sql,conn,1,1
if not rs.eof then
while not rs.eof

          AllFiles=split(rs("AllFiles"),"@@@")
           for i=1 to ubound(AllFiles)
           url=replace(AllFiles(i),"{%uploaddir%}","/uploadfiles/") %>
           <div> <img  src=<%=url%>   /></div><br />
<%next%>
           <%
       

rs.movenext
    wend
    end if
    rs.close:set rs=nothing
    conn.close:set conn=nothing
%>
从1开始循环呗 0的位置得到的数据是空 自然图片就是大叉

恩后来我也明白过来了、