atom2rss.asp

2024-05-04 10:58:47

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%
' atom2rss.asp
' Author: Francesco Passantino
' Email: francesco@iteam5.net
' Blog: www.iteam5.net/blog
' Start date: 17 Sep 2004

Sub atom2rss(URL)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse = true
objXML.preserveWhiteSpace = false

If Not objXML.Load(URL) Then

Response.write "ERROR code: " & _
objXML.parseError.errorCode & _
" Linea/Col: " & _
objXML.parseError.line & "/" & _
objXML.parseError.linepos & ""

Else

rsstitle="iteam5.net/blog"
rssdescription="Blog sulle novit?del settore Information & Communication Technologies"
rsslink="http://www.iteam5.net/blog"
rsslanguage="it"

xml= "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""0.91""><channel><title>"&server.htmlencode(rsstitle)&"</title><description>"&server.htmlencode(rssdescription)&"</description><link>"&server.htmlencode(rsslink)&"</link><language>"&server.htmlencode(rsslanguage)&"</language>"

Set objNodeList = objXML.getElementsByTagName("entry")
For Each objNode In objNodeList
 For Each objNode2 In objNode.childNodes

 Select Case objNode2.nodeName
 Case "issued"
 strdate= left(objNode2.firstChild.nodevalue,10)
 Case "link"
 strURL = objNode2.GetAttribute("href")
 Case "title"
 strTitle = objNode2.firstChild.nodevalue

 'instead of Case "content"
 Case "summary"

 strDescription = objNode2.firstChild.data
 For Each objNode3 In objNode2.childNodes
 Select Case objNode3.nodeName
 Case "div"
 StrDescription = objNode3.text
 For Each objNode4 In objNode3.childNodes
 Select Case objNode4.nodeName
 Case "a"
 linkable=objNode4.firstChild.text
 htmlink=" <a href='"& _
 objNode4.GetAttribute("href")&"'>"& _
 linkable&"</a>"
 StrDescription = replace(StrDescription,linkable,htmlink)
 end select
 next
 end select
 next
 End Select
Next

上一篇：數據庫記錄的刪除，delete好還是update好？

下一篇：解決ASP（圖像）上傳漏洞的方法

發表評論

共有條評論