My Name is Kay....

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



kay
조회 수 2701 추천 수 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>
?