Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("server","user/pass",0)
Set Rs=OraDatabase.DbCreateDynaset("select words from news where id="&CInt((newsid))
Size=65280
I=0
Do
words=Rs.Fields("words").DbGetChunk(I*Size,Size)
'求出每次取出数据的详细字节数
words_Size=Lenb(words)
I=I+1
'如果每次取出数据的详细字节数小于欲定义的截取字节大小则说明该条数据已经完毕,退出循环。
Loop until words_Size<Size
'关闭数据连接
rs.close
Set rs=nothing
Set OraSession=Nothing