28,403
社区成员
发帖
与我相关
我的任务
分享用serverXMLHTTP怎么登录访问HTTPS站点??
下面是访问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还要设置什么地方??
先谢谢了!
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还要设置什么地方??
先谢谢了!
...全文
请发表友善的回复…
发表回复
晓疯馋曰 2005-09-23
- 打赏
- 举报
???????????
晓疯馋曰 2005-09-23
- 打赏
- 举报
继续来人帮我!!!
zwrtv 2005-09-23
- 打赏
- 举报
学习下
晓疯馋曰 2005-09-23
- 打赏
- 举报
来来
晓疯馋曰 2005-09-23
- 打赏
- 举报
HELP
jim.ma 2005-09-22
- 打赏
- 举报
mark
zhlym 2005-09-22
- 打赏
- 举报
路过,看到,那这样https的证书都不用安装了吗? 那这样https还有什么意义了?
晓疯馋曰 2005-09-22
- 打赏
- 举报
来人帮一下我呀
晓疯馋曰 2005-09-22
- 打赏
- 举报
最后顶一次
晓疯馋曰 2005-09-22
- 打赏
- 举报
怎样安装证书撒?
晓疯馋曰 2005-09-21
- 打赏
- 举报
晕罗,楼上的,你用set mXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
这个可以登录?????
这个可以登录?????
tigerwen01 2005-09-21
- 打赏
- 举报
我试了，可以登陆。
