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

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

기술자료

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

페이지 정보

댓글 0건 조회 754회 작성일 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,214건 1 페이지
기술자료 목록
번호 제목
공지 일반
온라인 강좌를 소개합니다. ( update. 2017-12-05 16:33 ) Hit.15892
2213 영카트
영카트 4 와 영카트 5 의 변경된 함수 ( update. 2018-05-22 00:40 ) 새글글수정 Hit.7
2212 호스팅
[Daum] 스마트워크 발송자 이름 변경하기 ( update. 2018-05-17 10:41 ) Hit.34
2211 JavaScript
2210 도메인
국제도메인 삭제복구서비스 ( update. 2018-05-10 14:05 ) Hit.78
2209 MSSQL
getdate() 와 sysdatetime() ( write. 2018-05-09 ) Hit.65
2208 그누보드
[G5] 글 가장 위로 순서 변경하기 ( update. 2018-05-08 12:40 ) Hit.86
2207 호스팅
네임서버 정보 ( update. 2018-05-09 13:45 ) Hit.109
2206 영카트
2205 영카트
2204 Search
2203 그누보드
2202 그누보드
2201 영카트
2200 영카트
2199 영카트
영카트 5.3 에서 삭제된 영카트 4.x 필드 ( update. 2018-04-02 14:02 ) Hit.342
2198 그누보드
2197 영카트
2196 HTML
웹브라우저 언어설정 코드 ( write. 2018-03-28 ) Hit.368
2195 ClassicASP
2194 그누보드
2193 HTML
2192 전자결제
[LG유플러스] [ASP] utf-8 사용하기 ( update. 2018-03-16 06:06 ) Hit.492
2191 ClassicASP
한글 깨짐 변환 ( update. 2018-03-16 04:56 ) Hit.473
2190 JavaScript
새로고침(F5) 금지 ( write. 2018-03-15 ) Hit.497
게시물 검색

회원로그인

접속자집계

오늘
764
어제
2,477
최대
3,174
전체
3,992,880

회사명: 해피정닷컴   전화: 070-7600-3500   팩스: 02-865-3528
주소: 08394 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
사업자번호: 119-05-36414   대표: 정창용   개인정보보호책임자: 정창용
Copyright 2001-2018 해피정닷컴. All Rights Reserved.