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

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

기술자료

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

페이지 정보

댓글 0건 조회 1,080회 작성일 2018-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,275건 1 페이지
기술자료 목록
번호 제목
공지 일반   16263  2001-08-31 11:52 ~ 2017-12-05 16:33  
2274 그누보드   35  2018-09-15 08:08  
2273 PHP   58  2018-09-14 05:59  
2272 전자결제   41  2018-09-14 04:57 ~ 2018-09-14 04:58  
2271 전자결제   65  2018-09-12 14:17 ~ 2018-09-13 14:38  
2270 일반   149  2018-08-31 18:10 ~ 2018-09-14 20:50  
2269 HTML   129  2018-08-30 15:47  
2268 그누보드   159  2018-08-30 10:41 ~ 2018-08-30 10:48  
2267 PHP   131  2018-08-29 03:21 ~ 2018-08-29 17:13  
2266 JavaScript   175  2018-08-28 18:49  
2265 HTML   175  2018-08-27 14:33  
2264 HTML   237  2018-08-26 14:07  
2263 일반   154  2018-08-22 13:17  
2262 PHP   157  2018-08-20 15:51  
2261 HTML   164  2018-08-18 05:37  
2260 일반   169  2018-08-17 15:18 ~ 2018-08-17 15:19  
2259 HTML   256  2018-08-17 06:39  
2258 HTML   230  2018-08-15 05:06 ~ 2018-08-15 05:58  
2257 HTML   114  2018-08-13 18:50  
2256 HTML   184  2018-08-09 10:12 ~ 2018-08-09 13:26  
게시물 검색

회원로그인

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

접속자집계

오늘
2,596
어제
2,633
최대
3,174
전체
4,263,056

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