用serverXMLHTTP怎么登录访问HTTPS站点??
晓疯馋曰 2005-09-21 04:57:10 下面是访问esales.163.com的代码:
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/")
返回"访问超时,请重新登录".
把定义 set mXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
改为 set mXmlHttp=Server.CreateObject("Microsoft.XMLHTTP")
能够成功登录.
现在我要实现多用户,必需用serverXMLHTTP吧.
请问用serverXMLHTTP还要设置什么地方??
先谢谢了!