fData=rs("nr")
bnCRLF=chrB(13) & chrB(10)
Do
Lcut=INSTRB(fData,bnCRLF)
If Lcut=0 Then Lcut=1
Response.BinaryWrite MIDB(fData,1,Lcut-1)
Response.Write "<br>"
fData=MIDB(fData,Lcut+2)
IF LENB(fData) < Lcut then exit do
Loop
'按行取出二进制数据的信息
fData=rs("nr")
bnCRLF=chrB(13) & chrB(10)
Do
Lcut=INSTRB(fData,bnCRLF)
If Lcut=0 Then Lcut=1
Response.BinaryWrite MIDB(fData,1,Lcut-1)
Response.Write "<br>"
fData=MIDB(fData,Lcut+2)
IF LENB(fData) < Lcut then exit do
Loop