Pos=lenb(Ados.read())
        Ados.Position=Pos '指定Pos位置,即可再偏移54字节的位置添加图形数据
第二个for循环，进行数字的阵列变换，由竖排的块转换为横排的数字块
方法是隔320字节抽取4次30字节写入ados对象，再抽取偏移第二行的图像数据
30字节是因为bmp 宽大于长时无00 00的行结束标记
        for i=0 to 9 step 1
            for j=0 to 3
                Ados1.Position=i*32+j*320
                Ados.Position=Pos+30*j+i*120
                Ados.write ados1.read(30)
            next
        next
        Ados.Position=0
response.BinaryWrite直接向客户端发送图像数据
        Response.ContentType = "image/BMP"
        Response.BinaryWrite Ados.read()
        Ados.Close:set Ados=nothing
        Ados1.Close:set Ados1=nothing
End Function

-----------------------------------------------------------------------------------------------------

共2共  上一页 1 2