<% Option Explicit Const listcode = "0123456789abcdefghijklmnopqrstuvwxyz" Response.buffer = True Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-ctrol", "no-cache" Dim zNum, rNum, i, j, listnum Dim Ados, Ados1 Dim zimg(6), NStr Randomize Timer For i = 0 To 5 rNum = Fix(35 * Rnd) zimg(i) = rNum listnum = listnum & Mid(listcode, rNum + 1, 1) Next Session("CheckCode") = listnum 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("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("head.fix") Pos = LenB(Ados.Read()) Ados.Position = Pos On Error Resume Next For i = 0 To 15 For j = 0 To 5 Ados1.Position = i * 32 + j * 480 Ados.Position = Pos + 30 * j + i * 270 Ados.write Ados1.Read(30) Next Next Ados.Position = 0 Response.ContentType = "inc/BMP" Response.BinaryWrite Ados.Read() Ados.Close Set Ados = Nothing Ados1.Close Set Ados1 = Nothing %>