把一段文字或数字转换成一张GIF图片，在asp中怎么实现？

Question

真的很想知道，在CSDN上搜索了也只找到PHP的代码，不懂。

Answer 1

ASP 生成 XBM 图可用作验证码
http://www.blueidea.com/tech/program/2003/711.asp

Answer 2

这没有什么好顶的.
只要你知道 gif 文件的结构.
再按GIF文件结构 用 ADODB.Stream 构建一文件内容.再 BinaryWrite 到客户端即可~~~~

Answer 3

http://blog.csdn.net/gjd111686/archive/2004/07/16/42852.aspx

Answer 4

to  mrshelly(Shelly)：
“这没有什么好顶的.
  只要你知道 gif 文件的结构.
  再按GIF文件结构 用 ADODB.Stream 构建一文件内容.再 BinaryWrite 到客户端即可~~~~”  ----关键是我对gif文件的结构不清楚呀！

Answer 5

把下面的代码存为asp文件，调用如下：<img src="pic.asp">
<%
'-------------------------------------------
'输出字体数组
'仅限于数字0-9，每个数字矩阵为8×10（宽：8，高：10）
'可以自己更改字体，包括高、宽
Dim Num(10,10)'数字0
Num(0,1) = "0x3c"
Num(0,2) = "0x66"
Num(0,3) = "0xc3"
Num(0,4) = "0xc3"
Num(0,5) = "0xc3"
Num(0,6) = "0xc3"
Num(0,7) = "0xc3"
Num(0,8) = "0xc3"
Num(0,9) = "0x66"
Num(0,10)= "0x3c"'数字1
Num(1,1) = "0x18"
Num(1,2) = "0x1c"
Num(1,3) = "0x18"
Num(1,4) = "0x18"
Num(1,5) = "0x18"
Num(1,6) = "0x18"
Num(1,7) = "0x18"
Num(1,8) = "0x18"
Num(1,9) = "0x18"
Num(1,10)= "0x7e"'数字2
Num(2,1) = "0x3c"
Num(2,2) = "0x66"
Num(2,3) = "0x60"
Num(2,4) = "0x60"
Num(2,5) = "0x30"
Num(2,6) = "0x18"
Num(2,7) = "0x0c"
Num(2,8) = "0x06"
Num(2,9) = "0x06"
Num(2,10)= "0x7e"'数字3
Num(3,1) = "0x3c"
Num(3,2) = "0x66"
Num(3,3) = "0xc0"
Num(3,4) = "0x60"
Num(3,5) = "0x1c"
Num(3,6) = "0x60"
Num(3,7) = "0xc0"
Num(3,8) = "0xc0"
Num(3,9) = "0x66"
Num(3,10)= "0x38"'数字4
Num(4,1) = "0x38"
Num(4,2) = "0x3c"
Num(4,3) = "0x36"
Num(4,4) = "0x33"
Num(4,5) = "0x33"
Num(4,6) = "0x33"
Num(4,7) = "0xff"
Num(4,8) = "0x30"
Num(4,9) = "0x30"
Num(4,10)= "0xfe"'数字5
Num(5,1) = "0xfe"
Num(5,2) = "0xfe"
Num(5,3) = "0x06"
Num(5,4) = "0x06"
Num(5,5) = "0x3e"
Num(5,6) = "0x60"
Num(5,7) = "0xc0"
Num(5,8) = "0xc3"
Num(5,9) = "0x66"
Num(5,10)= "0x3c"'数字6
Num(6,1) = "0x60"
Num(6,2) = "0x30"
Num(6,3) = "0x18"
Num(6,4) = "0x0c"
Num(6,5) = "0x3e"
Num(6,6) = "0x63"
Num(6,7) = "0xc3"
Num(6,8) = "0xc3"
Num(6,9) = "0x66"
Num(6,10) ="0x3c"'数字7
Num(7,1) = "0xff"
Num(7,2) = "0xc0"
Num(7,3) = "0x60"
Num(7,4) = "0x30"
Num(7,5) = "0x18"
Num(7,6) = "0x18"
Num(7,7) = "0x18"
Num(7,8) = "0x18"
Num(7,9) = "0x18"
Num(7,10)= "0x18"'数字8
Num(8,1) = "0x3c"
Num(8,2) = "0x66"
Num(8,3) = "0xc3"
Num(8,4) = "0x66"
Num(8,5) = "0x3c"
Num(8,6) = "0x66"
Num(8,7) = "0xc3"
Num(8,8) = "0xc3"
Num(8,9) = "0x66"
Num(8,10)= "0x3c"'数字9
Num(9,1) = "0x3c"
Num(9,2) = "0x66"
Num(9,3) = "0xc3"
Num(9,4) = "0xc3"
Num(9,5) = "0x66"
Num(9,6) = "0x3c"
Num(9,7) = "0x18"
Num(9,8) = "0x0c"
Num(9,9) = "0x06"
Num(9,10)= "0x03"'-------------------------------------------'随机产生数字，输出图片，进行验证的程序，可以防止注册机
'字库可以自己制作Response.Buffer = True
With Response
.Expires = -1
.AddHeader "Pragma","no-cache"
.AddHeader "cache-ctrol","no-cache"
End WithDim NumCode'产生随机数
Randomize
NumCode = Int(7999 * Rnd + 2000)
'将数字存入session，以在提交时判断合法性
Session("ValidateCode") = NumCodeDim Image
Dim Width
Dim Height
Dim Digital
Dim Length
Dim Sort
Dim HC'数字宽度
Length = 4
HC = chr(13) & chr(10)Redim Sort(Length)Digital = ""
For I = 1 To Len(NumCode)
Digital = Digital & Mid(NumCode, I, 1)
NextFor I = 1 To Len(Digital)
Sort(I) = Mid(Digital, I, 1)
Next'图片宽度，高度
Width = 8 * Len(Digital)
Height = 10'定义输出数据为图片，并开始输出数据
Response.ContentType = "image/x-xbitmap"Image = "#define counter_width " & Width & HC
Image = Image & "#define counter_height " & Height & HC
'输出点阵数据
Image = Image & "static unsigned char counter_bits[] = {" & HCFor I = 1 To Height
For J = 1 To Length
Image = Image & Num(Sort(J),I) & ","
Next
NextImage = Left(Image, Len(Image) - 1)
Image = Image & "};" & HCResponse.Write Image
%>

Answer 6

竹竹验证码
演示:http://www.cnsxml.com/yzm 
下载:http://www.cnsxml.com/yzm.rar