请教:无组件上传中关于显示的问题.

[wbqc9912115]

upload.asp
============================================================

<%
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
bnCRLF=chrB(13) & chrB(10)
Divider=LEFTB(FormData,INSTRB(FormData,bnCRLF)-1)
DataStart=INSTRB(FormData,bnCRLF & bnCRLF)+4
DataEnd=INSTRB(DataStart+1,FormData,divider)-DataStart
mydata=midb(FormData,DataStart,DataEnd)

'Response.ContentType="image/gif"
'Response.BinaryWrite MIDB(FormData,DataStart,DataEnd)
%>

<!--#include file="dearsky21Conn.asp"-->

<%
set rs=server.createobject("Adodb.Recordset")
sql="select img from img"
rs.open sql,conn,1,3
rs.addnew

rs("img").appendchunk mydata

rs.update


%>
========================================
数据库就 （id 和 img ）两个字段。

请问各位大哥怎么样在(show.asp)中显示数据库中的图片。

[jerryzhai]

<%
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
%>

[wbqc9912115]

有哪位大哥帮我解释一下 INSTRB -- LEFTB -- midb 三个函数.

[jerryzhai]

上面是show.asp中的代码?你可以根据具体情况改一下.

在图片的HTML中用如下格式
<img src="show.asp?id=xxx">