推薦：比較ASP生成靜態(tài)HTML文件的幾種方法
將動(dòng)態(tài)頁面轉(zhuǎn)換生成靜態(tài)Html文件有許多好處，比如生成html網(wǎng)頁有利于被搜索引擎收錄（特別是對(duì)接受動(dòng)態(tài)參數(shù)的頁面）。前臺(tái)訪問時(shí)，脫離了數(shù)據(jù)訪問,減輕對(duì)數(shù)據(jù)庫訪問的壓力，加快網(wǎng)頁打開速度。

使用ASP生成圖片彩色校驗(yàn)碼

49行代碼,三個(gè)文件
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

生成隨機(jī)四位數(shù)字：

zNum = cint(8999*Rnd 1000)

傳遞給session

Session("GetCode") = zNum

該for循環(huán)是將隨機(jī)數(shù)字放入一個(gè)下標(biāo)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

'定義二個(gè) ADODB.Stream binary對(duì)象,作圖像數(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ù)字?jǐn)?shù)據(jù)10x100的，Gbr的陣列數(shù)據(jù),每個(gè)320字節(jié),10個(gè)數(shù)字3200byte
'BGR一個(gè)點(diǎn),10x10個(gè)點(diǎn)一個(gè)數(shù)字，一個(gè)點(diǎn)三個(gè)字節(jié)(二進(jìn)制8位，16進(jìn)制 00~FF)
'一行10個(gè)點(diǎn) 30字節(jié) 行結(jié)束標(biāo)記 00 00 二字節(jié) 32字節(jié)，所以一個(gè)10x100寬小于長的圖像每個(gè)數(shù)字10x10是320字節(jié)
'長大于寬的則無行結(jié)束標(biāo)記 0000,直接是300字節(jié)
這些就是BMP 24bit的數(shù)據(jù)詳細(xì)信息了
‘至于頭部，也很簡單，包含長寬，圖像開始標(biāo)記等等~~才54字節(jié)，遠(yuǎn)沒jpg什么的復(fù)雜

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

'第一個(gè)for循環(huán),按生成的隨機(jī)數(shù)字順序從 10X100的數(shù)字陣列中提取出相應(yīng)的四個(gè)數(shù)字
但是豎排的數(shù)字陣列

for i=0 to 3 �牐燗dos.Position=(9-zimg(i))*320 �牐燗dos1.Position=i*320 �牐燗dos1.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ù)
第二個(gè)for循環(huán)，進(jìn)行數(shù)字的陣列變換，由豎排的塊轉(zhuǎn)換為橫排的數(shù)字塊
方法是隔320字節(jié)抽取4次30字節(jié)寫入ados對(duì)象，再抽取偏移第二行的圖像數(shù)據(jù)
30字節(jié)是因?yàn)閎mp 寬大于長時(shí)無00 00的行結(jié)束標(biāo)記

以下為引用的內(nèi)容： for i=0 to 9 step 1 �牐爁or j=0 to 3 �牐牐牐燗dos1.Position=i*32 j*320 �牐牐牐燗dos.Position=Pos 30*j i*120 �牐牐牐燗dos.write ados1.read(30) �牐爊ext 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

分享：關(guān)于Asp代碼與頁面的分離
為了避免ASP程TML代碼混寫造成維護(hù)困難的情況，本文介紹了一種方法，利用模板來分離程序和頁面，使程序設(shè)計(jì)更加輕松。 在使用ASP制作一個(gè)站點(diǎn)的時(shí)候，常常會(huì)出現(xiàn)一個(gè)ASP文件中，程序代碼和HTM