XMLHTTP component Contract in ASP
Write a thief function, pay attention to the Red Code section, the other add it yourself!
Function Posthttppagefrom (Httpurl,stra,fromurl)
Dim Http
Set http=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 "Referer", Fromurl
Http.send Stra
If Http.readystate<>4 Then
Set http=nothing
Gethttppage= "$False $"
Exit function
End If
Posthttppagefrom=bytestobstr (Http.responsebody, "gb2312") Set http=nothing
If Err.number<>0 Then
Err.Clear
End If
End Function
Function Bytestobstr (Body,cset)
Dim objstream
Set objstream = Server.CreateObject ("ADODB.stream")
Objstream. Type = 1
Objstream. Mode =3
Objstream. Open1 d)
Objstream. Write body
Objstream. Position = 0
Objstream. Type = 2
Objstream. Charset = Cset
Bytestobstr = objstream. ReadText
Objstream. Close
Set objstream = Nothing
End Function