[Classic ASP] 미투데이 인증 처리

<%@Language=VBScript CODEPAGE=949 %>
<%
Session.CodePage = 949
Response.Charset = "euc-kr"

url = "http://me2day.net/api/get_auth_url.xml"
params = "akey=[API키]"    '// [API키] 부여받은 키 입력
set xmlhttp = CreateObject("MsXml2.ServerXMLHTTP")
xmlhttp.open "GET", url &"?"& params, false
xmlhttp.send
'Response.write xmlhttp.responseText : Response.End

'// TODO: 정규식으로 파싱하는 경우
'url = preg_get(".+", xmlhttp.responseText)
'url = Replace(url, "", "")
'url = Replace(url, "", "")

'// TODO: XMLDOM으로 파싱하는 경우
Set dom = Server.CreateObject("Microsoft.XMLDOM")
dom.async = false
dom.loadXML(xmlhttp.responseText)
Set xml = dom.documentElement
Set auth_token = xml.selectSingleNode("//auth_token")
url = auth_token.selectSingleNode("url").Text

Response.Write url

set dom = nothing
set xmlhttp = nothing


'******************************************************
'* Function preg_get(Patrn, TestStr) As String
'* TestStr 중 정규식에서 패턴에 맞는 문자열 추출하여 반환
'******************************************************
Function preg_get(Patrn, TestStr)
    On Error Resume Next

    Dim regx, matchs, match1, subMatches

    If Patrn = "" Or TestStr = "" Then
        preg_get = ""
        Exit Function
    End if

    Set regx = New RegExp
    regx.Pattern = Patrn
    Set matches = regx.Execute(TestStr)
    If matches.Count < 1 Then
        preg_get = ""
        Exit Function
    End If
    Set matche = matches(0)
    preg_get = matche.value
End Function
%>