Package de composant XMLHTTP dans ASP
J'ai écrit une fonction de voleur, faites attention à la partie du code rouge et ajoutez les autres vous-même!
Functionposthttppage
Dimhttp
Sethttp = server.createObject ("msxml2.xmlhttp")
Http.open "Post", httpurl, false
Http.setRequestHeader "Content-Length", Len (Stra) http.setRequestHeader "Content-
Type "," Application / X-Www-Form-Urlencoded "
Http.setRequestHeader "référer", depuis
Http.sendstra
Ifhttp.readystate <> 4Then
Sethttp = rien
Gethttppage = "$ false $"
Sortie
Endire
PosthTTppageFrom = byTestObstr (http.Responsebody, "gb2312") sethttp = rien
IFerr.Number <> 0THEN
Err.Clear
Endire
Finition de fin
FunctionByTestobstr (corps, 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 = rien
Finition de fin