post模拟登录的问题，有302跳转

Question

本帖最后由 sctongyi 于 2014-09-30 21:20:46 编辑

Answer 1

PostBody="backUrl=&UserName=bbbbbb&PassWord=111111&x=48&y=8&sys=0"
url= "http://sys.59.cn/system/Login_CK.asp"
Dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objXMLHTTP.Option(6)=1
'objXMLHTTP.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
objXMLHTTP.open  "POST",url, False
objXMLHTTP.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objXMLHTTP.setRequestHeader "Content-Length",Len(PostBody)
objXMLHTTP.setRequestHeader "Referer","http://sys.59.cn/system/login.asp"
objXMLHTTP.send PostBody
'response.Write objXMLHTTP.getResponseHeader("Set-Cookie")
'aaa = objXMLHTTP.getResponseHeader("Set-Cookie")
POSTOP=objXMLHTTP.responseTextSet objXMLHTTP = Nothing
response.Write POSTOP