使用ASP產生圖片彩色校正碼

使用ASP產生圖片彩色校正碼

49行代碼,三個檔案
Asp檔案：Code.Asp
資料檔案：body.Fix , Head.Fix
下載：下載打包檔案
用法：<img src="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=NT color=#0000bb>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=nothing
End 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)