Endereço de exemplo:
http://www.18eden.com/rss.asp
Site: http://www.18eden.com/jiankang
O programa é colocado no diretório raiz
Ou altere o endereço de outros diretórios e você para ler os 20 mais recentes recursos. (Pode ser modificado para ler o parâmetro Get)
Determine automaticamente o endereço e a porta do site sem intervenção manual.
A cópia do código é a seguinte:
<%OptionExplicit%>
<!-#incluirfile = "gerenciar/incluir/config.do"->
<%
Dimssql, rs, scrlf, sxmlclear, srsshead, srssend, url
scrlf = chr (13) e chr (10) 'digite+win
IfRequest.Servervariables ("https") = "on" então
Url = "https: //"
Outro
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/lements/10: dc =' http: //purl.org/dc/lements/10: dc = 'http: //purl.org/dc/lements/10: dc =' http: //purl.org/dc/lements/10: dc = 'http: //purl.org/dc/lements/ S: SY = 'http: //purl.org/rss/1.0/modules/syndication/'xmlns: admin =' http: //webns.net/mvcb/'xmlns='http: //purl.org/rss/1.1.0s='http: //purl.org/rs/1.1.0.
srsshead = "<rssversion = '2.0'>" & scrlf
srsshead = srsshead & "<nank>" & scrlf
srsshead = srsshead & "<title>" & def_mysitetitle & "</title>" & scrlf
srsshead = srsshead & "<cription>" & def_systitle & "</cription>" & scrlf
srsshead = srsshead & "<ink>" & url & "</link>" & scrlf
srsshead = srsshead & "<dium> zh-cn </dioma>" & scrlf
srsshead = srsshead & "<docs> newscenter </docs>" & scrlf
'srsshead = srsshead & "<dc: criador> yezhan, [email protected] </dc: criador>" & scrlf
srsshead = srsshead & "<Gerator> rssgenerator </nerator> <mets>" & scrlf
srSsend = "</itens> </canal> </rss>"
'Response.Charset = "GB2312"' DataSet
Response.ContentType = "Text/XML" 'Definição de Formato de Fluxo de Dados
Response.ContentType = "Application/XML"
Response.Expires = 0
Response.WritesXMLClear
Response.WritesrShead
Dimconn
SetConn = server.createObject ("adodb.connection")
Conn.OPENCONNSTR
Dimsql