반응형
<%
Option Explicit
Dim inet
Dim url, str, worldPop
Dim iStart, iEnd
url="http://www.census.gov/cgi-bin/ipc/popclockw"
'① inet 컨트롤의 인스턴스를 생성한다.
set inet = CreateObject("InetCtls.Inet")
'② Internet Transfer Control을 통해서 지정된 URL의 소스를 가져온다
inet.RequestTimeOut = 20
inet.Url = url
str =inet.OpenURL
'③ <H1>..</H1>사이의 값을 뽑아내기
iStart =instr(str, "<H1>") '<H1>태그가 시작하는 위치의 값 iEnd = instr(str, "</H1>") '</H1>태그가 시작하는 위치의 값
worldPop = Mid(str,iStart,iEnd-iStart)
%>
<HTML>
<HEAD>
<BODY>
<center>현재 세계 총 인구 (<%=Now%>) : <p><%=worldPop %> 명</P>
</BODY>
</HTML>
Option Explicit
Dim inet
Dim url, str, worldPop
Dim iStart, iEnd
url="http://www.census.gov/cgi-bin/ipc/popclockw"
'① inet 컨트롤의 인스턴스를 생성한다.
set inet = CreateObject("InetCtls.Inet")
'② Internet Transfer Control을 통해서 지정된 URL의 소스를 가져온다
inet.RequestTimeOut = 20
inet.Url = url
str =inet.OpenURL
'③ <H1>..</H1>사이의 값을 뽑아내기
iStart =instr(str, "<H1>") '<H1>태그가 시작하는 위치의 값 iEnd = instr(str, "</H1>") '</H1>태그가 시작하는 위치의 값
worldPop = Mid(str,iStart,iEnd-iStart)
%>
<HTML>
<HEAD>
<BODY>
<center>현재 세계 총 인구 (<%=Now%>) : <p><%=worldPop %> 명</P>
</BODY>
</HTML>
반응형