ASP 아 날로 그 POST 데이터 비동기 제출 요청 방법

원 격 사이트 의 일부 정 보 를 가 져 와 야 할 때 도 있 고 서버 는 GET 방식 을 제한 하여 POST 데이터 로 만 제출 할 수 있 습 니 다.이 럴 때 우 리 는 asp 를 통 해 post 데 이 터 를 모 의 제출 할 수 있 습 니 다.인터넷 에는 이런 예 가 많 습 니 다.다음은 제 가 쓴 비교적 간결 하고 알 기 쉬 운 함수 입 니 다.
우선,인 코딩 설정 함수 가 필요 합 니 다.asp 는 보통 gbk 이 고 표준 사 이 트 는 현재 대부분 utf-8 을 사용 합 니 다.전환 이 필요 합 니 다.

function BytesToBstr(body,Cset) 

dim objstream 

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1 

objstream.Mode =3 

objstream.Open 

objstream.Write body 

objstream.Position = 0 

objstream.Type = 2 

objstream.Charset = Cset 

BytesToBstr = objstream.ReadText 

objstream.Close 

set objstream = nothing 

End function

그 다음은 구성 요소 로 post 데이터 의 제출 을 실 현 했 습 니 다.저 는 MSXML 2.SERVERXML HTTP.3.0 을 사 용 했 습 니 다.물론 다른 것 도 사용 할 수 있다.

function PostHTTPPage(url,data) 

dim Http 

set Http=server.createobject("MSXML2.SERVERXMLHTTP.3.0")

Http.open "POST",url,false 

Http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded" 

Http.send(data) 

if Http.readystate<>4 then 

exit function 

End if

PostHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") 

set http=nothing 

if err.number<>0 then err.Clear 

End function

사용 할 때 이 렇 습 니 다:

PostHTTPPage("www.jb51.net","str1=a&str2=b&str3=c")