这是Upload.htm

　　
　　


这是Process.asp <% db_path="member.mdb" set conn=server.CreateObject("ADODB.connection") connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path) conn.open connstr %> <% formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13)&chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf&bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend) set rs=server.createobject("ADODB.recordset") rs.open "SELECT * FROM imgurl",conn,3,3 rs.addnew rs("img").AppendChunk myData rs.update rs.close set rs=nothing set conn=nothing response.redirect "index1.asp" %>

这是Showing.asp <% setconnGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="& server.MapPath("images.mdb")&";uid=;PWD=;" connGraph.Open setrec=server.createobject("ADODB.recordset") strsql="selectimgfromimageswhereid="&trim(request("id")) rec.openstrsql,connGraph,1,1 Response.ContentType="image/*" Response.BinaryWriterec("img").getChunk(7500000) rec.close setrec=nothing setconnGraph=nothing %>

这是index1.asp <% db_path="member.mdb" set conn=server.CreateObject("ADODB.connection") connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path) conn.open connstr %> <% strsql="select * from imgurl" set rs=server.createobject("ADODB.recordset") rs.open strsql,conn,1,1 do until rs.eof whatid=rs("id") %>
<% rs.movenext loop%>

这是上传图片的一段程序，可是就是图片显示不出来。。。 谁帮我看一下呀。。。

非常感谢。。。

我数据库Member建了，表imgurl也建了，表的类型一个是自动编号ID，一个是IMg类型是OLE对象。。。

Response.BinaryWriterec("img").getChunk(7500000) 改成Response.BinaryWrite rec("img").getChunk(7500000) 少了空格

回复：【求助】帮我看一下，出错在哪里？ Response.BinaryWriterec("img").getChunk(7500000) 改成 Response.BinaryWrite rec("img").getChunk(7500000) 少了空格 作者： 58.46.235.* 2008-5-2 20:27 　 回复此发言 不是这个问题，我该空的空格都空开了，就是图片显示是叉叉。。

好心人，帮忙看一下

你可以右击叉叉选择属性，看一下图片的地址或许可以找出毛病