Avatar billede cibar Nybegynder
27. maj 2009 - 09:41 Der er 2 kommentarer og
1 løsning

Dato-problem i rss script

Uden selv at være den store programmør, prøver jeg at identificere problem, der viser sig som den forkerte dato. (Måske er kategorien ikke den rigtige, i så fald hører jeg gerne om det)

Efter at rss feeds har været en tur igennem dette script, så kommer datoen altid ud som '30. dec'. Se eksempel på www.sejlsport.dk under 'Internationale nyheder fra ISAF'

Nogen bud på, hvad der er galt? Eller forslag til, hvad vi ellers kan gøre for at vise rss feeds på hjemmesiden?

---------------------------------------
<script language="vbscript" type="text/vbscript" runat="server">

   
    '
    ' Simple Rss Feed Reader 1.2
    '
    ' This source snippet provides easy access to any Rss Feed by wrapping the
    ' response Xml into class instances with properties.
    '
    ' See http://web.resource.org/rss/1.0/spec for Rss Specification
    '
    ' The script *requires* the use of IIS5+ installations where the
    ' "Microsoft.XMLDOM" COM object is available.
    '
    ' <author name="Peter Theill" />
    ' <date release="2004-04-21T22:57:00Z" />
    '
   
   
    '
    ' Retrieves RSS feed from specified URL
    '
    Function GetRss(url)
       
        ' create new CRss object and load specified url
        Dim rss: Set rss = new CRss
        rss.Url = url
           
        Set GetRss = rss
       
    End Function
   
   
    Class CRss
        Private url_
        Private channel_
       
        Private Sub Class_Initialize()
            Set channel_ = Nothing
        End Sub
       
        public Property Get Url
            Url = url_
        End Property
       
        Public Property Let Url(v)
            url_ = v
           
            Dim domXml: Set domXml = Server.CreateObject("Microsoft.XMLDOM")
            domXml.Async = False
            domXml.SetProperty "ServerHTTPRequest", True
            domXml.ResolveExternals = True
            domXml.ValidateOnParse = True
            domXml.Load(url_)
           
            If (domXml.parseError.errorCode = 0) Then
                Dim rootNode: Set rootNode = domXml.documentElement
                If (NOT IsObject(rootNode)) Then
                    Err.Raise vbObjectError + 3, "Xml Data", "No Root element found", "", 0
                    Exit Property
                End If
               
                Dim channelNode: Set channelNode = rootNode.selectSingleNode("channel")
                If (NOT IsObject(channelNode)) Then
                    Err.Raise vbObjectError + 4, "Xml Data", "No 'channel' element found", "", 0
                    Exit Property
                End If
               
                ' read channel info
                Set channel_ = New CRssChannel
                channel_.Title = channelNode.selectSingleNode("title").Text
                channel_.Description = channelNode.selectSingleNode("description").Text
                channel_.Link = channelNode.selectSingleNode("link").Text
               
                ' read items within channel
                Dim objLinks: Set objLinks = rootNode.getElementsByTagName("item")
                If (IsObject(objLinks)) Then
                    Dim objChild
                    For Each objChild in objLinks
                        Dim ri: Set ri = New CRssItem
                        ri.Title = objChild.selectSingleNode("title").Text
                        ri.Description = objChild.selectSingleNode("description").Text
                        ri.Link = objChild.selectSingleNode("link").Text
                       

                        If InStr(objChild.selectSingleNode("pubDate").Text, ",") > 0 Then
                           
                            a = Split(objChild.selectSingleNode("pubDate").Text, ",")
                            If Right(a(1), 3) = "GMT" Or Right(a(1), 3) = "UTC" Then
                                d = Trim(Left(a(1), Len(a(1)) - 3))
                                oldLCID = session.LCID
                                session.LCID = 1033
                                ri.Date = CDate(d)
                                session.LCID = oldLCID
                            End If
                        End If
                       
                        channel_.AddItem(ri)
                    Next
                End If
               
                ' release used resources
                Set rootNode = Nothing
                Set channelNode = Nothing
                Set objLinks = Nothing
            Else
                Err.Raise vbObjectError + 2, "Xml Data", _
                    "Unable to parse Xml: " & _
                    domXml.parseError.reason, _
                    "", _
                    0
            End If
           
            Set domXml = Nothing
        End Property
       
        Public Property Get Channel
            Set Channel = channel_
        End Property
       
    End Class ' // > Class Rss
   
   
    Class CRssChannel
        Private items_
       
        Public Title
        Public Description
        Public Link
        Public Image
       
        Private Sub Class_Initialize()
            Set items_ = Server.CreateObject("Scripting.Dictionary")
        End Sub
       
        Private Sub Class_Terminate()
            Set items_ = Nothing
        End Sub
       
        Public Sub AddItem(v)
            items_.Add items_.Count, v
        End Sub
       
        Public Property Get Items
            Items = items_.Items
        End Property
       
        Public Property Let Items(v)
            Set items_ = v
        End Property
   
    End Class ' // > Class CRssChannel
   
   
    Class CRssItem
        Public Title
        Public Description
        Public Link
        Public Date
   
    End Class ' // > Class CRssItem
   
</script>
Avatar billede cibar Nybegynder
16. juni 2009 - 12:05 #1
Er der nogen, der kan svare mig på, om jeg har smidt dette spørgsmål i den forkerte kategori?
Avatar billede cibar Nybegynder
20. august 2009 - 16:47 #2
Er dette spørgsmål placereret i den rigtige kategori?
Avatar billede cibar Nybegynder
20. august 2009 - 17:01 #3
Lukker her og flytter spørgsmålet til en anden kategori i håbet om bedre held der.

http://www.eksperten.dk/spm/884227
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat