主頁 > 知識庫 > PostHttpPage用asp是實(shí)現(xiàn)模擬登錄效果的代碼

PostHttpPage用asp是實(shí)現(xiàn)模擬登錄效果的代碼
熱門標(biāo)簽：團(tuán)購網(wǎng)站 Linux服務(wù)器 阿里云 電子圍欄 銀行業(yè)務(wù) 服務(wù)器配置 科大訊飛語音識別系統(tǒng) Mysql連接數(shù)設(shè)置
'==================================================
'函數(shù)名：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 

標(biāo)簽：大理 蚌埠 棗莊 萍鄉(xiāng) 廣元 衢州 江蘇 衡水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《PostHttpPage用asp是實(shí)現(xiàn)模擬登錄效果的代碼》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266