asp生成验证码
来源:互联网 发布:公司网络dns被劫持 编辑:程序博客网 时间:2024/06/07 00:57
=========驗證串==========
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("image_check") = 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("image_code_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("image_code_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
If Err Then Session("image_check") = 9999
End Function
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("image_check") = 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("image_code_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("image_code_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
If Err Then Session("image_check") = 9999
End Function
- asp生成验证码
- asp验证码生成
- ASP验证码图形生成
- Asp.Net生成验证码
- asp.net生成验证码
- Asp.Net生成验证码
- asp.net生成验证码
- ASP生成随机验证码
- asp.net生成验证码
- Asp.NET 生成验证码
- [ASP.NET]验证码生成
- ASP.NET生成验证码
- 用ASP生成验证码
- ASP.NET生成验证码
- asp .net 生成验证码
- ASP.Net生成验证码
- asp.net 生成验证码
- asp.net生成验证码
- Java反射经典实例 Java Reflection Cookbook
- MFC中CCOMBOX组合框的使用
- asp常用的代码
- 小程序练习
- 使用eclipse的JDT实现JAVA代码格式化功能
- asp生成验证码
- 备忘:一个ibatis项目应用的重要sql-mapping.xml部分代码
- 实战Multitouch(1)
- 定时自动关闭弹出窗口
- Windows“安全模式”妙用全接触
- Java程序员:一刻钟精通正则表达式
- 重载流插入和流提取运算符
- JSTL强大的日期编辑功能
- 50个Sql语句