Beispieladresse:
http://www.18eden.com/rs.asp
Site: http://www.18eden.com/jiankang
Das Programm ist im Stammverzeichnis platziert
Oder ändern Sie die Adresse anderer Verzeichnisse und Sie selbst, um die neuesten 20 Ressourcen vorzulesen. (Es kann geändert werden, um den GET -Parameter zu lesen)
Bestimmen Sie automatisch die Adresse und den Port der Website ohne manuelle Eingriff.
Die Codekopie lautet wie folgt:
<%OptionExplicit%>
<!-#includeFile = "verwalten/include/config.do"->
<%
Dimssql, RS, SCRLF, SXMLClear, SrsShead, Srssend, URL
SCRLF = CHR (13) & CHR (10) 'ENTER+WIN
IFREQUEST.SERVERVARIABLES ("https") = "on" dann
Url = "https: //"
Anders
Url = "http: //"
Endif
Url = url & request.servervariables ("server_name") & ":" & request.servervariables ("server_port")
sxmlclear = "<? xmlversion = '1.0'encoding =' gb2312 '?>" & sclf
'srsShead = "<rdf: rdfxmlns: rdf =' http: //www.w3.org/1999/02/22-rdf-syntax-ns#'xmlns: dc = 'http: //purl.g/dc/elements/1.1/1.1/'xmln S: sy = 'http: //purl.org/rss/1.0/modules/syndication/'xmlns: admin =' http: //webns.net/mvcb/'xmlns='Http: //purl.org/rss
srsshead = "<rsssversion = '2.0'>" & sclf
srsShead = srsShead & "<Anhans>" & scrlf
srsShead = srsShead & "<titels>" & def_mySitetitle & "</title>" & sclf
srsShead = srsShead & "<Bestraße>" & def_system & "</Beschreibung>" & scrlf
srsShead = srsShead & "<Link>" & url & "</link>" & sclf
srsShead = srsShead & "<PRAGION> ZH-CN </LACHE>" & SCRLF
srsShead = srsShead & "<Docs> NewsCenter </docs>" & sclf
'srsShead = srsShead & "<DC: Creator> Yezhan, [email protected] </dc: creator>" & sclf
srsShead = srsShead & "<generator> rssgenerator </generator> <elemente>" & scrlf
srssend = "</items> </kanal> </rss>"
'Response.charset = "gb2312"' Dataset
Antwort.ContentType = "text/xml" 'Datenflussformat Definition
Antwort.ContentType = "Application/XML"
Response.expires = 0
Response.writesXmlClear
Response.writesrsShead
Dimconn
SetConn = server.createObject ("adodb.Connection")
Conn.openconnstr
Dimsql