验证码的制作和使用(ASP)

下面是获得验证码的函数文件，保存文件为GetCode.asp
<%
Option Explicit
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("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("images/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("images/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

补充：asp教程,高级应用