asp中xmlhttp组件发包

　　asp中xmlhttp组件发包

　　写的一个小偷函数，注意红色代码部分，其他的自己添加吧！

　　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