ASP教程：使用ASP生成圖片彩色校驗碼_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：比較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*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       		

        
      

          


      


      


      


      分享：關于Asp代碼與頁面的分離
      為了避免ASP程TML代碼混寫造成維護困難的情況，本文介紹了一種方法，利用模板來分離程序和頁面，使程序設計更加輕松。

在使用ASP制作一個站點的時候，常常會出現一個ASP文件中，程序代碼和HTM
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2008-08-22


      


      



      


      



      相關ASP教程：