UC知道asp问题?验证码的生成,高手进!
来源：百度知道 编辑：UC知道 时间：2024/05/31 00:55:35
请看以下的asp代码:该代码的功能是实现验证码的生成.有的地方,我不明白,请各位朋友指教.谢谢了.
<%
Option Explicit
Response.buffer=true
NumCode(在这里用了Option Explicit后,怎么不用定义NumCode呢?)
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"(这个东西的设置有什么用呀?)
Response.AddHeader "cache-ctrol","no-cache"(这个东西的设置有什么用呀?)
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer(这句是什么意思呀?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")(它为什么要创建二个Adodb.Stream对象呢?)
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("bo
<%
Option Explicit
Response.buffer=true
NumCode(在这里用了Option Explicit后,怎么不用定义NumCode呢?)
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"(这个东西的设置有什么用呀?)
Response.AddHeader "cache-ctrol","no-cache"(这个东西的设置有什么用呀?)
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer(这句是什么意思呀?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")(它为什么要创建二个Adodb.Stream对象呢?)
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("bo
AddHeader 方法用指定的值添加 HTML 标题。该方法常常向响应添加新的 HTTP 标题。它并不替代现有的同名标题。一旦标题被添加，将不能删除。
Randomize timer 产生随机数的
（加了TIMER是用系统的时钟来产生随机种子
因为TIMER包含了毫秒级,一般毫秒级的时间位几乎是随机的
所以产生的随机数达到了完美随机的程度 ）
adodb.stream
Type 指定或返回的数据类型，可选参数为：
adTypeBinary =1
adTypeText =2
fix是bmp的一种衍生格式，可用于asp生成验证码图形。
其他我也不知道了 嘿嘿 希望有稍微能帮到你啦