asp验证码的问题

[panweiwebweb]

下面是弄验证码的一个过程 可是 On Error Resume Next 到 Else 中间的语句看不懂大家能解释一下吗
<%
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"" width=""50"" height=""18"" align=""absmiddle"">"
End If
Response.Write Result
End Sub

%>

[itzhiren]

生成一个随机数吧

[ahuiok]

http://www.designxf.com/Article/Program/Code/ASP/200509/1580.html

关于Adodb.Stream