Oracle大文本在ASP中存取问题的解决

在我开发BS结构程序中，由于经常需要在ORACLE中处理一些容量较大的文本数据，所以经过反复测试终于用ASP成功解
决了大文本数据在ORACLE下存取问题。
　　
　　一、运行环境：
　　1、Microsoft Windows 2000 Server + IIS 5.0
2、Oracle8i中文标准版
　　
　　二、建立数据表：
　　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＞
＜