& lt%
퍼지 Url, 내용, awbno
Url = "URL"
Awbno = 요청. 표 ("awbno")
Awbno= ""또는 IsNull(awbno) 인 경우
컨텐트 = getdata (URL, 1)
기타
컨텐트 = postdata (URL & "return.asp", "awbno =" & ampawbno, 1)
만약 ... 끝날거야
Content = Replace(Content, "images/", Url& "이미지/")
Content = Replace(Content, "return.asp", "")
응답하다. 내용을 쓰다
함수 GetData(GetUrl, GetMode)
Dim Http
Http = 서버를 설정합니다. CreateObject("msxml2. XMLHTTP) 를 참조하십시오
Http 사용
。 GET, GetUrl, False 를 엽니다
。 SetRequestHeader "Referer ",GetUrl
。 보내다
GetMode = 0 이면
GetData =. 응답 주체
기타
GetData = BytesToBstr (. 응답 주체, "GB23 12")
만약 ... 끝날거야
로 끝맺다
Http = 없음 설정
기능을 종료합니다
함수 PostData(PostUrl, PostStr, PostMode)
Dim Http
Http = 서버를 설정합니다. CreateObject("msxml2. XMLHTTP) 를 참조하십시오
Http 사용
。 게시물, PostUrl, False 를 엽니다
。 Setrequestheader "컨텐트 길이", len (포스트스크립트)
。 Setrequestheader "컨텐트 유형", "애플리케이션/x-www-form-urlencoded"
。 SetRequestHeader "Referer ",PostUrl
。 PostStr 보내기
PostMode=0 이면
PostData =. 응답 주체
기타
PostData = BytesToBstr (. 응답 주체, "GB23 12")
만약 ... 끝날거야
로 끝맺다
Http = 없음 설정
기능을 종료합니다
함수 BytesToBstr(Body, Cset)
어두컴컴한 ADOS
ADOS = 서버를 설정합니다. CreateObject("Adodb. 흐름) 을 참조하십시오
ADOS 와 함께
。 유형 =1
。 모드 =3
。 열다
。 주체를 쓰다
。 위치 = 0
。 유형 = 2
。 문자 집합 = Cset
BytesToBstr =. 텍스트를 읽습니다
。 닫기
로 끝맺다
ADOS = 없음 설정
기능을 종료합니다
%>