私はWebデザイナーであり、ここで使用しているこの古典的なASP RSSパーサーコードを修正する方法を模索しているという事実をこの質問の前に置きます。したがって、提供できる可能性のある基本的な洞察は次のようになります。感謝。
私はこのコードで障害に遭遇しました。RSSフィードを解析しますが、通常はFeedburnerのSmartFeed互換性設定を使用するフィードのみです。私がそれをする必要があるのは、プレーンなジェーンのワードプレスフィードを解析できるようにすることです。ここでの私の目標は、フィードの解析に関してこのコードがそれほど厄介にならないように、互換性を追加することです。
ストレートWPフィードを挿入すると、フィードが無効なエラーが発生し、エラーコード-2146697211が返されます。これは、コードを検索すると、フィードが見つからないことを示しているようです。Server.CreateObject（ "MSXML2.DomDocument.3.0"）をServer.CreateObject（ "MSXML2.DomDocument.4.0" ）に変更しようとしましたが、サーバーが4.0を処理していないようです。これはアップグレードできるものかもしれませんが、この問題のためにこの辺りで開発時間を取得することはほとんどありません。そのため、可能であれば、現在のIISセットアップを使用して機能させるようにしています。
これを機能させるために行うことができる微調整について誰かが何かアイデアを持っていますか？ありがとう。
<%
SUB DisplayRSSFeed(URLToRSS, MaxNumberOfItems)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
IF fs.FileExists(Server.MapPath(TemplatePath & "rss_template.asp")) THEN
Set f=fs.OpenTextFile(Server.MapPath(TemplatePath & "rss_template.asp"), 1)
itemTemplate = f.ReadAll
f.Close
Set f=Nothing
ELSE
' =========== configuration =====================
' Item template.
' {LINK} will be replaced with item link
' {TITLE} will be replaced with item title
' {DESCRIPTION} will be replaced with item description
'ItemTemplate = "<tr><td><a target='_blank' href=" & """{LINK}""" & ">{TITLE}</a><BR>{DESCRIPTION}</td></tr>"
ItemTemplate = ""
ItemTemplate = ItemTemplate & "<div class=""sp_blogPost"">"
ItemTemplate = ItemTemplate & " <h2><a href=""{LINK}"" target=""_blank"">{TITLE}</a></h2>"
ItemTemplate = ItemTemplate & " <h5>Posted on {DATE}</h5>"
ItemTemplate = ItemTemplate & " <p>"
ItemTemplate = ItemTemplate & " {DESCRIPTION}"
ItemTemplate = ItemTemplate & " </p>"
ItemTemplate = ItemTemplate & " <a href=""{LINK}"" target=""_blank"">Continue Reading Article</a>"
ItemTemplate = ItemTemplate & "</div>"
ItemTemplate = ItemTemplate & "<div class=""sp_blogDivider""></div>"
' ================================================
END IF
On Error Resume Next
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "Get", URLToRSS, false
IF Err.number <> 0 then
Response.Write "The URL is not valid"
Exit Sub
END IF
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)
IF Err.number <> 0 then
Response.Write "The RSS Data is not valid"
Response.Write Err.number
Exit Sub
END IF
Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
j = -1
FOR EACH RSSItem IN RSSItems
FOR EACH child IN RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "enclosure"
RSSimage = child.getAttribute("url")
'' case "link"
'' RSSlink = child.text
case "guid"
RSSlink = child.text
case "description"
RSSdescription = child.text
Set re = New RegExp
re.Pattern = "<[^>]+>"
re.IgnoreCase = true
re.Global = true
RSSdescription = re.Replace(RSSdescription, "")
set re = nothing
if len(RSSdescription) > 300 then RSSdescription = mid(RSSdescription, 1, 300) & "..."
case "pubdate"
RSSdate = child.text
RSSdate = split(RSSDate, "T")(0)
arrDate = split(RSSDate, "-")
if ubound(arrDate) = 2 then
RSSdate = arrDate(1) & "." & arrDate(2) & "." & arrDate(0)
else
RSSdate = Replace(RSSdate, "-", ".")
end if
END SELECT
NEXT
j = J+1
IF J < CInt(MaxNumberOfItems) THEN
Itemcontent = ItemTemplate
Itemcontent = Replace(Itemcontent,"{DATE}", RSSdate)
Itemcontent = Replace(Itemcontent,"{IMAGE}", RSSimage)
ItemContent = Replace(ItemContent,"{LINK}",RSSlink)
ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
ItemContent = Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
Response.Write ItemContent
ItemContent = ""
END IF
NEXT
'Response.Write "</table>"
On Error GoTo 0
END SUB
%>