asp如何读取在access一个字段里面存放的几个图片路径,并在页面上全部显示出来 20
各位大哥首先谢谢你们的热情帮助,小弟刚学请多多指教。
我刚才试了这个，运行到str = "<%=rs("pic")%>"这一行代码时会出现{Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/cd.asp, line 18, column 14
str = "<%=rs("pic")"
-------------^ 展开
Dim str
str = "<%=rs("pic")%>"
Dim s,i
s = Split(str, ";") ';为分隔符,最好保存数据时分隔符用两个字符以上,例如$$,这种字符在图片路径中是不会存在的.
' UBound(s) 这个是统计一共有几个图片
For i = 0 To UBound(s)
response.write "<img src='"&s(i)&"' width=20 height=20 border=0 />"
response.write "<br />"
Next
%>
注:
/carbz/1.gif;/carbz/2.gif;/carbz/3.gif;/carbz/4.gif;/carbz/5.gif;/carbz/6.gif
如果只读取其中一个图片,这个数组每个图片的数组值由0开始
如果要读取1.gif
response.write "<img src='"&s(0)&"' width=20 height=20 border=0 />"
如果要读取4.gif
response.write "<img src='"&s(3)&"' width=20 height=20 border=0 />"
循环读取数据并输出即可：
以下示例将 pic 字段里的全部图片输出到表格中
<%
prop=rs("nza")
sql1="na like '%"&prop&"%' "
set conn = Server.CreateObject("ADODB.Connection")
rs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
conn.Open rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pic where "&sql1&" order by pictime desc",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align=center><img src=..no.jpg><br><p>"
Else
%>
<table width="100%" height="230" border="0">
<tr>
<%
zo=rs.recordcount
for i=1 to zo %>
<td width="9%" height="155" align="left"><img src="../<%=rs("pic")%>" width="180" height="140" border="0" align="middle" /><br>
<%
<font face=Verdana size=1><%=split(rs("pic"),"/")(3)%>-<%=split(rs("pic"),"/")(4)%></font></td>
<% rs.movenext
if i mod 3=0 then response.Write "</tr>"
next
end if
%>
Dim str
str = "<%=rs("pic")%>"
Dim s,i
s = Split(str, "分隔符")
For i = 0 To UBound(s)
response.write "<img src='"&s(i)&"' width=20 height=20 border=0 />"
response.write "<br />"
Next
%>你先尝试这个看看吧，在我这里试没问题，如果还不行的话，再找我也没关系！
str = "/carbz/1.gif;/carbz/2.gif;/carbz/3.gif;/carbz/4.gif;/carbz/5.gif;/carbz/6.gif"
Dim s() As String
s = Split(str, ";")
For i = 0 To UBound(s)
Debug.Print s(i)
Next
在asp中修改一下就可以
