Dim Http Set Http = Server.CreateObject("MSXML2.XMLHTTP") Http.Open "GET", HttpUrl, False Http.Send 插入 on error resume next If Http.Readystate <> 4 Then
即
Dim Http Set Http = Server.CreateObject("MSXML2.XMLHTTP") Http.Open "GET", HttpUrl, False on error resume next Http.Send If Http.Readystate <> 4 Then