SNS [ClassicASP] 소셜 미디어(SNS)로 웹페이지 링크보내기
페이지 정보
본문
<%
' =========================================================
' 패턴으로 치환할수 있는 eregi_replace()함수
' PHP에는 있으나 ASP에는 없기 때문
' =========================================================
Function eregi_replace(pattern, replace, text)
Dim eregObj
Set eregObj = New RegExp
eregObj.Pattern = pattern '패턴 설정
eregObj.IgnoreCase = True '대소문자 구분 여부
eregObj.Global = True '전체 문서에서 검색
eregi_replace = eregObj.Replace(text, replace) 'Replace String
End Function
' =========================================================
' 모든 태그제거
' 사용법 : strip_tags1(content)
' 참조: https://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=1172
' 참조: https://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=1172
' =========================================================
Function strip_tags1(str)
Dim content
content = str
content = eregi_replace("<(/)?([a-zA-Z]*)(\\s[a-zA-Z]*=[^>]*)?(\\s)*(/)?>", "", content) ' all
content = eregi_replace("<(no)?script[^>]*>.*?</(no)?script>", "", content) ' script
content = eregi_replace("<style[^>]*>.*</style>", "", content) ' style
content = eregi_replace("<(\""[^\""]*\""|\'[^\']*\'|[^\'\"">])*>", "", content) ' tags
content = eregi_replace("<\\w+\\s+[^<]*\\s*>", "", content) ' nTAGS
' content = eregi_replace("&[^;]+;", "", content) ' entity_refs
content = eregi_replace("[^;]+;","",content) ' entity_refs
content = eregi_replace("[^;]+;","",content) ' entity_refs
content = eregi_replace("\\s\\s+", "", content) ' whitespace
strip_tags1 = content
End Function
' PHP : 테러보이 TERRORBOY ( 2010-08-14 )
' ASP : 해피정닷컴 정창용 ( 2012-04-17 )
'/////////////////////////////////////////////////////////////////////////////////////////////
'// 공통사용
'/////////////////////////////////////////////////////////////////////////////////////////////
Dim sns_title, sns_content, sns_url
Dim sns_twitter_url, sns_face_url, sns_face_subject, sns_me2_subject, sns_me2_url_text, sns_me2_url, sns_me2_tag, sns_yozm_url, sns_yozm_subject
sns_title = "홈페이지이름"
sns_content = strip_tags1("<table><tr><td>소셜 미디어로 코멘트보내기</td></tr></table>")
sns_content = "["& sns_title &"] " & sns_content
'sns_content = iconv('euc-kr', 'utf-8',sns_content) ' euc-kr 일때 --> utf-8 설정후 전송
'/////////////////////////////////////////////////////////////////////////////////////////////
' 현재 페이지 주소 추출
sns_url = "http://"& request.ServerVariables("http_host") & request.servervariables("http_url")
'/////////////////////////////////////////////////////////////////////////////////////////////
'// 트위터
'/////////////////////////////////////////////////////////////////////////////////////////////
sns_twitter_url = sns_content &" "& sns_url ' URL붙이기 // 일부 시스템에서만 사용
sns_twitter_url = Server.urlencode(sns_twitter_url) '인코딩
'/////////////////////////////////////////////////////////////////////////////////////////////
'// 페이스북
'/////////////////////////////////////////////////////////////////////////////////////////////
sns_face_url = Server.urlencode(sns_url)
sns_face_subject = Server.urlencode(sns_content)
'/////////////////////////////////////////////////////////////////////////////////////////////
'// 미투데이
'/////////////////////////////////////////////////////////////////////////////////////////////
sns_me2_url = Server.urlencode(sns_url)
sns_me2_subject = Server.urlencode(sns_content)
'sns_me2_url_text = iconv('euc-kr', 'utf-8', sns_me2_subject) ' euc-kr 일때 --> utf-8 변경후 전송
sns_me2_url_text = Server.urlencode(sns_title) ' 인코딩
'sns_me2_tag = iconv('euc-kr', 'utf-8',sns_title) ' euc-kr 일때 --> utf-8 변경후 전송
sns_me2_tag = Server.urlencode(sns_me2_tag) ' 인코딩
'/////////////////////////////////////////////////////////////////////////////////////////////
'// 요즘
'/////////////////////////////////////////////////////////////////////////////////////////////
sns_yozm_url = Server.urlencode(sns_url)
sns_yozm_subject = Server.urlencode(sns_content)
'/////////////////////////////////////////////////////////////////////////////////////////////
%>
<a href="http://twitter.com/home/?status=<% Response.write sns_twitter_url %>" target="_blank"><img src="../img/sns/twitter_c.png" border="0" alt="이 코멘트를 내 twitter로 보내기" title="이 코멘트를 내 twitter로 보내기" /></a>
<a href="http://www.facebook.com/sharer.php?u=<% Response.write sns_face_url %>&t=<% Response.write sns_face_subject %>" target="_blank"><img src="../img/sns/facebook_c.png" border="0" alt="이 코멘트를 내 facebook으로 보내기" title="이 코멘트를 내 facebook으로 보내기" /></a>
<a href='http://me2day.net/posts/new?new_post[body]=<% Response.write sns_me2_subject %>+++++++["<% Response.write sns_me2_url_text %>":<% Response.write sns_me2_url %>+]&new_post[tags]=<% Response.write sns_me2_tag %>' target="_blank"><img src="../img/sns/Me2Day_c.png" border="0" alt="이 코멘트를 내 Me2Day로 보내기" title="이 코멘트를 내 Me2Day로 보내기" /></a>
<a href="http://yozm.daum.net/api/popup/prePost?sourceid=41&link=<% Response.write sns_yozm_url %>&prefix=<% Response.write sns_yozm_subject %>" target="_blank"><img src="../img/sns/yozm_c.png" alt="이 코멘트를 내 요즘으로 보내기" title="이 코멘트를 내 요즘으로 보내기" border="0" /></a>
댓글목록
등록된 댓글이 없습니다.