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

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

기술자료

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

페이지 정보

댓글 0건 조회 1,550회 작성일 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,300건 1 페이지
기술자료 목록
번호 제목
공지 일반   16605  2001-08-31 11:52 ~ 2017-12-05 16:33  
2299 PHP   9  2018-12-12 03:04  
2298 MySQL   10  2018-12-11 14:36 ~ 2018-12-11 14:52  
2297 그누보드   16  2018-12-09 12:19  
2296 테크노트   53  2018-12-05 19:37 ~ 2018-12-06 15:43  
2295 킴스큐   49  2018-12-04 13:47  
2294 PHP   51  2018-12-03 17:34 ~ 2018-12-03 19:03  
2293 영카트   176  2018-11-28 10:37 ~ 2018-11-30 02:33  
2292 그누보드   104  2018-11-22 12:13  
2291 MySQL   144  2018-11-22 05:24 ~ 2018-11-22 05:27  
2290 HTML   134  2018-11-16 12:11 ~ 2018-11-16 12:17  
2289 Linux   138  2018-11-13 00:15 ~ 2018-11-15 05:37  
2288 그누보드   233  2018-11-09 06:32 ~ 2018-11-17 13:46  
2287 그누보드   246  2018-11-01 18:50 ~ 2018-11-01 19:01  
2286 영카트   217  2018-10-31 05:44 ~ 2018-10-31 05:47  
2285 그누보드   190  2018-10-30 15:47  
2284 그누보드   246  2018-10-22 09:58  
2283 HTML   301  2018-10-14 01:19 ~ 2018-10-14 02:09  
2282 킴스큐   293  2018-10-04 23:04  
2281 MySQL   320  2018-10-03 02:29  
게시물 검색

회원로그인

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

접속자집계

오늘
742
어제
3,268
최대
3,306
전체
4,456,076

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