我理解RSS文件为一种标记语言，我们普通用户能用到的功能就是将一下文章列表写入RSS中，然后其它用户使用RSS订阅器订阅本站文件，来阅读，只要RSS中文件有更新过的文章，RSS阅读器就能取到。我的理解不知道是否有错。可能还有更深刻的意思我没理解而已。

    我写了两个文件，一个为：写xml文件的

write2file.asp

<%
' wite2file.asp
' 写入文件
Sub Write2File(strFile, strContent, blnAppend)
' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
        On Error Resume Next
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        If blnAppend Then
                Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
        Else
                Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
        End If
        objWriteText.WriteLine (strContent)
        Set objWriteText = Nothing
        Set objFSO = Nothing
        ' 容错处理
        Select Case Err
                Case 424 Response.Write "路径未找到或者该目录没有写入权限."
                Case Else Response.Write Err.Description
                'Case Else Response.Write ErrMsg
        End Select
End Sub 

%>

第二个文件为读取asp文件

createRss.asp

<%Access_flag="_files_"%>
<!--#include file='conn.asp'-->
<!--#include file='cklogin.asp'-->
<!--#include file="write2file.asp"-->
<%
dim myrss,enter
enter=false
'用来判断myrss是否获得有效数据
'定义rss.xml头
myrss="<?xml version=""1.0"" encoding=""gb2312"" standalone=""yes""?><rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:trackback=""http://madskills.com/public/xml/rss/module/trackback/"" xmlns:wfw=""http://wellformedweb.org/CommentAPI/""><channel><title>你的桌面</title><link>http://www.xunuo.net/</link><description>xunuo.net</description><generator>许诺</generator><language>zh-CN</language><copyright>http://www.xunuo.net/</copyright><pubDate>"&now()&"</pubDate>"

'读取数据<item><...>
'事先定义好数据库连接conn
    sql="select top 50  id,fileName,folderId,fileContent,fileModiyTime from files where fileState=1 order by fileModiyTime desc "
  rs.open sql, conn, 1, 1
  if not rs.eof then
   enter=true
'有内容可以插入rss
   do while not rs.eof
 fileId = rs("id")
 folderId = rs("folderId")
 fileContent = rs("fileContent")
 fileModiyTime = rs("fileModiyTime")
    myrss=myrss & "<item><id>" & rs("Id") & "</id><title>" & rs("fileName") & "</title><description><![CDATA["&fileContent&"]]></description><link>http://www.xunuo.net/explorer/data/files/files_"&fileId&".asp</link><modiyTime>"&fileModiyTime&"</modiyTime></item>"
   rs.movenext
   loop
  end if
  rs.close
set rs=nothing 
'rss结束
'rs("*****")中的内容请换为自己的字段
'结束rss.xml
myrss=myrss & "</channel></rss>"

'写入rss
if enter=true then
Write2File server.MapPath("/include/rss.xml"),myrss,false
'不要追加，每次更新
response.write "更新RSS成功,<a href='/include/rss.xml' target='_blank'>查看</a>"
end if
%>

    如果你还有不明白的地方或其他问题都可以请联系站长，给站长留言