怎样在ASP中读写ORACLE BLOB字段?
---------------------------------------------------------------
1
2dim sql,OraDynaset,sql1,OraDynaset1,i,size,text，OraSession,OraDatbase
3Set OraSession = CreateObject("OracleInProcServer.XOraSession")
4set OraDatabase = OraSession.OpenDatabase("ops", "web/web", Cint(0))
5if err.number >0 then
6response.write "
<p align="center"><font color="red">数据库连接有问题！请与管理员联系 </font></p>
1"
2response.write "
<p align="center"><a href="javascript:self.close()">【关闭窗口】</a> </p>
1"
2response.end
3end if
4i=0
5size=65280
6sql="select * from news where newsid="&cint(request("newsid"))
7set OraDynaset=OraDatabase.DbCreateDynaset(sql, cint(0))
1<center>
2<p></p>
3<table border="0" cellpadding="0" cellspacing="0" width="95%">
4<tr>
5<td align="right" class="content" height="24" width="245"><font color="red">* </font>标 题:
6</td>
7<td align="right" width="32"> </td>
8<td class="content" width="463">```
9Response.Write(OraDynaset("topic"))
10```</td>
11</tr>
12<tr>
13<td align="right" class="content" height="24">所属专栏:</td>
14<td align=""> </td>
15<td class="content">
sql1="select * from border where borderid="&OraDynaset("borderid")
set OraDynaset1=OraDatabase.DbCreateDynaset(sql1,cint(0))
response.Write(OraDynaset1("bordername"))
OraDynaset1.close
set OraDynaset1=nothing
1</td>
2</tr>
3<tr>
4<td align="right" class="content" height="24">时 间:</td>
5<td> </td>
6<td class="content">```
7 if isedit then
8response.write "<font color="red">*</font>"
9end if
1 response.write trim(OraDynaset("ntime"))
2```</td>
3</tr>
4<tr>
5<td align="right" class="content" height="24">文章作者:</td>
6<td align="right"> </td>
7<td class="content">
response.write trim(OraDynaset("writer"))
1</tr>
2<tr>
3<td class="content"> </td>
4<td> </td>
5<td class="content"> </td>
6</tr>
7<tr>
8<td align="right" class="content" valign="top"><p>文章内容</p>
9</td>
10<td align="right"> </td>
11<td class="content" valign="top">
Do
'以Rs记录集的Fields对象的DbGetChunk方法在循环中读出数据
text=OraDynaset.Fields("content").DbGetChunk(i*size,size)
Response.write text
'求出每次取出数据的详细字节数
text_size=Lenb(text)
i=i+1
'如果每次取出数据的详细字节数小于欲定义的截取字节大小则说明该条数据已经完毕，退出循环。
Loop until text_size<size ```<="" td="">
OraDynaset.close
set OraDynaset=nothing
1<!--#include file="structrue/foot.asp"--></center>