28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set feed = fso.CreateTextFile("blog.xml",True)
feed.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
feed.WriteLine("<rss version=""2.0"">")
feed.WriteLine("<channel>")
feed.WriteLine("<title>个人博客 </title>")
feed.WriteLine("<link>http://127.0.0.1/blog.xml</link>")
feed.WriteLine("<description>聚合了互联网上大量的专业学术博客 </description>")
feed.WriteLine("</channel>")
feed.WriteLine("</rss>")
feed.Close
Set feed = Nothing
Set fso = Nothing
%>