asp資料庫編程:Oracle大文本在ASP中存取問題的解決

標籤：des   style   http   io   color   ar   os   for   sp   

在我開發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＞
＜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

%＞


asp資料庫編程:Oracle大文本在ASP中存取問題的解決