怎么把图片传到ACCESS数据库里？

[makay]

我用了稻香居士的无组件上传文件，但只能用于SQL SERVER2000数据库，到ACCESS显示不出来，传是传上去了，字段设为OLE。

上传ACCESS数据库，有什么方法没，怎么实现，给点例子。

[bubuy]

存入图片：
<script language="vbscript" runat="server">
dim st,xmldoc,iPic
dim temp
temp="c:\pic\example.jpg"
set st = Server.CreateObject("adodb.stream")
st.Type=1
st.Open
st.loadFromFile temp
dim rs
set rs = Server.CreateObject("adodb.recordset")
rs.open "youdb",yourconn,3,2
rs.addnew
rs("img").appendChunk st.read(-1)
rs.update
rs.close
</script>
读取图片：
<img src="image.asp?id=1" border="0">

image.asp
<%
response.ContentType="image/*"
set rs = yourDBConn.execute("select img from yourDB where id="&request("id"))
Response.BinaryWrite rs("img")
%>

[jinggan]

i 不清

[makay]

帮忙看一下哪错了：

（upload.htm）：
< html>
< body>
< center>
< form name="mainForm" enctype="multipart/form-data"action="process.asp" method=post>
　　　　< input type=file name=mefile>
　　 < input type=submit name=ok value="OK">
　　 < /form>
< /center>
< /body>
< /html>

具体代码如下（process.asp）：
< %
response.buffer=true
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 connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>

（showimg.asp）：
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
% >

[makay]

这些是我从网上摘上来的。

process.asp这个页面总报错，我感觉这几句有问题：

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)

chr上加了个B，left……这些函数都加了B，我把B字符都去掉了，可程序报，
divider=left(formdata,clng(instr(formdata,bncrlf))-1)
的LEFT函数无效。怎么回事，帮忙改改，急……。

[makay]

谢谢： bubuy(澎湃 NoMoneyToBuy)
结贴：）