最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP 生成 XBM 图可用作验证码
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
如何显示生成的图片呢?
关于XBM图的格式信息,看这里
http://www.zdnet.com.cn/developer/tech/story/0,2000081602,39134972,00.htm
xbm.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
* Len(digital)
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
%>
Numcode.asp的代码如下:
程序代码:
<%
Dim a(10,10)
a(0,1) = "0x3c" '数字0
-
上一个: 自己制作友好的页面“确认对话框”
-
下一个: asp.net提高性能的要点
相关文章
- asp生成验证码 05-04
- asp生成验证码 04-22
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16