¼ÈÈ» RSS ÊÇÒ»ÖÖ XML ¸ñʽµÄÎĵµ£¬ÄÇôÎÒÃǾÍÓ¦µ±¿ÉÒÔ¶Ôºǫ́Êý¾Ý¿âÖеÄÊý¾Ý°´ÕÕÌõ¼þ½øÐÐɸѡ¡¢×éÖ¯£¬È»ºóͨ¹ý ASP Éú³É XML ¸ñʽµÄÊý¾ÝÁ÷£¬×îºó·¢Ë͵½¿Í»§¶Ë½øÐÐä¯ÀÀ¡£

Êý¾ÝµÄѡȡ¡¢»ã¼¯ÊÇ Asp µÄÄÃÊÖºÃÏ·£¬¹Ø¼üÔÚÓÚÔõôÉú³É XML ¸ñʽµÄÊý¾ÝÁ÷¡£Æäʵ Asp Ò²ÒѾ­ÓÐ×Ô¼ºµÄ½â¾ö°ì·¨£¬¾ÍÊÇÔÚдÊý¾Ýǰ¶Ô response ¶ÔÏóµÄ ContentType ÊôÐÔ½øÐж¨Òå¡£Èç¹û response.ContentType µÄȡֵΪ "text/xml"£¬¾Í»áÏòä¯ÀÀÕß·¢ËÍ XML ¸ñʽµÄÊý¾ÝÁ÷¡£

ÔÚ IE ä¯ÀÀÆ÷Öе÷Óà RSS Ô´µÄ·½·¨ºÍÆÕͨµÄÁ´½ÓûÓÐÊ²Ã´Çø±ð£¬¸ñʽÊÇ£º
<a type="application/rss+xml" href="RssFeed.asp">RSS˵Ã÷</a>
ÆäÖÐ type="application/rss+xml" ¼Ó²»¼ÓºÃÏóûÓÐÊ²Ã´Çø±ð¡£

ÒÔϳÌÐò¶ÎÊÇ´´½¨Ä³ÍøÕ¾À¸Ä¿µÄ RSS feed µÄÔ´´úÂ룬ÎļþÃûΪ RssFeed_news.asp¡£
ÆäÖУ¬±äÁ¿ sXmlClear ÓÃÓÚÉùÃ÷²úÉúµÄÎĵµÊÇÒ»¶Î XML ¸ñʽµÄÎĵµ£¬¸ÃÉùÃ÷ÊÇ¿ÉÑ¡µÄ£¬ÒÔ±£³ÖÓë¾É°æ±¾ XML µÄÏòºó¼æÈÝÐÔ¡£
sRssHead ¶¨Òå Rss µÄ»ù±¾ÔªËØ¡£RSS feed ͨ³£ÓÉ 4 ¸öÖ÷ÒªÔªËØ¹¹³É£º<channel>£¬<image>£¬<item> ºÍ <textinput>¡£ÆäÖУ¬<channel> ÔªËØÊDZØÐèµÄ£¬<item> ÔªËØÖÁÉÙÒª³öÏÖÒ»´Î¡£<textinput> ºÍ <image> ÔªËØÊÇ¿ÉÑ¡µÄ£¬ÊÇ·ñʹÓÃÒªÊÓ¾ßÌåÇé¿ö¶ø¶¨¡£
<channel> ÔªËØ°üº¬ Channel(RSS feed µÄÀ´Ô´)µÄÒ»¸ö¼òµ¥ÃèÊö¡£<title> ÊÇÆµµÀµÄÃû³Æ/±êÌ⣻<link> ÊÇÓëÆµµÀÄÚÈݶÔÓ¦µÄ°üº¬ÁËÍêÕûÄÚÈݵÄÄǸöÍøÒ³µÄ URL£»<description> ÊÇÓë <channel> µÄÄÚÈÝÓйصļòµ¥ÃèÊö£»<language> ´ú±íÓïÑÔ¡£»¹ÓÐһЩ±ðµÄÊôÐÔ£¬²»ÊÇÌ«³£Óá£
<item> ÔªËØÓÃÓÚ¶ÔÊý¾Ý¿âÖеļǼ½øÐÐÃèÊö¡£<item> Ò»°ãÓÐÈô¸ÉÏ¶ÔÓ¦ÁËÒ»¸ö Rss feed µÄÊý¾Ý¼¯ºÏ¡£

<!-Filename£ºRssFeed_news.asp:-->
<% Option explicit %>
<!-- #include file="./conn.inc" -->

<%
Dim sSQL, rs, sCrLf, sXmlClear, sRssHead, sRssEnd
sCrLf = chr(13) & chr(10) '»Ø³µ+»»ÐÐ

sXmlClear = "<?xml version='1.0' encoding='gb2312'?>" & sCrLf

sRssHead = "<rss version='2.0'>" & sCrLf
sRssHead = sRssHead & "<channel>" & sCrLf
sRssHead = sRssHead & "<title>RSS´´½¨Ê¾Àý</title>" & sCrLf
sRssHead = sRssHead & "<description> RSS´´½¨Ê¾Àý</description>" & sCrLf
sRssHead = sRssHead & "<link>http://1234.com/</link>" & sCrLf
sRssHead = sRssHead & "<language>zh-cn</language>" & sCrLf
sRssHead = sRssHead & "<docs>RSS´´½¨Ê¾Àýr</docs>" & sCrLf
sRssHead = sRssHead & "<generator>Rss Generator By 1234.com</generator>" & sCrLf

sRssEnd = "</channel></rss>"

Response.CharSet="gb2312" 'Êý¾Ý¼¯
Response.ContentType="text/xml" 'Êý¾ÝÁ÷¸ñʽ¶¨Òå

'Êä³ö£º
Response.write sXmlClear
Response.write sRssHead

sSQL="select top 15 * from news order by sortid desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSQL, s_Conn, 1, 1
if not (rs.eof and rs.bof) then
do while not rs.eof
response.write "<item>" & sCrLf
response.write "<title> " & rs("f_topic") & " </title>" & sCrLf
response.write "<link> " & "http://www.1234.com/_news/show_a_new.asp?autoid=" &

rs("f_i_autoid") & " </link>" & sCrLf
response.write "<author> " & rs("f_author") & " </author>" & sCrLf
response.write "<pubDate> " & rs("f_datetime") & " </pubDate>" & sCrLf
response.write "</item>" & sCrLf & sCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing

Response.write sRssEnd
%>

IE Öеĵ÷ÓøñʽÊÇ£º<a href="http://www.1234.com/_news/RssFeed_news.asp">¼¼ÊõÐÂÎÅ

RSS</a>¡£Èç¹ûÓÃһЩ¿Í»§¶ËÈí¼þ¶©Ôĸà RSS£¬¶©ÔÄµÄ Url ¾ÍÊÇ

http://www.1234.com/_news/RssFeed_news.asp¡£