ImageData = ImageData & MakeWord(TopPosition)
                  ImageData = ImageData & MakeWord(Width_)
                  ImageData = ImageData & MakeWord(Height_)
                  ImageData = ImageData & MakeByte(LocalDescriptor)
                  ImageData = ImageData & MakeByte(CodeSize)
                  ImageData = ImageData & UncompressedData
                  ImageData = ImageData & MakeByte(&H00)
                  ImageData = ImageData & MakeByte(EndOfImage)
        End Property

        Public Sub ImgWrite()
                  Response.ContentType = "image/gif"
                  Response.BinaryWrite ImageData
        End Sub

        Private Function GIFHeader()
                  GIFHeader = ""
                  GIFHeader = GIFHeader & ChrB(Asc("G"))
                  GIFHeader = GIFHeader & ChrB(Asc("I"))
                  GIFHeader = GIFHeader & ChrB(Asc("F"))
                  GIFHeader = GIFHeader & ChrB(Asc("8"))
                  If GIF89a Then
                        GIFHeader = GIFHeader & ChrB(Asc("9"))
                Else
                        GIFHeader = GIFHeader & ChrB(Asc("7"))

共24共  上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 下一页