Пример адреса:
http://www.18eden.com/rss.asp
Сайт: http://www.18eden.com/jiankang
Программа помещается в корневой каталог
Или измените адрес других каталогов и вас, чтобы прочитать последние 20 ресурсов. (Его можно изменить, чтобы прочитать параметр get)
Автоматически определяйте адрес веб -сайта и порт без ручного вмешательства.
Кода -копия выглядит следующим образом:
<%OptionExplicit%>
<!-#includefile = "Manage/include/config.do"->
<%
DimSSQL, RS, SCRLF, SXMLCLEAR, SRSSHEAD, SRSSEND, URL
scrlf = chr (13) и chr (10) 'Enter+Win
Ifrequest.servervariables ("https") = "on" then
Url = "https: //"
Еще
Url = "http: //"
Эндиф
Url = url & request.servervariables ("server_name") & ":" & request.servervariables ("server_port")
sxmlclear = "<? xmlversion = '1.0'ncoding =' 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/1 '> "
srsshead = "<rssversion = '2.0'>" & scrlf
srsshead = srsshead & "<nelanse>" & scrlf
srsshead = srsshead & "<title>" & def_mysitetitle & "</title>" & scrlf
srsshead = srsshead & "<socription>" & def_systitle & "</description>" & scrlf
srsshead = srsshead & "<link>" & url & "</link>" & scrlf
srsshead = srsshead & "<language> zh-cn </language>" & scrlf
srsshead = srsshead & "<cocs> newscenter </docs>" & scrlf
'srsshead = srsshead & "<DC: Creator> Yezhan, [email protected] </dc: creator>" & scrlf
srsshead = srsshead & "<generator> rssgenerator </generator> <epents>" & scrlf
srssend = "</itse> </cannel> </rss>"
'Response.charset = "gb2312"' 'Набор данных
Response.contenttype = "text/xml"
Response.contenttype = "Приложение/XML"
Response.expires = 0
Response.writesxmlclear
Response.writesrsshead
Димконн
SetConn = server.createObject ("adodb.connection")
Conn.openconstr
DimSQL