• 获取验证码程序


    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
    %>

  • 相关阅读:
    关于mvc、webapi中get、post、put、delete的参数
    sql2008清空日志
    Entityframework修改某个字段
    order by与索引
    Ninject中如果在抽象类中使用了属性注入,则属性必须设置为protected或public
    ViewData,ViewBag,TempData
    eurake高可用集群搭建 自我保护机制
    zookeeper 保证 CP

    JConsole工具监控java程序内存和JVM
  • 原文地址:https://www.cnblogs.com/aimyfly/p/2298094.html
Copyright © 2020-2023  润新知