ASP로 단축주소 생성하자.

전 회사에서까진 Java 개발했는데..

점점 ASP의 입지 및 자료들이 줄게 되어... 개발 기록차 남김..

ASP가 그래도 간단하고 편하긴 하다..

google의 단축주소 api를 사용하려고 했으나, 서비스를 중단할 예정에 FireBase로 이전한다고 함..

FireBase는 함 둘러봤는데 뭐가 뭔지 모르겠음..ㅎㅎ

그냥 간단한.. Bitly 로 잽싸게 결정! 코드는 아래와 같다.

1. <%
2. Function fnBitlyUrl(longURL)
3.     token = "bitly에서 발급받은 토큰값"
4.     url = "https://api-ssl.bitly.com/v3/shorten?access_token="&token&"&longUrl=" & longURL & "&format=txt"
5.    
6.     set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
7.     xmlhttp.open "GET", url, false
8.     xmlhttp.send ""    
9.     fnBitlyUrl = xmlhttp.responseText
10.     set xmlhttp = nothing
11. END FUNCTION
12. longURL = "http://www.lifebook.com" '변환하고 싶은 주소'
13. response.write fnBitlyUrl(longURL)
14. %>

적당히 입맛에 맞게 쓰길..