PJFORUM新人
不要钱网-noRMB.cn
查看详细资料
TOP
PJFORUM老会员
查看个人网站
vingo
vingod.cn
zk1987313
[PJFORUM社区长老]
猪胖
原帖由 pt529 于 2008-5-24 08:29 发表 给个演示看看先!!!
<html xmlns="http://www.w3.org/1999/xhtml" lang="GB2312"> <head> <meta http-equiv="Content-Type" content="text/html; charset=GB2312" /> <meta http-equiv="Content-Language" content="GB2312" /> <title>MAK免费资源网 -WWW.MAKMAN.CN</title> <style type="text/css"> <!-- a:link { text-decoration: none; } a:visited { text-decoration: none; } a:hover { text-decoration: underline; } a:active { text-decoration: none; } a { font-size: 13px; } --> </style> <% URL="http://feed.makman.cn" //此处你的RSS源 Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", url, False xml.Send Set xmlDom = server.createObject("microsoft.xmldom") xmlDom.async=False xmlDom.ValidateOnParse=false xmlDom.load(xml.responseXML) if xmlDom.ReadyState>2 Then set oItem=xmlDom.getElementsByTagName("item") %> <table width="450" border="0" cellpadding="3" cellspacing="1" bgcolor="#ECEFF4"> <% for i=0 to oItem.length-1 word=oItem(i).childNodes(0).text title=oItem(i).childNodes.item(0).text Link=oItem(i).childNodes.item(1).text pubDate=oItem(i).childNodes.item(3).text %> <tr> <td width="450" height="24" bgcolor="#FFFFFF">·<a href="<%=link%>" target="_blank"><font style="font-size:14px;" color="#003366"><%=word%> </font><font color="#999999">(<%=pubdate%>)</font></a></td> </tr> <% next end if %> </table>