ASPのXMLHTTPコンポーネントパッケージ
私は泥棒機能を書き、赤いコードの部分に注意を払い、他の人を自分で追加します！
functionpostttppagefrom（httpurl、stra、fromurl）
dimhttp
sethttp = server.createObject（ "msxml2.xmlhttp"）
http.open "post"、httpurl、false
http.setRequestheader "Content-Length"、Len（Stra）http.setRequestheader "コンテンツ -
タイプ "、" Application/x-www-form-urlencoded "
http.setRequestheader "参照者"、fromurl
http.sendstra
ifhttp.ReadyState <> 4then
sethttp =何もない
gethttppage = "$ false $"
exitFunction
endif
postttppagefrom = bytestobstr（http.responsebody、 "gb2312"）sethttp =何も
iferr.Number <> 0then
err.clear
endif
エンド機能
functionbytestobstr（body、cset）
DimobjStream
setobjstream = server.createObject（ "adodb.stream"）
objstream.type = 1
objstream.mode = 3
objstream.open1d）
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
setobjstream =何もない
エンド機能