<%
Dim URLToXML(46)
Dim MainRoot
MainRoot = "http://XXX.XXX.XXX.XXX"
URLToXML(1) = MainRoot & ":2001/hanbiro.html" ''01//hanmedi
URLToXML(2) = MainRoot & ":2002/hanbiro.html" ''02//root
URLToXML(3) = "" ''//allntop
URLToXML(4) = MainRoot & ":2004/hanbiro.html" ''04//ivenp
URLToXML(5) = MainRoot & ":2005/hanbiro.html" ''05//ocucons
URLToXML(6) = MainRoot & ":2006/hanbiro.html" ''06//lginsure
URLToXML(7) = "" ''//kicom
URLToXML(8) = MainRoot & ":2008/hanbiro.html" ''08//update
URLToXML(9) = "" ''//kicom
URLToXML(10) = MainRoot & ":2010/hanbiro.html" ''10//update
URLToXML(11) = MainRoot & ":2011/hanbiro.html" ''11//mc
URLToXML(12) = "" ''//hs
URLToXML(13) = "" ''//hinet
URLToXML(14) = MainRoot & ":2014/hanbiro.html" ''14//xpedite
URLToXML(15) = MainRoot & ":2015/hanbiro.html" ''15//knou
URLToXML(16) = MainRoot & ":2016/hanbiro.html" ''16//sign
URLToXML(17) = MainRoot & ":2017/hanbiro.html" ''17//hygood
URLToXML(18) = MainRoot & ":2018/hanbiro.html" ''18//multi
URLToXML(19) = "" ''//websupport
URLToXML(20) = MainRoot & ":2020/hanbiro.html" ''20//partner
URLToXML(21) = MainRoot & ":2021/hanbiro.html" ''21//mobis
URLToXML(22) = MainRoot & ":2022/hanbiro.html" ''22//hycu
URLToXML(23) = MainRoot & ":2023/hanbiro.html" ''23//nser
URLToXML(24) = "" ''//ait
URLToXML(25) = MainRoot & ":2025/hanbiro.html" ''25//ocu
URLToXML(26) = "" ''//just_XXX
URLToXML(27) = "" ''//kova
URLToXML(28) = MainRoot & ":2028/hanbiro.html" ''28//amway
URLToXML(29) = "" ''//rsupport_admin
URLToXML(30) = "" ''//hana
URLToXML(31) = MainRoot & ":2031/hanbiro.html" ''31//nts
URLToXML(32) = MainRoot & ":2032/hanbiro.html" ''32//snc
URLToXML(33) = MainRoot & ":2033/hanbiro.html" ''33//sejongiz
URLToXML(34) = MainRoot & ":2034/hanbiro.html" ''34//ecredible
URLToXML(35) = MainRoot & ":2035/hanbiro.html" ''35//kgi
URLToXML(36) = MainRoot & ":2036/hanbiro.html" ''36//sony
URLToXML(37) = "" ''//rsupport_home
URLToXML(38) = "" ''//pure4u
URLToXML(39) = "" ''//apsunn
URLToXML(40) = MainRoot & ":2040/hanbiro.html" ''40//living
URLToXML(41) = MainRoot & ":2041/hanbiro.html" ''41//sdu
URLToXML(42) = MainRoot & ":2042/hanbiro.html" ''42//skopi
URLToXML(43) = MainRoot & ":2043/hanbiro.html" ''43//keyang
URLToXML(44) = MainRoot & ":2044/hanbiro.html" ''44//sds
URLToXML(45) = "" ''//pams21
URLToXML(46) = MainRoot & ":2046/hanbiro.html" ''46//fax
'inet 컨트롤의 인스턴스를 생성한다.
Dim inet, Loop_Cnt, str
Dim ii
set inet = CreateObject("InetCtls.Inet")
Loop_Cnt = Ubound(URLToXML)
for ii = 1 to Loop_Cnt
if URLToXML(ii) <> "" then
'Internet Transfer Control을 통해서 지정된 URL의 소스를 가져온다
inet.RequestTimeOut = 20
inet.Url = URLToXML(ii)
str = inet.OpenURL
if str = "Rsupport" then
response.write ii
else
response.write "REFERER_" & ii & "FAIL"
end if
else
response.write ii
end if
if ii < Loop_cnt then
response.write ","
end if
next
Set xmlHttp = Nothing
%>
Rss Feed