제목 : 축약 URL, 단축 URL 생성 ASP function




소스 :


Function getShortUrlBitly(ByVal longUrl, ByRef resultCode, ByRef resultTxt)

Dim Rs

Dim sql


Dim objRoot


Dim requestUrl : requestUrl = "http://api.bit.ly/v3/shorten"

Dim username, apiKey

Dim params


Dim result : result = longUrl


resultCode = "900"

resultTxt = ""


username = "" : apiKey = ""        '//값을 넣어야함.



If username <> "" And apiKey <> "" Then

Set objRoot = xmlDoc(xmlHttpSend("GET", _

Null, _

requestUrl, _

"login="& username &"&apiKey="& apiKey &"&longUrl="& Server.URLEncode(longUrl) &"&format=xml" _

))


If Not objRoot Is Nothing Then

With objRoot

resultCode = .selectSingleNode("status_code").Text

resultTxt = .selectSingleNode("status_txt").Text


If resultCode = "200" Then

result = .selectSingleNode("data").selectSingleNode("url").Text

Else

resultCode = statusCode

resultTxt = statusTxt

End If

End With

End If


Set objRoot = Nothing

End If


getShortUrlBitly = result

End Function




내용 :





예제 소스 파일 :


 출처 :  




Posted by 잠수콩