<%
Sub GetSafeCode
Dim test,Result
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("SafeCode") = zNum
Result = Session("SafeCode")
Else
Result = "<img src=""Safecode.asp"" align=""absmiddle"">"
End If
Response.Write Result
End Sub
%>
<%
'整个过程的含义应该是判断服务器是过支持FSO文件流对象，如果支持则调用 SafeCode.asp来显示安全码（因为显示安全码是需 要文件流对象支持才行），如果不支持就产生1000-9999之间的随机数做为安全码，保存到Session中
Sub GetSafeCode
Dim test,Result '定义变量
On Error Resume Next ‘排错语句，如果服务器不支持流对象（文件操作对象)就出现错误提示，这句话可以不出现错误提示
Set test=Server.CreateObject("Adodb.Stream") '创建流对象
Set test=Nothing '将Test对象设置为空
If Err Then '如果出现错误则执行IF至Else中间的语句，Err当现在错误是Err变量的值为True
Dim zNum '定义变量
Randomize timer '自义随机时间钟
zNum = cint(8999*Rnd+1000) '产生1000-9999之间的整数，因为Rnd是产生0至1之间的小数
Session("SafeCode") = zNum'将安全码保存到Session中
Result = Session("SafeCode") '将Session中保存的安全码读取到变量Result
Else '如果不出错则执行以下操作
Result = "<img src=""Safecode.asp"" align=""absmiddle"">" '将输入的图片HTML值保存到变量Result中
End If
Response.Write Result '显示图片
End Sub
%>
这是获得验证码
在接收用户输入验证码的时候比对就是了
验证码存在Session("SafeCode") 变量里
Sub GetSafeCode 定义了一个程序 Dim test,Result 定义了连个变量 On Error Resume Next 出现错误返回 Set test=Server.CreateObject("Adodb.Stream") 这个是连接数据库吧 Set test=Nothing 把数据库取消了 这两步就是判断数据库的正确性
If Err Then Dim zNum 定义变量 Randomize timer 取随即 zNum = cint(8999*Rnd+1000) 获得了一个四位的随即数 Session("SafeCode") = zNum 给session变量赋值 为上面的变量 Result = Session("SafeCode") 给result赋值为session变量 Else 出错的话 Result = "<img src=""Safecode.asp"" align=""absmiddle"">" 一个图片 End If Response.Write Result End Sub
%>
就是判断了数据库的正确性
然后给一个session随即了一个四位数
似乎就是