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
