checkcode.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Option Explicit
Response.buffer = True
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Response.ContentType = "image/BMP"
On Error Resume Next
Dim ArrCode, RndNum(5), i, j, Pos
Dim SessionCheckCode, Ados, Ados1
SessionCheckCode = ""
ArrCode = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")

Randomize
For i = 0 To 5
	RndNum(i) = CStr(CInt(35 * Rnd))
	SessionCheckCode = SessionCheckCode & ArrCode(RndNum(i))
Next
Session("CheckCode") = UCase(SessionCheckCode)

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("../Images/body.Fix"))
Ados1.write Ados.read(2880)
For i = 0 To 5
   Ados.Position = (35 - RndNum(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 15 Step 1
   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.BinaryWrite Ados.read()
Ados.Close
Set Ados = Nothing
Ados1.Close
Set Ados1 = Nothing
%>