ASP 生成 XBM 图可用作验证码

<!–#include file="numcode.asp"–>
<%
  ‘开启缓冲
Response.Buffer = True
With Response
 .Expires = -1
 .AddHeader "Pragma","no-cache"
 .AddHeader "cache-ctrol","no-cache"
End With

Dim num
Randomize
num = Int(7999 * Rnd + 2000)
Session("validateCode") = num

Dim Image
Dim Width, Height
Dim digtal
Dim Length
Dim sort
Dim hc
Length = 4 
hc = chr(13) & chr(10)

Redim sort(Length)

digital = ""
For I = 1 To Length – Len(num)
 digital = digital & "0"
Next
For I = 1 To Len(num)
 digital = digital & Mid(num, I, 1)
Next
For 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[] = {" & hc

For I = 1 To Height
 For J = 1 To Length
  Image = Image & a(sort(J),I) & ","
 Next
Next

Image = Left(Image, Len(Image) – 1)
Image = Image & "};" & hc

Response.Write Image
%>