熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 生成圖片驗證碼

2013-11-13 10:12:00  來源: .NET編程 

  下面一款代碼是一個用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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.