数据库图片上传时写入说明问题,谢谢大家!!
我想把图片和说明同时存储在access数据库里,但实际实现不了,如下:
上传文件:
<form name="mainForm" enctype="multipart/form-data"
action="process.asp" method=post>
请选择图片文件: <input type=file name=mefile>
<p>请输入图片说明:<input type="text" name="explanation" size="20">
</p>
<p> <input type=submit name=ok value="上传图片">
<input type=reset name=ok1 value="清除图片"> </p>
</form>
处理:
<%
explan=request("explanation") //*** 此句有问题,不知该怎么写**//
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")
connstr="DBQ="+server.mappath("images.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
connGraph.open connstr
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("说明")=explan
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>
<font size="4" color="#FF0000"><b>图片上传成功,<a href="viewimages.asp">去浏览</a></b></font><%=explan%>
实际运行时图片能上传到数据库,但说明explan无法写入数据库,我想可能是request.form和request.binaryread的冲突问题,但不知该如何解决???