Компонентный пакет xmlhttp в ASP
Я написал функцию вора, обращаю внимание на красный код и сами добавляю других!
FunctionPoSthtTppageFrom (httpurl, stra, fromurl)
Dimhttp
Sethttp = server.createObject ("msxml2.xmlhttp")
Http.open "post", httpurl, false
Http.setrequestheader "длиной контента", Len (Stra) http.setrequestheader "
Тип "," Application/X-WWW-FORM-URLENCODED "
Http.setrequestheader «Реферат», Fromurl
Http.sendstra
Ifhttp.readystate <> 4then
Sethttp = ничего
Gethttppage = "$ false $"
Выходная функция
Эндиф
Posthttppagefrom = bytestobstr (http.responsebody, "gb2312") sethttp = ничего
Iferr.number <> 0then
Err.clear
Эндиф
Конечная функция
Functionbytestobstr (тело, 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 = ничего
Конечная функция