Paquete de componentes XMLHTTP en ASP
¡Escribí una función de ladrón, presté atención a la parte del código rojo y agregué a los demás usted mismo!
FunctionPosthttppageFrom (httpurl, stra, fromurl)
Dimhttp
Sethttp = server.createObject ("msxml2.xmlhttp")
Http.open "post", httpurl, falso
Http.setRequestHeader "Content-longitud", Len (Stra) http.setRequestheer "contenido-
Tipo "," Aplicación/X-WWW-Form-Urlencoded "
Http.setRequestheader "referente", fromurl
Http.sendstra
Ifhttp.readyState <> 4then
Sethttp = nada
Gethttppage = "$ falso $"
Extinción
Endif
PosthttppageFrom = bytestobstr (http.ResponseBody, "GB2312") Sethttp = nada
Iferr.number <> 0then
Err.Clear
Endif
Función final
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 = nada
Función final