六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

Oracle大文本在ASP中存取問題的處理

發表時間：2024-02-23 來源：明輝站整理相關軟件相關文章人氣：

[摘要]在我開發BS結構程序中，由于經常需要在ORACLE中處理一些容量較大的文本數據，所以經過反復測試終于用ASP成功解決了大文本數據在ORACLE下存取問題。　　　　一、運行環境：　　1、Microsoft Windows 2000 Server + IIS 5.02、Oracle8i中文標準版　　　...
在我開發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," ","&nbsp;")
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

%>
主站蜘蛛池模板： 无码中文av有码中文av | 午夜影院免费在线观看 | 在线观看视频h | 亚洲是色 | 亚洲第一中文 | 亚洲午夜一区 | 中文字幕色婷婷在线视频 | 天天做天天爰夜夜爽 | 天天射天天操天天干 | 日韩精品久久不卡中文字幕 | 在线国产视频 | 亚洲欧美日韩国产综合久 | 日本一区二区三区久久 | 天天澡天天碰天天狠伊人五月 | 亚洲最新在线 | 午夜国产精品理论片久久影院 | 欧美一级二级三级视频 | 欧美综合精品 | 亚洲欧洲精品视频在线观看 | 亚洲成在人线久久综合 | 有码日韩| 亚洲 欧美 字幕 一区 在线 | 最新版天堂资源中文官网 | 欧美一级黄色片免费看 | 午夜在线成人 | 婷婷综合五月中文字幕欧美 | 天天天夜夜夜夜夜 | 亚洲一区二区三区在线免费观看 | 四虎必出精品亚洲高清 | 伊人tv| 伊人五月天婷婷 | 色噜噜狠狠一区二区三区 | 欧美一级特黄aaaaaa在线看片 | 日本高清二区 | 天天逼网 | 午夜资源在线 | 天天亚洲 | 无人码一区二区三区视频 | 日日摸人人拍人人澡 | 青青草影院在线观看 | 青草视频免费看 |