# ASP код для читання подач RSS... з пов'язаними XSLT...

<datetime class="hidden">2004-05-11T00:00</datetime>

<!-- category -- mostlylucidcouk, Imported, ASP.NET, XML -->
Хоча, я б написав це... теоретично, це візьме подачу RSS (або будь-який інший XML) з зовнішнього джерела і трансформує її за допомогою вказаного скрипту XSLT (спробуйте цей для базового трансформатора RSS... [rsTransform.xslt](/uploads/rssTransform.xslt))
Використання досить просте... наприклад:

Represult. WEGetXML} http: // weblogs. asp. net/ mainfold. aspx"." / xslt/ rssTransform. xslt ", 120)

буде оброблено головну подачу блогів ASP.NET... за допомогою 120 секунд кешу

```

Function getXML(sourceFile,xsltFile,cacheTime) 
'On Error Resume Next
if((DateDiff("s",Application.Value(sourceFile + "_Expr"),Now())>cacheTime) Or len(Application.Value(sourceFile))=0) then
dim styleFile 
dim source, style 
styleFile = Server.MapPath(xsltFile)

Dim xmlhttp
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
xmlhttp.Open "GET", sourceFile, false
xmlhttp.Send

set source = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
source.async = false 
source.loadxml(xmlhttp.ResponseText) 
set style = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
style.async = false 
style.load(styleFile) 
outputHtml = source.transformNode(style) 
if(err.number = 0) then
Application.Lock
Application(sourceFile) = outputHtml
Application.Value(sourceFile + "_Expr") = now()
Application.UnLock
getXML = outputHtml
else
getXML = Application.Value(sourceFile)
end if

set source = nothing 
set style = nothing 
else
getXML = Application.Value(sourceFile)
end if
On Error Goto 0
End Function 
```