asp上传图片到oracle 出现的问题,求各位大哥帮忙!!!!!!
wzhuo 2007-01-17 09:27:45 内容:asp上传图片到oracle
方法:二进制存入数据库
问题:
技术信息(用于支持人员)
错误类型:
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。
出现错误处代码为:rs.addnew
代码如下:
<%
Function getByteString(StringStr)
dim i,char
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
dim i
getString =""
For i = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,i)))
Next
End Function
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)
strdbconn="Provider=MSDAORA.1;Password=d; User ID=d; Data Source=a;Persist Security Info=True"
set conndb=server.createobject("adodb.connection")
conndb.open strdbconn
set rs=server.createobject("ADODB.recordset")
rs.Open "select * from img",conndb,1,3
rs.addnew‘本行出现错误
rs("img").appendchunk mydata
rs.update
id=rs("id")
rs.close
set rs=nothing
set conndb=nothing
%>