Function GetWebData(byval strUrl) '不需要二进制转换,直接读取文本
dim curlpath
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", strUrl, False, "", ""
.Send
GetWebData = .responseText
End With
Set Retrieval = Nothing
End Function