如何保存用asp生成的BMP图象为一个文件？
以下为写出的代码：
<%
Call   Com_CreatValidCode( "ValidCode ")

Sub   Com_CreatValidCode(PSN)
'   禁止缓存
Response.Expires   =   -9999  
Response.AddHeader   "Pragma ", "no-cache "
Response.AddHeader   "cache-ctrol ", "no-cache "
Response.ContentType   =   "Image/BMP "

'   颜色的数据(字符，背景)
Dim   vColorData(1)
vColorData(0)   =   ChrB(255)   &   ChrB(0)   &   ChrB(0)   '   蓝0，绿0，红0（黑色）
vColorData(1)   =   ChrB(255)   &   ChrB(255)   &   ChrB(255)   '   蓝250，绿236，红211（浅蓝色）

  Dim   PicWidth,   PicHeight,   FileSize,   PicDataSize
  PicWidth   =   204
  PicHeight   =   204
  PicDataSize   =   PicWidth   *   PicHeight   *   3
  FileSize   =   PicDataSize   +   50
  '   输出BMP文件信息头
  Response.BinaryWrite   ChrB(66)   &   ChrB(77)   &   _
    ChrB(FileSize   Mod   256)   &   ChrB((FileSize   \   256)   Mod   256)   &   ChrB((FileSize   \   256   \   256)   Mod   256)   &   ChrB(FileSize   \   256   \   256   \   256)   &   _
    ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   _
    ChrB(54)   &   ChrB(0)   &   ChrB(0)   &   ChrB(0)

  '   输出BMP位图信息头
  Response.BinaryWrite   ChrB(40)   &   ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   _
    ChrB(PicWidth   Mod   256)   &   ChrB((PicWidth   \   256)   Mod   256)   &   ChrB((PicWidth   \   256   \   256)   Mod   256)   &   ChrB(PicWidth   \   256   \   256   \   256)   &   _
    ChrB(PicHeight   Mod   256)   &   ChrB((PicHeight   \   256)   Mod   256)   &   ChrB((PicHeight   \   256   \   256)   Mod   256)   &   ChrB(PicHeight   \   256   \   256   \   256)   &   _
    ChrB(1)   &   ChrB(0)   &   _
    ChrB(24)   &   ChrB(0)   &   _
    ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   _
    ChrB(PicDataSize   Mod   256)   &   ChrB((PicDataSize   \   256)   Mod   256)   &   ChrB((PicDataSize   \   256   \   256)   Mod   256)   &   ChrB(PicDataSize   \   256   \   256   \   256)   &   _
    ChrB(18)   &   ChrB(11)   &   ChrB(0)   &   ChrB(0)   &   _
    ChrB(18)   &   ChrB(11)   &   ChrB(0)   &   ChrB(0)   &   _
    ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   ChrB(0)   &   _
    ChrB(0)   &   ChrB(0) &nbs