XMLHTTP -Komponentenpaket in ASP
Ich schrieb eine Dieb -Funktion, achte auf den roten Code -Teil und füge die anderen selbst hinzu!
Functionposttttppagefrom (httpurl, stra, fromurl)
Dimhttp
Sethttp = server.createObject ("msxml2.xmlhttp"))
Http.open "post", httpurl, false
Http.setRequestheader "Content-Length", Len (Straße) http.setRequestheader "Inhalt-
Typ ",", application/x-www-form-rencoded "
Http.setRequestheader "Referer", Fromurl
Http.sendstra
IFHTTP.REYYSTATE <> 4Then
Sethttp = nichts
Gethttppage = "$ false $"
Ausgangsfunktion
Endif
POSTTHTTPPAGEFROM = BYTESTOBSTR (http.ResponseBody, "gb2312") sethttp = nichts
Ifr.number <> 0Then
Err.clear
Endif
Endfunktion
FunktionByTestObstr (Körper, 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 = nichts
Endfunktion