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)文章
首先是recordset的創(chuàng)建 asp 簡(jiǎn)單分頁(yè)代碼2009-08-08
一段在asp中加密與解密對(duì)應(yīng)的函數(shù)
一段在asp中加密與解密對(duì)應(yīng)的函數(shù)...2007-03-03
ASP 根據(jù)用戶權(quán)限判斷顯示的列標(biāo)題
通過(guò)session的屬性值判斷判斷顯示的列標(biāo)題2009-03-03
XML（Extensible Markup Language）是一種基于文本格式的標(biāo)記語(yǔ)言，它注重對(duì)數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)意義的描述，實(shí)現(xiàn)了數(shù)據(jù)內(nèi)容和顯示樣式的分離，而且是與平臺(tái)無(wú)關(guān)的。下面利用XML作為數(shù)據(jù)的載體，開(kāi)發(fā)一個(gè)基于XML的留言板。2015-09-09
非常好用的asp備份,還原SQL數(shù)據(jù)庫(kù)的代碼
用asp的朋友，可以用下面的代碼，實(shí)現(xiàn)mssql數(shù)據(jù)庫(kù)的備份還原操作2008-06-06
防采集是很麻煩而且累人的事，你做的再好，別人要采還得采。累人就在于要防別人采集，還要不影響搜索引擎收錄（大部分個(gè)人站長(zhǎng)的站的生存都寄于百度和Google）。所以要防采集，就得先不影響收錄，所以我們先要分析到如何分辨搜索爬蟲(chóng)。2008-04-04
ASP 時(shí)間函數(shù)及如何獲取服務(wù)器時(shí)間的寫(xiě)法
本文羅列了一些常用的ASP時(shí)間函數(shù)以及如何獲取服務(wù)器時(shí)間的寫(xiě)法，感興趣的朋友可以了解下，就當(dāng)鞏固知識(shí)了希望本文對(duì)你有所幫助2013-01-01
asp+JMAIL實(shí)現(xiàn)發(fā)送郵件
這篇文章主要介紹了asp+JMAIL實(shí)現(xiàn)發(fā)送郵件實(shí)例代碼，感興趣的小伙伴們可以參考一下2015-09-09
asp如何用discuz會(huì)員系統(tǒng)...2006-09-09
asp 獲取url函數(shù)小結(jié)，需要的朋友可以參考下。2009-11-11