checkcode.asp

ASP实现的一个旅游线路预订系统．．．ASP代码

<%
Option Explicit
Response.buffer=true
NumCode(6) '1-4为彩色型 5-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
	Dim Ados,Ados1
	Randomize timer
	Dim zimg(6),NStr
	For i=0 To 5
		rnum=cstr(cint(35*Rnd))
		zimg(i)=rnum
		select case rnum
		case "10"
			rnum="a"
		case "11"
			rnum="b"
		case "12"
			rnum="c"
		case "13"
			rnum="d"
		case "14"
			rnum="e"
		case "15"
			rnum="f"
		case "16"
			rnum="g"
		case "17"
			rnum="h"
		case "18"
			rnum="i"
		case "19"
			rnum="j"
		case "20"
			rnum="k"
		case "21"
			rnum="l"
		case "22"
			rnum="m"
		case "23"
			rnum="n"
		case "24"
			rnum="o"
		case "25"
			rnum="p"
		case "26"
			rnum="q"
		case "27"
			rnum="r"
		case "28"
			rnum="s"
		case "29"
			rnum="t"
		case "30"
			rnum="u"
		case "31"
			rnum="v"
		case "32"
			rnum="w"
		case "33"
			rnum="x"
		case "34"
			rnum="y"
		case "35"
			rnum="z"
		end select

		listnum=listnum & rnum
	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("../images/body"&CodeType&".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 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
	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("CheckCode") = "999999"
End Function
%>