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

• 목록
• 게시판 리스트 옵션
  • 검색

페이스북 등 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 %>



참고자료
https://www.happyjung.com/lecture/2369
https://www.happyjung.com/lecture/430