<body bgcolor="#FFFFFF"> <a href="ss.asp">显示</a> <% 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) 'creat connetction&recordset Dim objconn Dim rs1 set connGraph=Server.Createobject("adodb.connection") connGraph.Open "alpha","jtport","ok" set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM news_pic where id is null",connGraph,1,3 rec.addnew rec("img").appendchunk mydata rec.update rec.close set rec=nothing set connGraph=nothing %>
可以看看Oracle的帮助!OraBLOB and OraCLOB Objects Dim OraSession As OraSession Dim OraDatabase As OraDatabase Dim PartImage as OraBLOB Dim ImageChunk() As Byte Dim amount_written As Long 'Create the OraSession Object. Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'Create the OraDatabase Object by opening a connection to Oracle. Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&) 'Create a Dynaset containing a BLOB and a CLOB column set part = OraDatabase.CreateDynaset ("select * from part where part_id = 1234",0) set PartImage = part.Fields("part_image").Value 'Open the file for reading PartImages Open "c:\part_picture.gif" For Binary As #FNum Redim ImageChunk(LOF(FNum)) 'read the file and put it into buffer Get #FNum, , ImageChunk 'starts the transaction on OraSession OraSession.BeginTrans 'call dynaset's Edit method to lock the row part.Edit amount_written = OraBlob.Write(ImageChunk) part.Update 'ends the transaction OraSession.EndTrans 'the following lines of code will raise error 'LOB locator cannot span transaction' msgbox Partimage.Size Close FNum
希望对你有帮助:
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=38365
<body bgcolor="#FFFFFF">
<a href="ss.asp">显示</a>
<% 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)
'creat connetction&recordset
Dim objconn
Dim rs1
set connGraph=Server.Createobject("adodb.connection")
connGraph.Open "alpha","jtport","ok"
set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM news_pic where id is null",connGraph,1,3 rec.addnew rec("img").appendchunk mydata rec.update rec.close set rec=nothing set connGraph=nothing %>
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 OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim PartImage as OraBLOB
Dim ImageChunk() As Byte
Dim amount_written As Long 'Create the OraSession Object.
Set OraSession = CreateObject("OracleInProcServer.XOraSession") 'Create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.OpenDatabase("ExampleDb",
"scott/tiger", 0&)
'Create a Dynaset containing a BLOB and a CLOB column set part = OraDatabase.CreateDynaset ("select * from part
where part_id = 1234",0)
set PartImage = part.Fields("part_image").Value 'Open the file for reading PartImages
Open "c:\part_picture.gif" For Binary As #FNum
Redim ImageChunk(LOF(FNum)) 'read the file and put it into buffer
Get #FNum, , ImageChunk 'starts the transaction on OraSession
OraSession.BeginTrans 'call dynaset's Edit method to lock the row part.Edit
amount_written = OraBlob.Write(ImageChunk)
part.Update 'ends the transaction
OraSession.EndTrans 'the following lines of code will raise error
'LOB locator cannot span transaction'
msgbox Partimage.Size
Close FNum
,我记得我在这个贴子里写了一些相应的代码,但是现在打不开了。faint!
可以操作blob和longraw
To: lhjiang
问题解决了吗,
请教,如何保存大于32K的图片!