Tencent IP 주소를 얻기 위한 ASP 코드

ASP는 ASP를 사용하여 Tencent의 IP 주소를 얻기 위한 코드와 여기에서 읽은 데이터를 저장합니다. 질문:

다음과 같이 코드 코드를 복사합니다.

<script type=text/javascript src=http://fw.qq.com/ipaddress></script>

<스크립트 유형=텍스트/자바스크립트>

var hehe1=IPData[2]

var hehe2=IPData[3]

경고(헤헤1);

경고(헤헤2);

document.write(IPData.join(' '));

</script>

ASP를 사용하여 위에서 읽은 데이터를 저장하는 방법.

답변:

다음과 같이 코드 코드를 복사합니다.

<%

함수 GetResStr(URL,코드)

오류가 발생했습니다.지우기

DimHttp,ReturnStr

Http=server.createobject(Microsoft.XMLHTTP)로 설정합니다.

Http.open GET, URL, 거짓

Http.보내기()

Http.Readystate =4인 경우 그러면

Http.status=200이면

ReturnStr=BytesToBstr(http.responseBody,코드)

GetResStr=ReturnStr

종료 조건

종료 조건

기능 종료

'함수 이름:BytesToBstr

'기능: 바이너리 데이터를 문자로 변환

'파라미터: Body-binary 데이터, Cset-text 인코딩 방식

함수 BytesToBstr(Body,Cset)

희미한 객체스트림

Objstream = Server.CreateObject(adodb.stream) 설정

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write 본문

objstream.위치 = 0

objstream.Type = 2

objstream.Charset =Cset

BytesToBstr = objstream.ReadText

objstream.Close

objstream = 아무것도 설정하지 않음

기능 종료

희미한 vUrl,TempStr

vUrl=http://fw.qq.com/ipaddress

TempStr=GetResStr(vUrl,gb2312)

response.write 귀하의 IP는 (asp가 실제 IP를 얻습니다):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)

%>