Response.CharSet="gb2312" '数据集编码
Response.ContentType="text/xml" '数据流格式定义

%>
<%=sXmlClear%>
<rss version="2.0">
    <channel>
      <title><![CDATA[rss新闻动态]]></title>
      <link>http://www.sdlhsske.com</link>
      <description><![CDATA[新闻动态]]></description>
      <language>zh-CN</language>
      <%
        Set rs = Server.CreateObject("ADODB.Recordset")
        sql="select top 1 * from tb_News order by id desc"
        rs.open sql,conn,3,3
        do while not rs.eof
        Content=rs("Content")
        if Len(Content)>150 then
          Content=left(Content,147) & "..."
        end if
      %>
      <item>
        <title><%=rs("Title")%></title>
        <description><![CDATA[<%=Content%>]]></description>
        <link>http://www.sdlhsske.com/News_content.asp?id=<%=rs("id")%></link>
        <author>sdlhsske公司</author>
        <pubDate><%=rs("AddTime")%></pubDate>
      </item>
      <%
        rs.movenext()
      loop
      rs.close()
      Set rs = Nothing
      conn.close
      %>
  </channel>
</rss>
=============================================================================

注意点：
<?xml version='1.0' encoding='gb2312'?>
这一行我们经常都是直接写出来
实际上这样会导致rss阅读器无法认出来
所以应该以字符串变量的形式保存，再使用<%=""%>或reponse.write方法输出。