Notice
Recent Posts
Recent Comments
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 | 31 |
Tags
- sql순위
- xmldom
- javascript 한글입력체크
- FileSystemObject
- injection
- 한글입력체크
- 이미지가로길이
- JavaScript
- SPLIT
- XML
- sql업데이트
- MSSQL보안
- 정규식
- 이미지세로길이
- array
- ERD
- tempDB
- VARIABLE
- VarType
- sql랭킹
- asp함수
- update
- instr
- jdbc driver
- wap
- 자바기초
- join
- inner join
- WML
- 인젝션
Archives
- Today
- Total
3초기억력
ASP - 구글 뉴스 RSS 퍼오기 (카테고리별) 본문
제목 : 구글 뉴스 RSS 퍼오기
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>Untitled Page</title>
</head>
<body>
<%
topic = request("topic")
url = "http://news.google.com/news?pz=1&jfkl=true&cf=all&ned=kr&hl=ko&topic="&topic&"&output=rss"
nodeName = "item"
objName = "rss"
call getXML(url, nodeName, objName)
%>
<span id="mw-today" class="today"></span>
<script language="javascript">
function showTitleNowTime(){
var today = new Date();
var hour = today.getHours();
var minute= today.getMinutes();
var second= today.getSeconds();
var dayNm = '<%=year(now)%>년 <%=month(now)%>월 <%=day(now)%>일 <%=weekdayname(weekday(now))%>';
if(minute<10){minute='0'+minute;}
if(second<10){second='0'+second;}
var viewDaytime = '<font color=blue>'+dayNm +' '+hour+':'+minute+':'+second+'</font>';
document.getElementById("mw-today").innerHTML=viewDaytime;
setTimeout('showTitleNowTime()',1000);
}
showTitleNowTime();
</script>
<table width="100%" border="0">
<tr>
<td><a href="?topic=">주요뉴스</a> | <a href="?topic=p">정치</a> | <a href="?topic=b">경제</a> | <a href="?topic=y">사회</a> | <a href="?topic=l">문화/생활</a> | <a href="?topic=w">국제</a> | <a href="?topic=t">정보과학</a> | <a href="?topic=e">연예</a> | <a href="?topic=s">스포츠</a> | <a href="?topic=po">인기뉴스</a></td>
</tr>
<%
i = 1
for each SubNodes in rss
title = SubNodes.getElementsByTagName("title")(0).Text
link = SubNodes.getElementsByTagName("link")(0).Text
'pubDate = SubNodes.getElementsByTagName("pubDate")(0).Text
'description = SubNodes.getElementsByTagName("description")(0).Text
%>
<tr>
<td><a href="<%=link%>" target="_blank"><%=i%>. <%=title%></a></td>
</tr>
<%
If i = 10 Then Exit For
i = i + 1
next
%>
</table>
</body>
</html>
<%
Sub getXML(URL, nodeName, varName)
Set xmlHTTP = Server.CreateObject("Microsoft.XMLHTTP")
xmlHTTP.Open "GET", URL, false
xmlHTTP.SetRequestHeader "Content-type", "text/xml"
xmlHTTP.Send
strXML = xmlHTTP.ResponseText
Set xmlHTTP = Nothing
Set xmlObj = Server.CreateObject("Microsoft.XMLDOM")
xmlObj.async = False
xmlObj.loadXML(strXML)
Set objRoot = xmlObj.documentElement
Set xmlObj = Nothing
Execute "Set " & varName & " = objRoot.selectNodes(""//" & nodeName & """)"
Set objRoot = Nothing
End Sub
%>
내용 : news.google.co.kr 의 한국 뉴스를 rss에서 퍼오기
출처 : 자체제작
'플밍_ASP' 카테고리의 다른 글
ASP 정규식 사용하여 html 태그중 "<title>페이지 타이틀영역</title>" 을 추출한다. (0) | 2013.01.02 |
---|---|
ASP - CAPICOM 활용한 암호화/ 복호화 ASP 코딩 (0) | 2011.08.29 |
ASP - URL 파일 서버경로에 저장하기 ( binary, xmlDOM ) (0) | 2011.04.27 |
ASP - LoadPicture 없이도 이미지 파일 확장자, 가로세로 길이 구하기 (1) | 2011.04.27 |
ASP - 정규식 사용하여 html 본문의 A 태그 삭제하기 (0) | 2011.04.27 |
Comments