上海家教网
200 Then vGetData=False Else Resp=HttpReqObj.responseText vGetData=True End If Set HttpReqObj=Nothing End If Else HttpReqObj.Open "GET",HTTPQuery,False HttpReqObj.Send If HttpReqObj.Status<>200 Then vGetData=False Else Resp=HttpReqObj.responseText vGetData=True End If End If End Function %>