rnd_num.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 56 行

<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
	Response.Expires = -1
	Response.AddHeader "Pragma","no-cache"
	Response.AddHeader "cache-ctrol","no-cache"
	On Error Resume Next
	Dim zNum,i,j,vsort
	vsort=trim(request.querystring("sort"))
	Dim Ados,Ados1
	zNum=request.cookies(session("web_cookies_name"))("vc_"&vsort)
	zNum=right(zNum,4)
	if not(isnumeric(zNum)) then
	  zNum="0000"
	end if
	Dim zimg(4),NStr
	NStr=cstr(zNum)
	If Err then nstr="0000"
	For i=0 To 3
		zimg(i)=cint(mid(NStr,i+1,1))
	Next
	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(session("web_dir")&"images/reg_pic/body.Fix"))
	Ados1.write Ados.read(1280)
	For i=0 To 3
		Ados.Position=(9-zimg(i))*320
		Ados1.Position=i*320
		Ados1.write ados.read(320)
	Next	
	Ados.LoadfromFile(Server.mappath(session("web_dir")&"images/reg_pic/head.fix"))
	Pos=lenb(Ados.read())
	Ados.Position=Pos
	For i=0 To 9 Step 1
		For j=0 To 3
			Ados1.Position=i*32+j*320
			Ados.Position=Pos+30*j+i*120
			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
End Function
%>