自己收集的各种ASP的验证码
由于项目的需要去Google搜了一下 ，还真多
记得“想当年”某天上午在这里路过，看到一位朋友贴的自己写的验证码程序，虽然他的程序是黑白有杂点，但其实很容易被破解的，但却有不少人喜欢着。。。没办法，当天下午研究了一翻 BMP 图片，然后就写出了这些代码，只是当初没有公布，眼看今天这么多坏人乱在很多论坛上注册用户来发广告，所以才贴出来共享一下。
本验证码生成程序特点如下：
一、彩色；
二、BMP 图像色深为 16 位，生成的图片体积更小；(4位长的验证码只有几百字节)
三、长度可自定义；(1位至25位可固定设置，也可以自己改成动态)
四、背景杂色深度可自定义；
具体请看代码
注：代码中并没有针对动网的 设置验证码 Session 的地方。想用的朋友自己根据需要改一下，位置就在代码中出现 Session("Num") 的那一行，改成自己需要的名称就可以了。这个验证码也可以用在任何需要验证码的地方。不用在动网论坛也可。
下面是代码部分：
<--r>Option Explicit
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize Timer
Dim Text_Data(9),Text_Len,Int_Temp(),I,j,k,Int_Temp2
''***** 参数配置区 *****
Text_Len = 4 ''验证码长度(支持1-25位)
''**********************
ReDim Int_Temp( Text_Len - 1 )
Text_Data(0) = "00000000000001111000001100110000110111000011011100001100110000111011000011101100001100110000011110000000000000"
Text_Data(1) = "00000000000000011000000011100000111110000000011000000001100000000110000000011000000001100000000110000000000000"
Text_Data(2) = "00000000000001111000001100110000110011000000001100000001100000001100000001100000001100000000111111000000000000"
Text_Data(3) = "00000000000001111000001100110000110011000000001100000011100000000011000011001100001100110000011110000000000000"
Text_Data(4) = "00000000000001100000000110000000011011000001101100000110110000110011000011111110000000110000000011000000000000"
Text_Data(5) = "00000000000011111100001100000000110000000011000000001111100000000011000000001100000001100000111100000000000000"
Text_Data(6) = "0000000000000011100000001100000001100
相关文档：
<%
'asp多风格分页类
'使用范例
'==========================================================================
'Set test = New Page '创建啦
'test.CurrentPage=1 '自己去读取拉,当前的页数
'test.temp="{N1}{N2}{N3} {N4}"'这里是显示的模版,自己可以定义,至于标签,可以自己去那个类里找
'test.Exec "S ......
<!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
......
ASP函数与VBSCRIPT类似，以下举一些常用的函数
Array()
函数返回一个数组
表达式 Array(list)
允许数据类型: 字符，数字均可
实例： <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
......
<%
'购物车类 类名：UserCart
'作者:gameing
'基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格.
'1、2008-11-25修改Function AddItem() by tommy 商品增加在最后
'2、2008-11-25修改by tommy 增加删除商品过程 Sub DelItem()
'3、2008-11-25转换一些数据类型才能� ......
WebService服务端开发
1、创建WebService工程，选择XFire Core库
2、创建业务接口和其实现类（完成业务方法的定义和实现）
3、修改配置文件service.xml
4、如果需要使用WSDL，则需要导入xalan.jar文件至WEB-INF/lib中
5、导出接口至jar包中为客户端做准备
WebService客户端开发
1、创建Web工程，添加构建路径，选择X ......
