2008.04.02 14:54

referrer 값 받아오기

<%
    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

%>

Trackback 0 Comment 0