- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 6蘋果iphone自動時間不準確的多種校正方法
- 7百度安全衛(wèi)士好用么_百度安全衛(wèi)士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]在我開發(fā)BS結構程序中，由于經常需要在ORACLE中處理一些容量較大的文本數(shù)據(jù)，所以經過反復測試終于用ASP成功解決了大文本數(shù)據(jù)在ORACLE下存取問題。 一、運行環(huán)境： 1、Microsoft Windows 2000 Server + IIS 5.02、Oracle8i中文標準版 ...
在我開發(fā)BS結構程序中，由于經常需要在ORACLE中處理一些容量較大的文本數(shù)據(jù)，所以經過反復測試終于用ASP成功解決了大文本數(shù)據(jù)在ORACLE下存取問題。一、運行環(huán)境：
1、Microsoft Windows 2000 Server + IIS 5.0
2、Oracle8i中文標準版
二、建立數(shù)據(jù)表：
CREATE TABLE SYSTEM.TEST(
BLOB LONG,
ID NUMBER)
/
三、源程序：
1、數(shù)據(jù)存入程序：test.asp
<%
'表單提交處理部分
'--------------------------------------------------
If request("ok")=1 then
'字符轉換函數(shù)
function tansstr(sstr)
sstr=replace(sstr," "," ")
sstr=replace(sstr,chr(13) & chr(10),"<br>")
tansstr=sstr
end function
'提交數(shù)據(jù)賦值
a=lenb(request("text"))
b=len(request("text"))
c=tansstr(request("text"))
'打開數(shù)據(jù)庫，打開test數(shù)據(jù)表以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語句存入數(shù)據(jù)
'--------------------------------------------------------
'新建記錄
rs.DbAddNew
'經典就在本句：以RS記錄集的Fields對象的DbAppendChunk方法處理大字段存入問題。
rs.Fields("blob").DbAppendChunk(c)
'存入ID值
rs("id")=id
'刷新記錄集
rs.DbUpdate
'顯示結果部分
'---------------------------------------------------------
Response.write "數(shù)據(jù)已經存入數(shù)據(jù)庫中。<br>"
Response.write "總計占用字符數(shù)： <font color=blue>" & formatnumber(b,2,-2,-2,-1) & "</font> 字<br>"
Response.write "總計占用字節(jié)數(shù)： <font color=blue>" & formatnumber(a,2,-2,-2,-1) & "</font> Byte<br>"
Response.write "<a href='view.asp'>請調閱……</a>"
'關閉數(shù)據(jù)連接。
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、數(shù)據(jù)調出程序：view.asp
<%
'連接數(shù)據(jù)庫，以只讀方式打開數(shù)據(jù)表
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)
'賦初值：定義每次截取字節(jié)大小為1024byte,最大可以設為65280byte （64K）
Size=65280
I=0
Do
'以Rs記錄集的Fields對象的DbGetChunk方法在循環(huán)中讀出數(shù)據(jù)
Text=Rs.Fields("Blob").DbGetChunk(I*Size,Size)
Response.write Text
'求出每次取出數(shù)據(jù)的詳細字節(jié)數(shù)
Text_Size=Lenb(Text)
I=I+1
'如果每次取出數(shù)據(jù)的詳細字節(jié)數(shù)小于欲定義的截取字節(jié)大小則說明該條數(shù)據(jù)已經完畢，退出循環(huán)。
Loop until Text_Size<Size
'關閉數(shù)據(jù)連接
Set OraSession=nothing
%>
推薦資訊 總人氣榜
最新教程 本月人氣
- 1DOS下一些很實用的網絡命令
- 2使用JScript.NET創(chuàng)建asp.net頁面（二）
- 3使用weblogic+jb開發(fā)設置說明
- 4容易的異步 Web 方法
- 5編程員行為規(guī)范守則
- 6如何把你的應用程序作為服務來運行（1）
- 7Jakarta-Tomcat 簡明中文版用戶向導首
- 8使用JScript.NET創(chuàng)建asp.net頁面（6）
- 9在PHP中使用靈巧的體系結構(摘)
- 10酷哦，Office XP Primary Interop Assemblies For .Net
- 11Weblogic 調試手記:Weblogic中使用Servlet
- 12Vsiaul C＃如何讀取注冊信息(轉)
