asp生成gif验证码技术 / 学生王国

                           End If

                           If Comment <> "" Then
                                    ImageData = ImageData & MakeByte(GraphicControl)
                                    ImageData = ImageData & MakeByte(&HFE)
                                    Text = Left(Comment, &HFF)
                                    ImageData = ImageData & MakeByte(Len(Text))
                                    For I = 1 To Len(Text)
                                             ImageData = ImageData & MakeByte(Asc(Mid(Text, I, 1)))
                                    Next
                                    ImageData = ImageData & MakeByte(&H00)
                           End If
                  End If

                  ImageData = ImageData & MakeByte(Seperator)
                  ImageData = ImageData & MakeWord(LeftPosition)

共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 下一页