• 获取验证码程序


    GetCode.asp  随机生成一组数字或字符,然后再生成图片 (图片格式为.fix)fix是bmp的一种衍生格式,可用于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("img/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("img/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=nothing
    End Function
    %>

  • 相关阅读:
    kubernetes案例 tomcat+mysql
    elasticsearch+logstash+kibana部署
    elasticsearch集群部署以及head插件安装
    Rhel7.4系统部署cobbler
    部署Hadoop2.0高性能集群
    使用haproxy实现负载均衡集群
    nginx实现动静分离的负载均衡集群
    heartrbeat实现web服务器高可用
    keepalived+lvs
    LVS集群之IP TUN模式以及网站压力测试
  • 原文地址:https://www.cnblogs.com/aimyfly/p/2298094.html
Copyright © 2020-2023  润新知