Dim lngOffset As Long = 0
Const conChunkSize = 1024
Dim lngPictSize As Long
Dim varchunk
lngPictSize = rs_att.Fields("content").ActualSize
Do While lngOffset < lngPictSize
varchunk = rs_att.Fields("content").GetChunk(conChunkSize)
Response.BinaryWrite(varchunk)
lngOffset = lngOffset + conChunkSize
If lngOffset > lngPictSize Then Exit Do
Loop
Const conChunkSize = 1024
Dim lngPictSize As Long
Dim varchunk
lngPictSize = rs_att.Fields("content").ActualSize
Do While lngOffset < lngPictSize
varchunk = rs_att.Fields("content").GetChunk(conChunkSize)
Response.BinaryWrite(varchunk)
lngOffset = lngOffset + conChunkSize
If lngOffset > lngPictSize Then Exit Do
Loop
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货