UC知道ASP 读取数据库全部图片
来源：百度知道 编辑：UC知道 时间：2024/06/25 08:19:41
我想把数据库中的图片全部显示出来,如何显示,下面代码哪里不对,高手帮一下
<%
dim Conn, RS
'打开数据库连接
Set Conn = GetConnection
Set RS = Server.CreateObject("ADODB.Recordset")
'打开数据库表
sql="select * from upload"
RS.Open sql,Conn,1,3
do while not rs.eof
Response.ContentType=rs("ContentType")
Response.BinaryWrite(rs("Data"))
rs.movenext
loop
rs.close
Set rs=nothing
Function GetConnection() '设置数据库连接语句
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("upload.mdb")
set GetConnection = Conn
end function
%>
只能显示一张图片,帮看一下哪儿错了,我想输出数据库中的全部图片
<%
dim Conn, RS
'打开数据库连接
Set Conn = GetConnection
Set RS = Server.CreateObject("ADODB.Recordset")
'打开数据库表
sql="select * from upload"
RS.Open sql,Conn,1,3
do while not rs.eof
Response.ContentType=rs("ContentType")
Response.BinaryWrite(rs("Data"))
rs.movenext
loop
rs.close
Set rs=nothing
Function GetConnection() '设置数据库连接语句
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("upload.mdb")
set GetConnection = Conn
end function
%>
只能显示一张图片,帮看一下哪儿错了,我想输出数据库中的全部图片
主要是循环部分有问题
只能显示一张.可能是你没有设置图片的循环语句!
从上面来看.并无法看出你的图片显示代码的.
是不是显示出来的图没有规定放置位置，把原来的图覆盖了啊？这样只能看到最后一张图了。
在代码中真的看不出什么问题