当前位置：编程学习 > asp >>

读取符合RSS2.0规范的XML文档

答案：
想试着做一个简单的读取RSS新闻的页面
虽然将.net中关于XML的几个类看了个遍
但还是不太懂
这是我写的一个读取XML文档的函数
直接在设计页面中调用就行
Public Function LoadRSS(ByVal RssUrl As String, ByVal showNewsCount As Integer) As String
        Try
            '读取xml文档
            Dim objXMLDoc As New System.Xml.XmlDocument()
            Dim strNodes As String = ""
            Dim objItems As System.Xml.XmlNodeList
            Dim objItems1 As System.Xml.XmlNodeList
            Dim objNode As System.Xml.XmlNode
            Dim objNode1 As System.Xml.XmlNode
            Dim i As Integer
            Dim newsTitle As String
            Dim newsUrl As String
            Dim newsDescription As String
            Dim newsPubDate As String
            Dim newsAuthor As String
            Dim newsCategory As String
            objXMLDoc.Load(RssUrl)
            objItems = objXMLDoc.GetElementsByTagName("item")
            If RssUrl = "" Then
                RSSNews = "未找到信息源，您可刷新重试或联系管理员！"
                Exit Function
            End If
            If CStr(showNewsCount) = "" Or showNewsCount > 30 Then
                showNewsCount = 10        '默认新闻显示数目
            End If
            If showNewsCount = 0 Then
                showNewsCount = objItems.Count
            End If
            If objXMLDoc.HasChildNodes = True Then
                i = 1
                For Each objNode In objItems
                    If objNode.HasChildNodes = True Then
                        objItems1 = objNode.ChildNodes
                        For Each objNode1 In objItems1
                            Select Case objNode1.Name
                                Case "title"
                                    newsTitle = objNode1.InnerText
                                Case "link"
                                    newsUrl = objNode1.InnerText
                                Case "description"
                                    newsDescription = objNode1.InnerText
                                    If Len(newsDescription) > 500 Then
                                        newsDescription = Left(newsDescription, 200)
                                    End If
                                    newsDescription = FilterHtml(newsDescription)
                               Case "category"
                                    newsCategory = objNode1.InnerText
                                Case "author"
                                    newsAuthor = objNode1.InnerText
                                Case "pubDate"
                                
上一个：用ASP及VML实现股票走势图
下一个：xml上传文件
更多图片编程知识:

  
更多asp疑问解答：
asp正则过滤重复字符串的代码
用asp过滤全部html但保留br类似的符号
会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
PHP的空间可以用ASP的源代码吗？
以前做asp程序，现在应该怎样发展？是学.net还是php
以前做asp程序，现在应该怎样发展？是学.net还是php
想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
jsp，asp，php 区别
我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
现在候找人做个网站，用ASP，还是PHP语言去做好
asp,php ,jsp,.net 对于做网站前台的重要吗？
asp和php的区别是什么？
我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？







  





CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络，