ASP生成圖片彩色校驗碼

49行代碼,三個文件

　　Asp文件：Code.Asp

　　數據文件：body.Fix , Head.Fix　

　　用法：<img src="code.asp">

<%Option ExplicitResponse.buffer=trueNumCodeFunction 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"))　　　　　　　 Pos=lenb(Ados.read())　　　　　　　 Ados.Position=Pos　　　　　　　 for i=0 to 9 step 1　　　　　　　　　　　 for j=0 to 3　　　　　　　　　　　　　　　 Ados1.Position=i*32+j*320　　　　　　　　　　　　　　　 Ados.Position=Pos+30*j+i*120　　　　　　　　　　　　　　　 Ados.write ados1.read(30)　　　　　　　　　　　 next　　　　　　　 next　　　　　　　 Response.ContentType = "image/BMP"　　　　　　　 Ados.Position=0　　　　　　　 Response.BinaryWrite Ados.read()　　　　　　　 Ados.Close:set Ados=nothing　　　　　　　 Ados1.Close:set Ados1=nothingEnd Function' Asp code Created by BlueIdea.COM Web Team V37 2003-7-25%>

代碼解釋:

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

Session("GetCode") = zNum

　　該for循環是將隨機數字放入一個下標3的數組，便於提供給後面的陣列變換

　 dim zimg(3),NStr
　　　 NStr=cstr(zNum)
　　　 For i=0 to 3
　　　　　 zimg(i)=cint(mid(NStr,i+1,1))
　　　 Next
　 dim Pos

　　'定義二個 ADODB.Stream binary對象,作圖像數據操作之用:

　 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

　　'載入0~9的數字數據10x100的，Gbr的陣列數據,每個320字節,10個數字3200byte

'BGR一個點,10x10個點一個數字，一個點三個字節(二進制8位，16進制 00~FF)

　　'一行10個點 30字節 + 行結束標記 00 00 二字節 32字節，所以一個10x100寬小於長的圖像每個數字10x10是320字節

　　'長大於寬的則無行結束標記 0000,直接是300字節

　　這些就是BMP 24bit的數據詳細信息了

　　‘至於頭部，也很簡單，包含長寬，圖像開始標記等等~~才54字節，遠沒jpg什麼的復雜

Ados.LoadFromFile(Server.mappath("body.Fix"))　
Ados1.write Ados.read(1280)

　　'第一個for循環,按生成的隨機數字順序從 10X100的數字陣列中提取出相應的四個數字

　　但是豎排的數字陣列

for i=0 to 3
　　Ados.Position=(9-zimg(i))*320
　　Ados1.Position=i*320
　　Ados1.write ados.read(320)
next

　　'清空已經用完的ADOS的數據，調入替換新的圖像頭54字節的頭文件　

Ados.LoadFromFile(Server.mappath("head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos

　　'指定Pos位置,即可再偏移54字節的位置添加圖形數據

　　第二個for循環，進行數字的陣列變換，由豎排的塊轉換為橫排的數字塊

　　方法是隔320字節抽取4次30字節寫入ados對象，再抽取偏移第二行的圖像數據

　　30字節是因為bmp 寬大於長時無00 00的行結束標記

以下為引用的內容：
for i=0 to 9 step 1
　　for j=0 to 3
　　　　Ados1.Position=i*32+j*320
　　　　Ados.Position=Pos+30*j+i*120
　　　　Ados.write ados1.read(30)
　　next
next
Ados.Position=0
response.BinaryWrite直接向客戶端發送圖像數據
Response.ContentType = "image/BMP"
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
End Function