使用ASP生成图片彩色校验码

文章作者：不详
责任编辑：大鱼　录入时间：2005-1-1 18:03:09 来源：不详
频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意.

使用ASP生成图片彩色校验码

49行代码,三个文件
Asp文件：Code.Asp
数据文件：body.Fix , Head.Fix
下载：下载打包文件
用法：<img src="code.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=此新闻共有4页 上一页   1  2  3  4   下一页