UC知道asp技术死角???
来源：百度知道 编辑：UC知道 时间：2024/06/08 09:55:52
你们好,各位高手.最近我做了一个网站,其中要上传图片,我就做了一个access数据库,把图片以二进制的方式放在ole字段中.可是加图片是可以,要修改图片却遇到了问题,没法改,也就是无法用一张新的图片替换原来的图片.有人说,那图片是没法修改的,要是当初存放路径才行.
不知道这样的说法是不是真的.我已经没有时间再做成存放路径的了,你们看看我的代码,看哪里出了问题了.谢谢啦..
<%
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)
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("data/edit.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set RS=Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT*FROM cp where id
不知道这样的说法是不是真的.我已经没有时间再做成存放路径的了,你们看看我的代码,看哪里出了问题了.谢谢啦..
<%
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)
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("data/edit.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set RS=Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT*FROM cp where id
id没有传输到这个页面吧？反正我没有发现。没有id就无法修改。
设置一个修改图片的页面，重新修改二进制数据就可以呀，就你的程序来讲，基本没有问题。
是否是：rs("img")=null 有问题？没有这样用过。
id没有传输到这个页面吧？反正我没有发现。
rs.Open "SELECT*FROM cp where id="&id,conn,2,3
修改为：
rs.Open "SELECT*FROM cp where id="&id"",conn,2,3
其他没有发现什么问题。