ASP Generation Verification Code program

Numcode (8)
function Numcode (CodeType)
Response.Expires =-1
Response.AddHeader "Pragma", "No-cache"
Response.AddHeader "Cache-ctrol", "No-cache"
On Error Resume Next
Dim znum, Rnum, I, J, ListNum, Listcode
Dim ADOs, Ados1
Listcode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize Timer
Dim zimg (6), Nstr
For i = 0 to 5
Rnum = CStr (CInt rnd)) ' Change 35 to 9 to use a pure digital password
Zimg (i) = Rnum
LISTNUM = ListNum & Mid (Listcode, Rnum + 1, 1)
Next
If Len (the request ("T")) <1 Then
Session.timeout=1
Else
If IsNumeric (the "request" ("T")) Then
Session.timeout=int Trim (Request ("T"))
Else
Session.timeout=1
End If
End If
If Len (the request ("V")) <1 Then
Session (sessionprefix& "Syscode") =listnum
Else
Session (Sessionprefix&trim (Request ("V")) =listnum
End If
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 ("Www.111cn.net/body.fix"))
Ados1.write Ados.read (2880)
For i = 0 to 5
Ados.position = (35-zimg (i)) * 480
Ados1.position = i * 480
Ados1.write Ados.read (480)
Next
Ados.loadfromfile (Server.MapPath ("Images/head.fix"))
pos = LenB (Ados.read ())
Ados.position = pos
For i = 0 to 1
For j = 0 to 5
Ados1.position = i * + J * 480
Ados.position = pos + * j + I * 270
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 (sessionprefix& "checkcode") = "999999"
End Function
%>