ASP教程：使用ASP生成圖片彩色校驗碼_ASP教程
推薦：比較ASP生成靜態(tài)HTML文件的幾種方法將動態(tài)頁面轉(zhuǎn)換生成靜態(tài)Html文件有許多好處，比如生成html網(wǎng)頁有利于被搜索引擎收錄（特別是對接受動態(tài)參數(shù)的頁面）。前臺訪問時，脫離了數(shù)據(jù)訪問,減輕對數(shù)據(jù)庫訪問的壓力，加快網(wǎng)頁打開速度。
使用ASP生成圖片彩色校驗碼
49行代碼,三個文件
Asp文件：Code.Asp
數(shù)據(jù)文件：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 |
生成隨機四位數(shù)字：
| zNum = cint(8999*Rnd 1000) |
傳遞給session
| Session("GetCode") = zNum |
該for循環(huán)是將隨機數(shù)字放入一個下標3的數(shù)組，便于提供給后面的陣列變換
| 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對象,作圖像數(shù)據(jù)操作之用:
| 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的數(shù)字數(shù)據(jù)10x100的，Gbr的陣列數(shù)據(jù),每個320字節(jié),10個數(shù)字3200byte
'BGR一個點,10x10個點一個數(shù)字，一個點三個字節(jié)(二進制8位，16進制 00~FF)
'一行10個點 30字節(jié) 行結(jié)束標記 00 00 二字節(jié) 32字節(jié)，所以一個10x100寬小于長的圖像每個數(shù)字10x10是320字節(jié)
'長大于寬的則無行結(jié)束標記 0000,直接是300字節(jié)
這些就是BMP 24bit的數(shù)據(jù)詳細信息了
‘至于頭部，也很簡單，包含長寬，圖像開始標記等等~~才54字節(jié)，遠沒jpg什么的復雜
| Ados.LoadFromFile(Server.mappath("body.Fix")) Ados1.write Ados.read(1280) |
'第一個for循環(huán),按生成的隨機數(shù)字順序從 10X100的數(shù)字陣列中提取出相應的四個數(shù)字
但是豎排的數(shù)字陣列
| for i=0 to 3 Ados.Position=(9-zimg(i))*320 Ados1.Position=i*320 Ados1.write ados.read(320) next |
'清空已經(jīng)用完的ADOS的數(shù)據(jù)，調(diào)入替換新的圖像頭54字節(jié)的頭文件
| Ados.LoadFromFile(Server.mappath("head.fix")) Pos=lenb(Ados.read()) Ados.Position=Pos |
'指定Pos位置,即可再偏移54字節(jié)的位置添加圖形數(shù)據(jù)
第二個for循環(huán)，進行數(shù)字的陣列變換，由豎排的塊轉(zhuǎn)換為橫排的數(shù)字塊
方法是隔320字節(jié)抽取4次30字節(jié)寫入ados對象，再抽取偏移第二行的圖像數(shù)據(jù)
30字節(jié)是因為bmp 寬大于長時無00 00的行結(jié)束標記
| 以下為引用的內(nèi)容： 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直接向客戶端發(fā)送圖像數(shù)據(jù) Response.ContentType = "image/BMP" Response.BinaryWrite Ados.read() Ados.Close:set Ados=nothing Ados1.Close:set Ados1=nothing End Function |
分享：關于Asp代碼與頁面的分離為了避免ASP程TML代碼混寫造成維護困難的情況，本文介紹了一種方法，利用模板來分離程序和頁面，使程序設計更加輕松。 在使用ASP制作一個站點的時候，常常會出現(xiàn)一個ASP文件中，程序代碼和HTM
- 相關鏈接：
- 教程說明：
ASP教程-ASP教程：使用ASP生成圖片彩色校驗碼
。