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