3초기억력

축약 URL, 단축 URL 생성 ASP function 본문

플밍_ASP

축약 URL, 단축 URL 생성 ASP function

잠수콩 2016. 1. 20. 11:39
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.




제목 : 축약 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




내용 :





예제 소스 파일 :


 출처 :  




Comments