利用xmlhttp获取远程网页源码(asp)

On Error Resume Next
 url="myurl"

set objXML=Server.CreateObject("Msxml2.ServerXMLHTTP")
 objXML.open "post",url,false
 objXML.send("") 
 if objXML.readystate=4 then
  '检查磁盘空间
  if (Drive.freespace/1024/1024/1024)<1 then
   logstr=url&"　错误:磁盘空间不足"&vbcrlf
   Set f = fso.OpenTextFile(srcpath&"log.txt", 8, True) 
   f.Write logstr
   f.Close
   set f = nothing
   exit for
  end if
  htmlstr=objXML.responseText
 else
  htmlstr=""
  logstr=url&"　错误:无法读取该页"&vbcrlf
  Set f = fso.OpenTextFile(srcpath&"log.txt", 8, True) 
  f.Write logstr
  f.Close
  set f = nothing
  countfile=countfile-1
 end if

objXML.open "post",url,false 有时使用post方法拿不到内容，换成get又可以了，不知道为什么