//一次最多只能读取32k,计算一共要读取几次
if flen > 32765 then
if mod (flen,32765) = 0 then
loops = flen/32765
else
loops = flen/32765 + 1
end if
else
loops = 1
end if
//循环读取文件
for i = 1 to loops
sum_read = fileread(fnum, b)
tot_b = tot_b + b
p_new = p_new + sum_read
fileseek(fnum, p_new, frombeginning!) //其实fileread可以自动定位,这句话可以去掉
next
fileclose(fnum)
connect;
insert into pic values (:xh, :tot_b);
disconnect;
connect;
updateblob pic set p_image = :tot_b where p_index = :xh;
disconnect;