wapls_code.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：wapls_code.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：6位验证码信息文件
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<%
Option Explicit
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
	Response.Expires = -1
	Response.AddHeader "Pragma","no-cache"
	Response.AddHeader "cache-ctrol","no-cache"
	On Error Resume Next
	Dim 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("yangzeng") = 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.Fix"))
	Ados1.write Ados.read(2880)
	For i=0 To 7
		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
%>