asp显示access数据库一个id下多幅图片的问题(页 1) - 程序开发 - TechWeb-技术社区

只能期待 发表于 2007-12-7 13:47

asp显示access数据库一个id下多幅图片的问题

我的images表中有六个字段:id img,img1,img2,img3,img4
我想问一下怎么才能在查询id的时候显示这个id下的所有图片???? 7d"U6XI1Sq*d5VLc
我的查询页面是:searchimg.asp *F7N6x*s`b@V3P
<html> 6b r2_VUd

<body> 'Rif.jnzT

<center>
;Oa6C3Ddx9T,L!`
　　 <form name= "mainForm " enctype= "text/plain " action= "showimg.asp " method= "get ">
　　　　请输入要显示图片的序号： <input type=id name=id>

　　 <input type=submit name=ok value= "提交 ">

　　 </form> QN8~9Ro@0O vV

</center>
</body> F3P0H T tz.szU}
</html> sM'gz9zL)nc
'nz;[ E"lgL-CQ
showimg.asp:

<% X*_(jT.T)Zz0_

set connGraph=server.CreateObject( "ADODB.connection ") (Jy*sr1tkH{

connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath( "submit.mdb ")
O7{E-s})Q
set rec=server.createobject( "ADODB.recordset ") i?wP B.qZ:\v
0I/vs)yR1T:y WRxa
id=trim(request.querystring( "id "))

strsql= "select * from images where id= "&Request.QueryString( "id ")& " " j}bY Q$Wv

rec.open strsql,connGraph,1,1

Response.ContentType = "image/gif " *D sj4E \H

Response.BinaryWrite rec( "img ").getChunk(7500000)
Response.BinaryWrite rec( "img1 ").getChunk(7500000) kAG#WGt x6| S
Response.BinaryWrite rec( "img2 ").getChunk(7500000)
Response.BinaryWrite rec( "img3 ").getChunk(7500000) u,}0o ~!J+FDf1{
Response.BinaryWrite rec( "img4 ").getChunk(7500000) &[`^;B$wP3@v"z6N
&S9M(tJj#A
rec.close v:M'K'K?k)L\

set rec=nothing

set connGraph=nothing /cr$];\#A(e3fm H
:w5XE*p4RcY/F't
%> L`!Ps_}!B.w
大家看一下这个有什么错误?为什么只显示了一个图片,而不是这个id下的所有图片?

发表于 2007-12-8 21:12

怎么就没人回复呢????
各位知道的大哥帮帮忙吧!!!

发表于 2007-12-8 21:12

这个问题有那么难吗?? 1j R&fvno[,~v
怎么就没人回复呢?
各位大哥知道的就帮帮忙吧!小弟在此感激不尽!!!

发表于 2007-12-8 21:12

怎么就没人关注呢?是不是分太少了?小弟只有这10分了!! ;l]UJo(L?
各位大哥!!
知道的帮帮忙,小弟我感激不尽!!!

发表于 2007-12-8 21:13

VBScript code又是你啊,呵呵
Response.BinaryWrite rec( "img ").getChunk(7500000)
response.write("1")
Response.BinaryWrite rec( "img1 ").getChunk(7500000) .H6HiS"X&KHx,Tu6F
response.write("1")kM?PP&p7v@
Response.BinaryWrite rec( "img2 ").getChunk(7500000) 2T4vY.k-RG
response.write("1")7e-R%LR+y
Response.BinaryWrite rec( "img3 ").getChunk(7500000) 1KH.}D,b{nI
response.write("1") Z:yZV%O
Response.BinaryWrite rec( "img4 ").getChunk(7500000) {R s,T*` p
response.write("1")
看看你显示的到底是哪幅图片,还有,检查一下你数据库中是否有图片GY+En&p\j}
一点一点调

发表于 2007-12-8 21:14

我的数据库中有图片,但就是调不出来,我想显示一个id下的所有图片
不知道怎么回事只能显示第一个图片?

发表于 2007-12-8 21:14

VBScript code

Response.BinaryWrite rec( "img ")
response.write("1")
Response.BinaryWrite rec( "img1 ") #d?|L$O5~/oX0l3x
response.write("1")8dlVGb u
Response.BinaryWrite rec( "img2 ") xH``6{a5_
response.write("1");@5l.?t1t7P8x)~4qYa
Response.BinaryWrite rec( "img3 ")
response.write("1")"iW/i'{``Qb#H8]2e
Response.BinaryWrite rec( "img4 ")
response.write("1")
这样再试试

发表于 2007-12-8 21:14

按你的方法出现了下面的错误: ~7HMt,Zs+e G
$|:~X-avU ZJFWJ
<font face= "宋体 " size=2>
<p> ADODB.Recordset </font> <font face= "宋体 " size=2> 错误 '800a0cc1 ' </font>
<p>
<font face= "宋体 " size=2> 在对应所需名称或序数的集合中，未找到项目。 </font> B*eU/c{7Z|F6~ F
<p>
<font face= "宋体 " size=2> /dispimg/showimg.asp </font> <font face= "宋体 " size=2> ，行 17 </font>

发表于 2007-12-8 21:14

VBScript code
*UG x!^G
+RG#Kww(`
不是吧!不应该的啊,你分着调试试,只输出一个图片,如:把下面%EL+MP5X(cY)h3O Xj%u
Response.BinaryWrite rec( "img ").getChunk(7500000) o;SDkOJ,H
response.write("1")
Response.BinaryWrite rec( "img1 ").getChunk(7500000)
response.write("1")
Response.BinaryWrite rec( "img2 ").getChunk(7500000) q nlV,NX.F/[K
response.write("1")b'PDGI$s
Response.BinaryWrite rec( "img3 ").getChunk(7500000)
response.write("1")&e/tlBxd:}9oV!k
Response.BinaryWrite rec( "img4 ").getChunk(7500000)
response.write("1")
改成
response.write("1")
Response.BinaryWrite rec( "img2 ").getChunk(7500000) Sm5R4d3QV&B
看看能不能出来

发表于 2007-12-8 21:14

不行啊,还是那个错误!! khX2}dt9|A#y)C
下面是我的改过后的代码: WpG:cq)U\*g
<%
+Y"|)^_&P.C.gK(ss/iL9t
set connGraph=server.CreateObject( "ADODB.connection ") Z'J&cLg:L!`"[
Cm(c7?Mh:C%DU
connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath( "submit.mdb ") -U.\R&}+}&A
2O%z\_4`R
set rec=server.createobject( "ADODB.recordset ") -y*Z y[.yq

id=trim(request.querystring( "id ")) q&`a0N+b+|,rLNJ

strsql= "select * from images where id= "&Request.QueryString( "id ")& " " 2{}CwIp-sE*Jn

rec.open strsql,connGraph,1,1 H+g r;\bQ0e

Response.ContentType = "image/gif " J5O%^/};`;}8Fr:{}E

$p,rE)le%jymr
Response.BinaryWrite rec( "img2 ").getChunk(7500000)
#k1g:p `1a8p
response.write( "1 ")
rec.close 1a K a#}9o"T
`-^*GsR0xB ~
set rec=nothing Q:n1N `%T(ChB

set connGraph=nothing '{$ET|i'c_;f
;gnLwt*{
%>

发表于 2007-12-8 21:15

输出一条的时候也报错?你原来输出多条的时候没错,只是输不出来对吧,貌似Response.BinaryWrite这个一次只能输出 S(~,F"j1J.K8n)M
一个图片

发表于 2007-12-8 21:15

那用什么能一次输出多个图片??

发表于 2007-12-8 21:15

呵呵,早就说过你应该改下字段类型的,这种二进制保存图片只适合图片较少的情况,否则数据库巨大
像你这个一条记录里就6个ole对象,就算让你作出来你的程序也有问题
没发现回复你的人很少吗?因为这么做的人太少了,还是改下数据库比较好

发表于 2007-12-8 21:15

郁闷啊!!!
那怎么改数据库?? -\[1poq R3MG
是不是图片存进文件夹,路径存进access?

发表于 2007-12-8 21:16

嗯,把图片存入文件夹,然后把img等字段改成文本类型(字符串类型),它用来保存图片的路径

发表于 2007-12-8 21:16

你有没有现成的例子啊,发过来看看.

发表于 2007-12-8 21:17

HTML code

..举个例子吧,假设图片都在images文件夹下RRq-q BB
数据库
id img img1
1 1.jpg 2.jpg o2`#}I%G} r"v1vp2`

代码
<%
set rs=server.createobject("adodb.recordset")DM~y{ _ d r/J
if request("id")<>"" then
rs.open "select * from tb where id="&request("id"),conn,1,3 m m6NQgIk
if not rs.eof then-n_m/xu?b
response.write("<img src=images/"&rs("img")&">")
response.write("<img src=images/"&rs("img1")&">")
end if:H-x JA+Z;b)X#z
rs.close
end if
%>

发表于 2007-12-8 21:17

还是不懂,在网上找的上传组件都不知道怎么用?你可不可以发个现成的给我!

发表于 2007-12-8 21:17

这都不懂?! ~L5Q Kjn&q?
上传组件!看来我是雷锋啊!为了10点忙活半天!

发表于 2007-12-8 21:17

再问下,你们一共几个人作网站

页: [1] 2

TechWeb-技术社区's Archiver

asp显示access数据库一个id下多幅图片的问题