当前位置：主页 > 查看内容

PostHttpPage用asp是实现模拟登录效果的代码

发布时间：2021-07-24 00:00| 有 位朋友查看

简介：'================================================== '函数名：PostHttpPage '作用：登录 '================================================== FunctionPostHttpPage(RefererUrl,PostUrl,PostData) DimxmlHttp DimRetStr SetxmlHttp=CreateObject("Msxml……
'==================================================
'函数名：PostHttpPage
'作  用：登录
'==================================================
Function PostHttpPage(RefererUrl,PostUrl,PostData) 
    Dim xmlHttp 
    Dim RetStr      
    Set xmlHttp = CreateObject("Msxml2.XMLHTTP")  
    xmlHttp.Open "POST", PostUrl, False
    XmlHTTP.setRequestHeader "Content-Length",Len(PostData) 
    xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlHttp.setRequestHeader "Referer", RefererUrl
    xmlHttp.Send PostData 
    If Err.Number <> 0 Then 
        Set xmlHttp=Nothing
        PostHttpPage = "$False$"
        Exit Function
    End If
    PostHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312")
    Set xmlHttp = nothing
End Function 

原文链接：https://m.jb51.net/article/11220.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：log4j 文件输出 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐