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

作者: 怪蜀黍v
来源: 51数据库
2021-07-12

'==================================================
'函数名：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

推荐阅读