老太脱裤子让老头玩xxxxx,宅男噜噜噜66网,99re热这里只有精品22,波多野结衣肉番一区,久久久一本美女,公共厕所www日本撒尿视频,亚洲国产在化精品国自产拍,仙女白丝jk小脚夹得我好爽,午夜男女XX00视频免费777,波多野结衣手机免费AV在线

ASP XMLHTTP

admin

2013年11月28日 11:39 本文熱度 5157

'********************************************************************************
'名稱：遠程抓取函數(shù)
'作用：利用XMLHTTP遠程抓取數(shù)據(jù)
'參數(shù)： sMethod --- 發(fā)送方式
' sUrl ------ 目標地址
' iMode ----- 返回內(nèi)容類型：0為二進制，1為文本，2為cookie，3為文件頭信息
' sBase ----- 設(shè)定編碼
' sReferer -- 設(shè)定來源
' sCookie --- 設(shè)定cookie
' sLanguage - 設(shè)定語言
' sData ----- 設(shè)定要發(fā)送的參數(shù)
' sContent -- 設(shè)定接收數(shù)據(jù)類型
' sAgent ---- 設(shè)定瀏覽器
' sEncoding - 設(shè)定gzip壓縮
' sAccept --- 設(shè)定文檔類型
'********************************************************************************
Public Function SenFe_StealData(sMethod, sUrl, iMode, sBase, sReferer, sCookie, sLanguage, sData, sContent, sAgent, sEncoding, sAccept)
Dim oXmlHttp : Set oXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
With oXmlHttp
If sMethod="" Then sMethod = "GET"
.Open sMethod, sUrl, False
'設(shè)定頁面來源
If sReferer<>"" Then
.SetRequestHeader "Referer", sReferer
Else
.SetRequestHeader "Referer", Split(sUrl, "/")(2)
End If
If sCookie<>"" Then .SetRequestHeader "Cookie", sCookie '設(shè)定Cookie
If sLanguage<>"" Then .SetRequestHeader "Accept-Language", sLanguage '設(shè)定語言
If sData<>"" Then .SetRequestHeader "Content-Length", Len(sData) '設(shè)定數(shù)據(jù)長度
If sContent<>"" Then .SetRequestHeader "Content-Type", sContent '設(shè)定接受數(shù)據(jù)類型
If sAgent<>"" Then .SetRequestHeader "User-Agent", sAgent '設(shè)定瀏覽器
If sEncoding<>"" Then .SetRequestHeader "Accept-Encoding", sEncoding '設(shè)定gzip壓縮
If sAccept<>"" Then .SetRequestHeader "Accept", sAccept '文檔類型
.Send sData
'While .ReadyState <> 4
' .WaitForResponse 1000
'Wend
If .ReadyState<>4 Or .Status<>200 Then
SenFe_StealData = "無法取到數(shù)據(jù)！"
Exit Function
End If
Select Case iMode
Case 0 SenFe_StealData = .ResponseBody
Case 1
If sBase<>"" Then
SenFe_StealData = BytesToBstr(.ResponseBody, sBase)
Else
SenFe_StealData = .ResponseText
End If
Case 2 SenFe_StealData = .getResponseHeader("Set-Cookie")
Case Else SenFe_StealData = .getAllResponseHeaders()
End Select
End With
End Function
'********************************************************************************
'作用：編碼轉(zhuǎn)換
'參數(shù)： sBody - 要轉(zhuǎn)換的內(nèi)容
' sCset - 編碼
'********************************************************************************
Function BytesToBstr(sBody, sCset)
With oAdos
.Type = 1
.Mode = 3
.Open
.Write sBody
.Position = 0
.Type = 2
.Charset = sCset
BytesToBstr = .ReadText
.Close
End With
End Function

該文章在 2013/11/28 11:39:13 編輯過

相關(guān)文章

正在查詢...

點晴ERP是一款針對中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。

點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調(diào)度、堆場、車隊、財務(wù)費用、相關(guān)報表等業(yè)務(wù)管理，結(jié)合碼頭的業(yè)務(wù)特點，圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術(shù)的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點晴WMS倉儲管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質(zhì)期管理,貨位管理,庫位管理,生產(chǎn)管理,WMS管理系統(tǒng),標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務(wù)都免費，不限功能、不限時間、不限用戶的免費OA協(xié)同辦公管理系統(tǒng)。