Classic ASP로 네이버 단축주소 개발하기..

언어가 오래되서리...

갈아타지도 못하고...

편하게 Java 쓰고 싶뜨아....

기존에 bitly 쓰다가, 이 쉐리들이 API를 v3에서 v4로 업그레이드 하면서

기존 서비스를 완전히 먹통이 되게 함... (뭐 요딴놈들이 다 있나 싶다.. 무료 사용자라 무시하냐!)

v4로 업그레이드 하려는데.. 잘 안됨...(뭐든 시작이 이렇구만..)

만사가 귀찮아진 나는.. 또 머리를 굴렸다!!!

네이버 단축 주소 쓰자.... (따...딱히 자본력에 굴복한게 아니라는!!!)

어차피 xml http 통신만 구현하면 되고

기존에 xml 기반이던 것을 json 통신 기반으로 변경하면 됨.

소스 요약...

1. Function fnNaverShorten(longURL)
2.     Response.ContentType = "application/json"
3.     reqAPIUrl = "https://openapi.naver.com/v1/util/shorturl?url=" & longURL
4.     set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")  
5.     xmlhttp.open "POST", reqAPIUrl, false
6.     xmlhttp.setRequestHeader "content-type","application/x-www-form-urlencoded; charset=UTF-8"
7.     xmlhttp.setRequestHeader "X-Naver-Client-Id", naverShortenClientID
8.     xmlhttp.setRequestHeader "X-Naver-Client-Secret", naverShortenClientSecret
9.     xmlhttp.send
10.     if Request.QueryString("dbug") = "T" then Response.Write(reqAPIUrl)
11.     fnNaverShorten = xmlhttp.responseText
12.     set xmlhttp = nothing
13. End Function

해설...

0. 일단.. 네이버개발자 센터에서 사전 준비 사항을 챙긴다!! (이것저것 생성 및 ID / 비번)

1. 난 그냥.. 컨텐츠 유형은 당연히 "application/json"

2. 뭐 너무 평범한 Classic ASP용 xml 통신 소스라.. 설명이 필요한지...

3. 발급한 ClientID와 ClientSecret를 잘 넣기만 해라..

4. 받는 Page에서 json 파싱은 알아서 해라.

5. 설명 귀찮다.. 끗...

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

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