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

본문 바로가기
 
 
 
오늘 880
어제 1,706
최대 2,526
전체 3,395,399

최근 방문자

1011
1853
1775
1756
1706
880
18 19 20 21 22 23
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

select * from g5_menu where me_use = '1' and me_link like '%lecture%'
온라인강좌 홈 > 온라인강좌 > 온라인강좌

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

페이지 정보

작성일2012-04-17 21:59 조회4,573회 댓글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 2,005건 1 페이지
온라인강의 목록
번호 제목
2005
2004
2003
2002
2001
2000
1999
1998
1997
1996
1995
1994
1993
1992
1991
1990
1989
1988
1987
1986
1985
1984
1983
1982
1981
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호: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
 
모바일 버전으로 보기