XMLHTTP问题：怎么样登录esales.163.com系统？

松鼠 2005-10-30 07:59:59

function PostData(strurl,strPostData,mReferer)
dim mXmlHttp
set mXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
mXmlHttp.open "POST",strurl,false
'mXmlHttp.setOption 2,13056 '忽略所有的SSL错误
'mXmlHttp.setOption 3,"VeriSign Class 3 Public Primary CA"
mXmlHttp.setRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*"
mXmlHttp.setRequestHeader "Referer", mReferer
mXmlHttp.setRequestHeader "Accept-Language","zh-cn"
'mXmlHttp.setRequestHeader "SOAPAction","https://secure-cn.imrworldwide.com"
mXmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
mXmlHttp.setRequestHeader "UA-CPU","x86"
mXmlHttp.setRequestHeader "Accept-Encoding","gzip, deflate"
mXmlHttp.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)"
mXmlHttp.setRequestHeader "Host","secsite.163.com"
mXmlHttp.setRequestHeader "Content-Length","62"
mXmlHttp.setRequestHeader "Connection","Keep-Alive"
mXmlHttp.setRequestHeader "Cache-Control","no-cache"
mXmlHttp.send strPostData
PostData=mXmlHttp.responseBody
end function

str=PostData("https://secsite.163.com/cgi-bin/login","comname=cqslzhao&pass=zhaoming&username=&admin=0&a=login&Submit=+","http://esales.163.com/")

这段代码可以登录，可网易的系统登录后URL上有一个sid参数，这个参数怎样获得？

...全文