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