PostHttpPage用asp是實(shí)現(xiàn)模擬登錄效果的代碼
更新時(shí)間：2007年09月01日 22:04:28 作者：
'==================================================
'函數(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
'函數(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
相關(guān)文章
使用模板實(shí)現(xiàn)ASP代碼與頁(yè)面分離
使用模板實(shí)現(xiàn)ASP代碼與頁(yè)面分離...2006-08-08
asp jmail發(fā)郵件 詳細(xì)解析...2007-11-11
幾個(gè)經(jīng)典的ASP應(yīng)用...2007-01-01
ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容
ASP,vbs正則輪翻在文章段落后加上網(wǎng)址，網(wǎng)站名稱，網(wǎng)站介紹等內(nèi)容2008-06-06
解決使用良精企業(yè)建站7.0未注冊(cè)問(wèn)題
解決使用良精企業(yè)建站7.0未注冊(cè)問(wèn)題...2007-04-04
ASP生成靜態(tài)htm頁(yè)面基本代碼...2007-09-09
對(duì)于喜歡網(wǎng)站的內(nèi)容被各個(gè)rss訂閱，利于別人快速掌握我們的信息，就需要這個(gè)東西，推薦2008-10-10
asp 取得用戶真實(shí)IP，對(duì)代理地址仍然有效的函數(shù)
這篇文章主要介紹了asp 取得用戶真實(shí)IP，對(duì)代理地址仍然有效的函數(shù),需要的朋友可以參考下2007-08-08
asp實(shí)現(xiàn)生成由數(shù)字，大寫字母，小寫字母指定位數(shù)的隨機(jī)數(shù)
asp實(shí)現(xiàn)生成由數(shù)字，大寫字母，小寫字母指定位數(shù)的隨機(jī)數(shù)...2007-08-08
ASP JSON類源碼分享，需要的朋友可以參考下。2011-06-06