페이스북 등 SNS 글 퍼가기 소스 > 기술자료

본문 바로가기
사이트 내 전체검색

기술자료

ClassicASP 페이스북 등 SNS 글 퍼가기 소스

페이지 정보

댓글 0건 조회 878회 작성일 18-02-23 14:08

본문

페이스북 등 SNS 글 퍼가기 소스

1.  dbconn_facebook.asp  생성
<%  ' SNS 퍼가기용 전용 디비접속 커넥션
Dim Conect_facebook
Set Conect_facebook = Server.CreateObject("ADODB.Connection")
Conect_facebook.Open ("Provider=SQLOLEDB;Data Source=디비서버;Initial Catalog=디비계정;user ID=디비아이디;password=디비비밀번호;")
%>



2. 공통 상단파일 생성
<!--#include virtual="dbconn_facebook.asp"-->
<%
' HTML 태그를 삭제하는 함수
Function RemoveHTML(strText)
    Dim TAGLIST
    TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
    "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
    "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
    "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_
    "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
    "MENU;META;NOBR;NOFRAMES;NOscRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
    "PRE;Q;S;SAMP;scRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_
    "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;"     
    Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOscRIPT;OBJECT;scRIPT;STYLE;"
   
    Dim nPos1
    Dim nPos2
    Dim nPos3
    Dim strResult
    Dim strTagName
    Dim bRemove
    Dim bSearchForBlock
 
    nPos1 = InStr(strText, "<")
    Do While nPos1 > 0
        nPos2 = InStr(nPos1 + 1, strText, ">")
        If nPos2 > 0 Then
            strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
        strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
        nPos3 = InStr(strTagName, " ")
        If nPos3 > 0 Then
            strTagName = Left(strTagName, nPos3 - 1)
        End If
        
        If Left(strTagName, 1) = "/" Then
            strTagName = Mid(strTagName, 2)
            bSearchForBlock = False
        Else
            bSearchForBlock = True
        End If
        
        If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
            bRemove = True
            If bSearchForBlock Then
                If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
                    nPos2 = Len(strText)
                    nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
                    If nPos3 > 0 Then
                        nPos3 = InStr(nPos3 + 1, strText, ">")
                    End If
                    
                    If nPos3 > 0 Then
                        nPos2 = nPos3
                    End If
                End If
            End If
        Else
            bRemove = False
        End If
        
        If bRemove Then
            strResult = strResult & Left(strText, nPos1 - 1)
            strText = Mid(strText, nPos2 + 1)
        Else
            strResult = strResult & Left(strText, nPos1)
            strText = Mid(strText, nPos1 + 1)
        End If
        Else
            strResult = strResult & strText
            strText = ""
        End If
        
        nPos1 = InStr(strText, "<")
    Loop
    strResult = strResult & strText
    
    RemoveHTML = strResult
End Function

'테이블명 
Dim NewGetTable
NewGetTable="게시판테이블"

dim hp_facebook, Sql_facebook, Rs_facebook, title_facebook, content_facebook
hp_facebook="y"
Sql_facebook = "select * from "& NewGetTable &" where BD_SEQ = "& request("seq")
Set Rs_facebook = Conect_facebook.Execute(Sql_facebook)

title_facebook   = RemoveHTML(Rs_facebook("BD_SUBJECT"))
content_facebook = RemoveHTML(Rs_facebook("BD_CONTENT"))
%>



3. head 속성값
<% if hp_facebook="y" then %>
    <title>캐드앤그래픽스 - <%=title_facebook%></title>
    
    <meta name="Subject" content="홈페이지제목 - <%=title_facebook%>">
    <meta name="Title" content="홈페이지제목 - <%=title_facebook%>">
    <meta property="og:title" content="홈페이지제목 - <%=title_facebook%>">
    <meta property="og:site_name" content="홈페이지제목 - <%=title_facebook%>">
    
    <meta name="Descript-xion" content="<%=content_facebook%>">
    <meta name="Description" content="<%=content_facebook%>">
    <meta property="og:description" content="<%=content_facebook%>">
<% else %>
    <title>캐드앤그래픽스</title>
    
    <meta name="Subject" content="홈페이지제목"> <!--  홈페이지주제  -->
    <meta name="Title" content="홈페이지제목"> <!--  홈페이지이름  -->
    <meta property="og:site_name" content="홈페이지제목"> <!--  웹사이트 제목. 예) 해피정닷컴  -->
    <meta property="og:title" content="홈페이지제목"> <!--  웹페이지 제목. 예) 해피정닷컴  -->
    
    <meta name="Descript-xion" content=""> <!--  웹사이트 설명. 긴 문장 형태로 적습니다.  -->
    <meta name="Description" content=""> <!--  웹사이트 설명 (80자 이내)  -->
    <meta property="og:description" content=""> <!--  웹사이트 설명 (80자 이내)  -->
<% end if %>



참고자료
http://www.happyjung.com/lecture/2369
http://www.happyjung.com/lecture/430
  • 트위터로 보내기
  • 페이스북으로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


Total 2,244건 1 페이지
기술자료 목록
번호 제목
공지 일반
온라인 강좌를 소개합니다. ( update. 2017-12-05 16:33 ) Hit.16060
2243 HTML
2242 일반
2241 그누보드
2240 Linux
2239 제로보드
[XpressEngine] files 폴더의 비밀 ( update. 2018-07-13 21:51 ) Hit.20
2238 MySQL
2237 JavaScript
[jQuery] Magnific Popup ( write. 2018-07-12 ) Hit.41
2236 일반
전자책 읽기에 최적화된 무료 EPUB 뷰어 ( update. 2018-07-11 17:27 ) Hit.48
2235 HTML
2234 HTML
2233 그누보드
ZeroBoard 4를 그누보드 5 로 변경 ( update. 2018-07-02 21:40 ) Hit.80
2232 Search
Bing (빙) 웹마스터도구 사이트 등록하기 ( update. 2018-07-01 02:41 ) Hit.108
2231 일반
IU 노래 181곡을 Youtube에서 연속듣기 ( update. 2018-07-04 23:09 ) Hit.118
2230 그누보드
2229 그누보드
XE -> 그누보드5 변경 v7 ( update. 2018-06-12 13:13 ) Hit.237
2228 제로보드
2227 호스팅
무료 호스팅을 제공하는 업체 ( update. 2018-06-12 03:53 ) Hit.182
2226 제로보드
[XpressEngine] 버전 확인하기 ( write. 2018-06-11 ) Hit.149
2225 제로보드
2224 호스팅
let's encrypt 지원하는 호스팅 ( write. 2018-06-07 ) Hit.162
2223 그누보드
2222 영카트
네이버 페이를 영카트에 적용하기 ( update. 2018-06-05 21:36 ) Hit.187
2221 XML
2220 일반
게시물 검색

회원로그인

계좌이체 or 신용카드 결제하기
해피정닷컴으로 대금결제를 할 수 있습니다

접속자집계

오늘
37
어제
2,846
최대
3,174
전체
4,125,078

회사명: 해피정닷컴   사업자번호: 119-05-36414   전화: 070-7600-3500   팩스: 02-865-3528   주소: 08394 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
대표: 정창용   개인정보보호책임자: 정창용   통신판매업신고번호: 2014-서울구로-0074 [사업자등록정보확인]   건강기능식품영업신고번호 제2018-0080452호
Copyright 2001~2018 해피정닷컴. All Rights Reserved.