My Name is Kay....

DIY , 먹방 , 개발 , 육아 , 여행 좋아합니다.
AdBlock 사용시 화면이 정상적으로 노출되지 않습니다.
포스팅 관련 문의 및 개발 문의는 Email : wkzkfmxksi@gmail.com

추가 포스팅이 이뤄지지 않는 블로그입니다. 문의는 wkzkfmxksi@gmail.com 으로 연락주세요.
kay
조회 수 2965 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

TEST URL : http://www.uhoon.co.kr/test/1153.asp

참고  Url 

: http://www.bustercollings.com/source-code-samples/rss-asp-classic-source-code-example.asp 

http://www.experts-exchange.com/Web_Development/Web_Languages-Standards/RSS/Q_23680954.html



<HTML>
<HEAD>
<title>RSS</title>
	<STYLE>
		*{font-family:verdana;}
		td{vertical-align:top;padding:5px 5px 5px 5px;}
	</STYLE>
</HEAD>
<BODY>
<%
	' change the RSSURL variable to the exact URL of the RSS Feed you want to pull
	RSSURL = "http://www.uhoon.co.kr/rss"
	Response.write RSSURL
%>
<TABLE border=1>
<%

	Dim objHTTP ' this object is used to call the RSS Feed remotely
	Dim RSSURL,RSSFeed ' these variables hold the URL and Content for the RSS Feed
	Dim xmlRSSFeed ' this variable hold the XML data in a DOM Object
	Dim objItems,objItem, objChild ' these variables are used to temporarily hold data from the various RSS Items
	Dim title,description,link '  these are local variables that will hold the data to be displayed
	Dim OutputHTML_1,OutputHTML_2,OutputHTML_3 ' these variables will hold the HTML that was converted from the RSS Feed

	' this code requests the raw RSS/XML and saves the response as a string <RSSFeed>
	Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
	objHTTP.open "GET",RSSURL,false
	objHTTP.send
	RSSFeed = objHTTP.responseText

	' this code takes the raw RSSFeed and loads it into an XML Object
	Set xmlRSSFeed = Server.CreateObject("MSXML2.DomDocument.4.0")
	xmlRSSFeed.async = false
	xmlRSSFeed.LoadXml(RSSFeed)

	' this code disposes of the object we called the feed with
	Set objHTTP = Nothing

	' this is where you determine how to display the content from the RSS Feed

	' this code grabs all the "items" in the RSS Feed
	Set objItems = xmlRSSFeed.getElementsByTagName("item")

	' this code disposes of the XML object that contained the entire feed
	Set xmlRSSFeed = Nothing

	' loop over all the items in the RSS Feed
	For x = 0 to objItems.length - 1
		' this code places the content from the various RSS nodes into local variables
		Set objItem = objItems.item(x)
		For Each objChild in objItem.childNodes
			Select Case LCase(objChild.nodeName)
				Case "title"
					  title = objChild.text
				Case "link"
					  link = objChild.text
				Case "description"
					  description = objChild.text
			End Select
		Next
		' Here are some various display samples.
		Response.write"<TR><TD><a href=""" & link & """>" & title & "</a></TD></TR>"
		Response.write"<TR><TD>Content Url :" & link &" Content :  " & description & "</TD></TR>"
	Next
%>
</TABLE>
</BODY>
</HTML>
?

  1. 변수 ByRef , ByVal

    Date2015.12.07 Bykay Views680
    Read More
  2. IIS에서 ASP 날짜 형식 YYYY-MM-DD

    Date2015.08.24 Bykay Views952
    Read More
  3. ASP 에러 체크

    Date2014.11.20 Bykay Views1302
    Read More
  4. 이미지 사이즈 컴포넌트 "pakImage"

    Date2014.10.20 Bykay Views1192
    Read More
  5. 엑셀 다운로드 시 한글 파일명 깨짐 해결

    Date2014.08.07 Bykay Views2245
    Read More
  6. [펌] Request.Form , Request.QueryString 값 확인하기

    Date2014.06.12 Bykay Views1656
    Read More
  7. response.Cookie Collection , 쿠키 만료일 미지정시 만료일은?

    Date2014.02.20 Bykay Views2872
    Read More
  8. UTF-8 URLDecode 함수

    Date2014.01.28 Bykay Views2785
    Read More
  9. Excel 파일(.xlsx) 읽어서 디비에 넣기

    Date2013.12.08 Bykay Views23255
    Read More
  10. 오늘 본 상품 쿠키로 처리하기

    Date2013.09.13 Bykay Views3645
    Read More
  11. ASP 함수 " HTML 태그 제거하기"

    Date2013.07.31 Bykay Views2269
    Read More
  12. ADODB.Stream + ASP에서 파일 다운로드

    Date2013.06.18 Bykay Views3552
    Read More
  13. ASPFTP - 컴포넌트를 이용한 ASP 에서 FTP 사용하기

    Date2013.06.13 Bykay Views4906
    Read More
  14. ASP 에서 RSS 가져와서 파싱하기

    Date2013.05.22 Bykay Views2965
    Read More
  15. http를 이용한 xml 호출 및 파싱 ( MSXML2.DomDocument )

    Date2013.05.20 Bykay Views3623
    Read More
  16. 문자열 거꾸로 strReverse

    Date2013.05.13 Bykay Views2360
    Read More
  17. asp Json 데이터 받기

    Date2013.04.02 Bykay Views9230
    Read More
  18. 동적 변수 선언 및 프로그래밍 " eval , Execute "

    Date2013.03.29 Bykay Views4616
    Read More
Board Pagination Prev 1 Next
/ 1