asp解析rss
发布时间：2022-01-08 22:44:19 所属栏目：Asp教程 来源：互联网
导读：% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO
|
<% @language="VBScript"%> <% Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET",xmlseed,False http.send Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM") xmlDoc.Async=False xmlDoc.ValidateOnParse=False xmlDoc.Load(http.ResponseXML) Set item=xmlDoc.getElementsByTagName("item") if item.Length<=10 then %> <script language="javascript"> alert("对不起,该新闻条数已经少于10条新闻条数!"); </script> <% else For i=0 To (item.Length-1) Set title=item.Item(i).getElementsByTagName("title") Set link=item.Item(i).getElementsByTagName("link") Response.Write("<a href="""& link.Item(0).Text &""" target='_blank'>"& title.Item(0).Text &"</a><br>") Next end if End Function %> <html> <head> <title>远程读取XML文件</title> </head> <body> <% call readrss("http://www.CuoXin.com/article/feed.asp") %> <br><br> </body> </html> （编辑：ASP站长） 【免责声明】本站内容转载自互联网，其相关言论仅代表作者个人观点绝非权威，不代表本站立场。如您发现内容存在版权问题，请提交相关链接至邮箱：bqsm@foxmail.com，我们将及时予以处理。 |
相关内容
未处理完善
-
无相关信息
最新更新