pacote de componentes xmlhttp no ASP
Escrevi uma função de ladrão, presto atenção à parte do código vermelho e adicionei os outros!
FunctionPosthtppageFrom (httpurl, stra, fromurl)
Dimhttp
Sethttp = server.createObject ("msxml2.xmlHttp")
Http.open "post", httpurl, false
Http.setRequestHeader "Length de conteúdo", Len (Stra) http.setRequestHeader "Conteúdo-
Tipo "," Aplicativo/X-Www-Form-Urlencoded "
Http.setRequestHeader "Referent", Fromurl
Http.sendstra
Ifhttp.readyState <> 4Then
Sethttp = nada
Gethttppage = "$ false $"
Saída de saída
Endif
Posthttppagefrom = bytestobstr (http.ResponseBody, "gb2312") sethttp = nada
Iferr.number <> 0then
Err.clear
Endif
Função final
FunctionByTestobstr (corpo, 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 = nada
Função final