<% '**************************************************************** '* 설명 : 트위터 공유하기 '**************************************************************** Dim strPageUrl, strTitle strTitle = Tag2Text(GetRequest("t")) strPageUrl = GetRequest("u") Dim strRtnUrl, strShortUrl strShortUrl = getShortUrl("bitly", strPageUrl) If Len(strPageUrl) < 1 Or Len(strTitle) < 1 Then actionAlarm "잘못된 정보입니다.","stop","" Else Response.Redirect "http://twitter.com/home/?status="& Server.URLEncode("[헬로우트래블] "& Replace(strTitle,"&","&")) &" "& strShortUrl End If %>