asp如何处理oracle数据库中blob类型,和大文本的数据?

maomaoma 2004-03-23 10:38:45

这个问题搞得焦头烂额的喽,那位先辈有遇到过这种类型的问题?请指教!

...全文

118 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

maomaoma 2004-03-27

打赏
举报

解决了.谢谢两位
下面是我的解决方法,希望对以后遇上相同问题的朋友有所帮助
'******************
'*读取blob类型数据
'******************
Dim Charsleave,Block_Size,FileName,F
Block_Size = 16384
Size = rs.Fields("NOTE").ActualSize

If Size > Block_Size Then
'文本内容超过getchunk每次读取数据的最大植，循环读取
Charsleave = Size mod Block_size
i = Size \ Block_size
For i = 1 to i
NOTE = rs.Fields("NOTE").GetChunk(Block_size)
Response.BinaryWrite(NOTE)
Next
If Charsleave <> 0 Then
NOTE = rs.Fields("NOTE").GetChunk(Charsleave)
Response.BinaryWrite(NOTE)
End If
Else
'文本内容一次读取
NOTE = rs.Fields("NOTE").GetChunk(Size)
Response.BinaryWrite(NOTE)
End If

lingzp 2004-03-25

打赏
举报

数据表：
　　CREATE TABLE SYSTEM.TEST( BLOB LONG, ID NUMBER)
--------------------------------------------------------------

1、数据存入程序：test.asp
<%
'表单提交处理部分
'--------------------------------------------------
If request("ok")=1 then
'字符转换函数
function tansstr(sstr)
sstr=replace(sstr," "," ")
sstr=replace(sstr,chr(13) & chr(10),"<br>")
tansstr=sstr
end function
'提交数据赋值
a=lenb(request("text"))
b=len(request("text"))
c=tansstr(request("text"))
'打开数据库，打开test数据表以Rs为记录集
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("autop","system/manager",0)
Set rs=OraDatabase.CreateDynaset("select * from test order by id desc",0)
'求ID值
if rs.eof then
id=1
else
id=rs("id")+1
end if
'因为受SQL语句长度大小限制所以，以非SQL语句存入数据
'--------------------------------------------------------
'新建记录
rs.DbAddNew
'经典就在本句：以RS记录集的Fields对象的DbAppendChunk方法处理大字段存入问题。
rs.Fields("blob").DbAppendChunk(c)
'存入ID值
rs("id")=id
'刷新记录集
rs.DbUpdate
'显示结果部分
'---------------------------------------------------------
Response.write "数据已经存入数据库中。<br>"
Response.write "总计占用字符数： <font color=blue>" & formatnumber(b,2,-2,-2,-1) & "</font> 字<br>"
Response.write "总计占用字节数： <font color=blue>" & formatnumber(a,2,-2,-2,-1) & "</font> Byte<br>"
Response.write "<a href='view.asp'>请调阅……</a>"
'关闭数据连接。
rs.close
set rs=nothing
Set OraSession=nothing
Response.end
End If
%>
<html>
<body>
<form method="POST" action="test.asp">
<p><font color="#FF0000"><b>Oracle大字段在ASP中存取问题的解决：</b></font></p>
<p><textarea rows="13" name="text" cols="104"></textarea></p>
<p><input type="submit" value="存入" name="B1"></p>
<input type="hidden" name="ok" value="1">
</form>
</body>
</html>
　　2、数据调出程序：view.asp
<%
'连接数据库，以只读方式打开数据表
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("autop","system/manager",0)
Set Rs=OraDatabase.DbCreateDynaset("select * from test order by id desc",4)
'赋初值：定义每次截取字节大小为1024byte,最大可以设为65280byte （64K）
Size=65280
I=0
Do
'以Rs记录集的Fields对象的DbGetChunk方法在循环中读出数据
Text=Rs.Fields("Blob").DbGetChunk(I*Size,Size)
Response.write Text
'求出每次取出数据的详细字节数
Text_Size=Lenb(Text)
I=I+1
'如果每次取出数据的详细字节数小于欲定义的截取字节大小则说明该条数据已经完毕，退出循环。
Loop until Text_Size<Size
'关闭数据连接
Set OraSession=nothing
%>

sicainiao 2004-03-25

打赏
举报

没看懂，自己也菜，帮你顶一下。。

maomaoma 2004-03-25

打赏
举报

To lingzp(阿紫):
这个是FAQ里面的吧,我这里用的是ado
我在msdn里面查过了,好象没有DbAppendChunk 这个方法啊?
呵呵.到是可以用getChunk这个方法.不过我用老是出问题:(

maomaoma 2004-03-23

打赏
举报

哦,标题应该改为"如何读取",不好意思

maomaoma 2004-03-23

打赏
举报

看了些例子,但不太明白,知道应该用循环逐步取出,但不太清楚如何来确定循环.下面是我的一部分代码,编译通过,但没有结果显示,怎么回事呢?

Dim CharsRead,Block_Size
Block_Size = 16384
Size = rs.Fields("NOTETXT").ActualSize
Do While Size <> CharsRead
If Size - CharsRead < BLOCK_SIZE Then
NOTETXT = rs.Fields("NOTETXT").GetChunk(Size - BLOCK_SIZE)
CharsRead = Size
Else
NOTETXT = rs.Fields("NOTETXT").GetChunk(BLOCK_SIZE)
CharsRead = CharsRead + BLOCK_SIZE
End If
Loop

maomaoma 2004-03-23