用GetChunk输出数据,为何只能显示一半的数据量?解决思路

用GetChunk输出数据,为何只能显示一半的数据量?
用如下形式每条记录只能输出一半的数据:

dim   BasicSize,BeginSize
set   rs=server.createobject( "adodb.recordset ")
rs.open   "*** ",conn,1,1

while   not   rs.eof
BasicSize=100   '第次读出多少量的数据
BeginSize=0   '初始量
'----------
While   BeginSize <rs(1).ActualSize
LText=rs(1).GetChunk(BasicSize)
BeginSize=BeginSize+BasicSize
Response.Write   LText
wend
'---------
rs.movenext
wend

[解决办法]
BasicSize 这个值不对吧....
[解决办法]
你先试试LText=rs(1).GetChunk( <rs(1).ActualSize)
看看一次读取的效果