因为你提的主意令人郁闷youcihou33|bq youcihou33|bq
大家都想用无码版的

无码。

验证码写产物....

验证码的制作：
<%
Response.buffer = true
'注意此处的数组里的元素顺序要和图片里的顺序一样哦！！
dim chiCha:chiCha=array(\"我\",\"就\",\"奥\",\"欢\",\"考\",\"湖\",\"圳\",\"洲\",\"进\",\"仿\",\"税\",\"概\",\"路\",\"军\",\"格\",\"本\",\"亮\",
\"猫\",\"恐\",\"敢\",\"修\",\"眠\",\"乐\",\"年\",\"演\")
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader \"ragma\",\"no-cache\"
Response.AddHeader \"cache-ctrol\",\"no-cache\"
dim zNum,i,j
dim Ados,Ados1

dim zimg(3),imgGb(3)

For i=0 to 3
Randomize timer
zimg(i) = cint(24*Rnd)
imgGb(i)=chiCha(zimg(i))
Next
Session(\"GetCode\")=join(imgGb,\"\")
dim Pos

set Ados=Server.CreateObject(\"Adodb.Stream\")
Ados.Mode=3
Ados.Type=1
Ados.Open
set Ados1=Server.CreateObject(\"Adodb.Stream\")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open

Ados.LoadFromFile(Server.mappath(\"yzm_gb2.bmp\"))
Ados1.write Ados.read(4800)

for ii=0 to 3
for j=0 to 19
Ados.position=(zimg(ii))*60+1500*j+54
Ados1.position=240*j+60*ii
Ados1.write ados.read(60)
next
next

'清空已经用完的ADOS的数据，调入替换新的图像头54字节的头文件
Ados.LoadFromFile(Server.mappath(\"head.fix\"))
Pos=lenb(Ados.read())
Ados.Position=Pos

Ados1.position=0
Ados.write ados1.read()

Ados.Position=0
'直接向客户端发送图像数据
Response.ContentType = \"image/BMP\"
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
End Function
%>

额~~~

四个又像拉丁字母o又像阿拉伯数字0的

pia

我看看能不能扣0分的人的Au~
PS：试验一下，会加回去的~

youcihou8|bq

事实证明可以youcihou33|bq