Dirección de ejemplo:
http://www.18eden.com/rss.asp
Sitio: http://www.18eden.com/jiankang
El programa se coloca en el directorio raíz
O cambie la dirección de otros directorios y usted mismo para leer los últimos 20 recursos. (Se puede modificar para leer el parámetro Get)
Determine automáticamente la dirección y el puerto del sitio web sin intervención manual.
La copia del código es la siguiente:
<%OpcionExplicit%>
<!-#includeFile = "manage/include/config.do"->
<%
DIMSSQL, RS, SCRLF, SXMLCLEAR, SRSSHEAD, SRSSEND, URL
scrlf = chr (13) y chr (10) 'Enter+Win
Ifrequest.servervariables ("https") = "on" entonces
Url = "https: //"
Demás
Url = "http: //"
Endif
Url = url & request.ServerVariables ("server_name") & ":" & request.serverVariables ("server_port")
sxmlclear = "<? xmlversion = '1.0'Encoding =' GB2312 '?>" & SCRLF
'' srsshead = "<rdf: rdfxmlns: rdf = 'http: //www.w3.org/1999/02/22-rdf-syntax-ns#'Xmlns: dc =' http: //purl.org/dc/elements/1.1/'xmlnn S: sy = 'http: //purl.org/rss/1.0/modules/syndication/'xmlns: admin =' http: //webns.net/mvcb/'xmlns='http: //purl.org/rss/1.0/'> "
srsshead = "<rssversion = '2.0'>" & scrlf
srsshead = srsshead & "<nelen>" & scrlf
srsshead = srsshead & "<title>" & def_mysitetitle & "</title>" & scrlf
srsshead = srsshead & "<Scuidtion>" & def_systitle & "</dolding>" & scrlf
srsshead = srsshead & "<ink>" & url & "</ink>" & scrlf
srsshead = srsshead & "<ring idioma> zh-cn </languagi>" & scrlf
srsshead = srsshead & "<ococs> NewsCenter </ococs>" & scrlf
'srsshead = srsshead & "<dc: creador> yezhan, [email protected] </dc: creator>" & scrlf
srsshead = srsshead & "<Renerator> RSSGenerator </senerator> <emems>" & scrlf
srssend = "</elementos> </canal> </rss>"
'Response.charset = "GB2312"' DataSet
Response.ContentType = "Text/XML" 'Definición de formato de flujo de datos
Response.ContentType = "Application/XML"
Respuesta.expires = 0
Respuesta.WritesXMLCLEAR
Respuesta.Writesrsshead
Dimconn
Setconn = server.createObject ("ADODB.Connection")
Conn.openconnstr
Dimsql