使用ASP生成图片彩色校验码</b></font></td></tr><tr><td align=center class=gray>2005年3月30日 作者： &n

使用ASP生成图片彩色校验码

--------------------------------------------------------------------------------

 来源:视点........  作者:未知

49行代码,三个文件 

Asp文件：Code.Asp 

数据文件：body.Fix , Head.Fix 

下载： download........

用法：<img src="http://www.hy-m.com/zsfocus/"code.asp"> <%

Option Explicit

Response.buffer=true

NumCode

Function NumCode()

Response.Expires = -1

Response.AddHeader "Pragma","no-cache"

Response.AddHeader "cache-ctrol","no-cache"

dim zNum,i,j

dim Ados,Ados1

Randomize timer

zNum = cint(8999*Rnd+1000)

Session("GetCode") = zNum

dim zimg(4),NStr

NStr=cstr(zNum)

For i=0 to 3

zimg(i)=cint(mid(NStr,i+1,1))

Next

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("body.Fix"))

Ados1.write Ados.read(1280)

for i=0 to 3

Ados.Position=(9-zimg(i))*320

Ados1.Position=i*320

Ados1.write ados.read(320)

next 

Ados.LoadFromFile(Server.mappath("head.fix"))