[ClasicASP] 소셜 미디어(SNS)로 웹페이지 링크보내기 > 온라인강의

본문 바로가기
 
 
 
오늘 2,076
어제 2,343
최대 2,454
전체 3,199,332
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

온라인강좌 홈 > 온라인강좌 > 온라인강좌

SNS | [ClasicASP] 소셜 미디어(SNS)로 웹페이지 링크보내기

페이지 정보

작성일2012-04-17 21:59 조회4,357회 댓글0건

본문

<%
' =========================================================
' 패턴으로 치환할수 있는 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)
' 참조: http://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("\\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>
<% '소셜 미디어로 코멘트보내기 %>


참고자료
http://dualist.tistory.com/115
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


목록

Total 16건 1 페이지
온라인강의 목록
번호 제목
16
SNS [Kakao] 옐로아이디 홍보하기 (write.2017-02-03)  Hit.244
15
14
13
12
11
10
9
열람중
7
6
5
4
SNS [Facebook] Facepile (write.2011-10-25)인기글관련링크  Hit.4615
3
SNS [Facebook] 좋아요! (write.2011-10-22)인기글  Hit.3899
2
1
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호:119-05-36414 (08394) 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
전화: 070-7600-3500 팩스:02-865-3528 개인정보관리:정창용 mail@happyjung.com 에스크로확인
개인정보취급방침
COPYRIGHT 2001~2017 해피정닷컴. All rights reserved. 부가통신사업신고:서울체신청-1217 통신판매신고:2014-서울구로-0074
 
모바일 버전으로 보기