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

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

'==================================================

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!