Exemple d'adresse:
http://www.18eden.com/rs.asp
Site: http://www.18eden.com/jiankang
Le programme est placé dans le répertoire racine
Ou modifiez l'adresse d'autres répertoires et vous-même pour lire les 20 dernières ressources. (Il peut être modifié pour lire le paramètre Get)
Déterminez automatiquement l'adresse du site Web et le port sans intervention manuelle.
La copie de code est la suivante:
<% OptionExplicite%>
<! - # includeFile = "manage / include / config.do" ->
<%
Dimssql, rs, scrlf, sxmlclear, srsshead, srssend, url
scrlf = chr (13) & chr (10) 'Entrée + win
Ifrequest.servervariables ("https") = "sur" puis
Url = "https: //"
Autre
Url = "http: //"
Endire
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/'xmln: S: sy = 'http: //purl.org/rss/1.0/modules/syndication/'xmlns: admin =' http: //webns.net/mvcb/'xmlns='http: //purl.org/rss/1.0/ '> "
srsshead = "<ssversion = '2.0'>" & scrlf
SRSSHEAD = SRSSHEAD & "<CANNAL>" & SCRLF
srsshead = srsshead & "<ititle>" & def_mySiTitle & "</title>" & scrlf
srsshead = srsshead & "<escription>" & def_systitle & "</cription>" & scrlf
SRSSHEAD = SRSSHEAD & "<NONNEM
SRSSHEAD = SRSSHEAD & "<BONDINANCE> ZH-CN </ LANGUED>" & SCRLF
SRSSHEAD = SRSSHEAD & "<DOCS> NEWSCENTER </ DOCS>" & SCRLF
'srsshead = srsshead & "<dc: créateur> yezhan, okhtm @ msn.com </ dc: créateur>" & scrlf
SRSSHEAD = SRSSHEAD & "<Denerator> RSSGenerator </nerator> <émiers>" & SCRLF
srssend = "</ips> </ canal> </rss>"
'Response.Charset = "GB2312"'
Response.ContentType = "Text / XML" 'Définition du format de flux de données
Response.ContentType = "Application / XML"
Response.expires = 0
Réponse.writesxmlclear
Response.Writesrsshead
Tabac
SetConn = server.createObject ("adodb.connection")
Conn.OpenConstr
Dimsql