[讨论]图片上传的简单代码
数据表(SQLSERVER)后台的用于存放图片的字段为fimg,类型为image,允许为空。
我是用下面这个输入框供用户选择上传图片:
<td>图片上传:<input type="file" name="img"></td>
我用下面的这几句取得提交的图片数据:(为什么上传不上去呢?)
response.buffer=true
ImageSize=Request.TotalBytes '获取提交数据量的总字节数
ImageData=Request.BinaryRead(ImageSize) '保存从客户端读取到的数据
'优化读取到的二进制数据
BnCrLf=chrB(13)&chr(10)
Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1)
Dstart=InstrB(ImageData, BnCrLf& BnCrLf)+4
Dend=InstrB(Dstart+1, ImageData, Divider)- Dstart
MyData=MidB(ImageData, Dstart, Dend)
strconn = "select * from '发言表'"
set rs = server.createobject("adodb.recordset")
rs.open strconn, conn, 1, 3
rs.addnew
rs("fimg").AppendChunk myData '此句用于上传图片到SQLserver,问题嫌疑点之一
rs.update
rs.close
set rs = nothing
请高手执教一二