推薦：比較ASP生成靜態HTML文件的幾種方法將動態頁面轉換生成靜態Html文件有許多好處，比如生成html網頁有利於被搜索引擎收錄（特別是對接受動態參數的頁面）。前台訪問時，脫離了數據訪問,減輕對數據庫訪問的壓力，加快網頁打開速度。
使用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*ji*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*ji*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 |
分享：關於Asp代碼與頁面的分離為了避免ASP程TML代碼混寫造成維護困難的情況，本文介紹了一種方法，利用模板來分離程序和頁面，使程序設計更加輕鬆。在使用ASP製作一個站點的時候，常常會出現一個ASP文件中，程序代碼和HTM