asp 生成圖片驗證碼

　　下面一款代碼是一個用asp 生成圖片驗證碼的程序哦關於驗證代碼寫程序的大多都會知道哦下面來看看這款圖片驗證碼的生成方式吧

　　<%
Option Explicit
Responsebuffer=true
NumCode
Function NumCode()
 ResponseExpires =
 ResponseAddHeader "Pragma""nocache"
 ResponseAddHeader "cachectrol""nocache"
 dim zNumij
 dim AdosAdos
 Randomize timer
 zNum = cint(*Rnd+)
 Session("GetCode") = zNum
 dim zimg()NStr
  NStr=cstr(zNum)
  For i= to
   zimg(i)=cint(mid(NStri+))
  Next
 dim Pos
 set Ados=ServerCreateObject("AdodbStream")
  AdosMode=
  AdosType=
  AdosOpen
 set Ados=ServerCreateObject("AdodbStream")
  AdosMode=
  AdosType=
  AdosOpen
  AdosLoadFromFile(Servermappath("bodyFix"))
  Adoswrite Adosread()
  for i= to
   AdosPosition=(zimg(i))*
   AdosPosition=i*
   Adoswrite adosread()
  next
  AdosLoadFromFile(Servermappath("headfix"))
  Pos=lenb(Adosread())
  AdosPosition=Pos
  for i= to step
   for j= to
    AdosPosition=i*+j*
    AdosPosition=Pos+*j+i*
    Adoswrite adosread()
   next
  next
  ResponseContentType = "image/BMP"
  AdosPosition=
  ResponseBinaryWrite Adosread()
  AdosClose:set Ados=nothing
  AdosClose:set Ados=nothing
End Function
%>

From:http://tw.wingwit.com/Article/program/net/201311/12869.html