用XMLHTTP获得用Post提交的页面的数据

Dim objXML,URL
Dim str
str="name=cc&password=tt"
Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "post",URL,false
objXML.SetRequestHeader "Content-Type","Application/x-www-form-URLEncoded"
objXML.SetRequestHeader "Content-length",Len(str)
objXML.Send(str)
Set objXML=Nothing


以前写的一个函数:
Function getHtml(URL,str)
'取得提交表单后的信息
'By kingwmx

Dim objXML
Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "post",URL,false
objXML.SetRequestHeader "Content-Type","Application/x-www-form-URLEncoded"
objXML.SetRequestHeader "Content-Length",Len(str)
objXML.Send(str)
getHTML=objXML.ResponseBody
Set objXML=Nothing
End Function

 

白痴。