看了代码后如果有不清楚的地方可以加我QQ496410994或用EMAIL：pangguigao@163.com联系我，欢迎大家到我Blog逛逛http://enet.bigwww.com
<%response.buffer=true%>
<!--#include file="connection.asp"-->'连接数据库的文件，这很简单的
<!--#include file="function.asp"-->'函数文件，这个文件可有可无
<%
Dim xmldom,rss,newnode,MyBlogTitle,MyBlogURL,BlogDescription,Language,WebMaster,QQ,link,title,author,SubmitDate,origin,content,pi
Set xmlDom = server.CreateObject("Microsoft.XMLDOM") '创建XMLDOM对象实例
Set rss = xmlDom.createElement("rss") '创建节点实例
xmlDom.appendChild rss
Set newNode = xmlDom.createElement("MyBlog")
rss.appendChild newNode
Set myblogtitle=xmldom.createelement("MyBlogTitle")
myblogtitle.text="庞贵高的Blog" '为属性赋值
newnode.appendchild myblogtitle
Set myblogURL=xmldom.createelement("MyBlogURL")
myblogURL.text="http://enet.bigwww.com"
newnode.appendchild myblogurl
Set blogdescription=xmldom.createelement("BlogDescription")
blogdescription.text="庞贵高的Blog,网络日记,网志,ASP,ASP.NET,JSP,JAVA,PHP,VB,JAVASCRIPT"
newnode.appendchild blogdescription
Set language=xmldom.createelement("Language")
language.text="Zh-cn"
newnode.appendchild language
Set webmaster=xmldom.createelement("WebMaster")
webmaster.text="pangguigao@163.com"
newnode.appendchild webmaster
Set qq=xmldom.createelement("QQ")
QQ.text="496410994"
newnode.appendchild qq
'以下查询数据库
Dim sql,rs
sql="select top 10 * from wenzhang_sbi order by submit_date desc"
db.execute(sql)
Set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1
If Not rs.eof And Not rs.bof Then
Do While Not rs.eof
Dim newweblog
Set newweblog=xmldom.createelement("NewWebLog") '创建节点
newnode.appendChild newweblog
Set link=xmldom.createelement("link")
link.text="http://enet.bigwww.com/sbi_jitineirong.asp?id=" & rs("id")
Set title=xmldom.createelement("title")
title.text=rs("title")
Set author=xmldom.createelement("author")
author.text=rs("zuozhe")
Set submitdate=xmldom.createelement("SubmitDate")
submitdate.text=rs("submit_date")
Set origin=xmldom.createelement("Origin")
origin.text=rs("laiyuan")
'我的网站是用ASP直接生成HTML的，所以的用到filesystemobject组件
'下面用filesystemobject读取文件
Dim fileobj
Set fileobj=server.CreateObject("scripting.filesystemobject")
Dim textfile
Set textfile=fileobj.opentextfile(server.mappath("htmlfiles/" & rs("name") & ".htm"))
Do While Not textfile.atendofstream
Dim weblog_body
weblog_body=textfile.readline
Loop
textfile.close
Set content=xmldom.createelement("content")
content.text=htmlencode(server.htmlencode(weblog_body))
NewWebLog.appendchild Link
NewWebLog.appendchild title
NewWebLog.appendchild author
NewWebLog.appendchild submitdate
NewWebLog.appendchild origin
NewWebLog.appendchild content
rs.movenext
Loop
Else
nonewweblog
Set nonewweblog=xmldom.createelement("nonewweblog")
newnode.appendchild nonewweblog
End If
'下面开始创建XML文件
Set pi=xmldom.createprocessinginstruction("xml","version='1.0'")
xmldom.insertbefore pi,xmldom.childnodes(0)
xmldom.save server.mappath("xml/" & "blogXML.xml") '把XML文件保存到指定文件夹
response.redirect "xml/blogxml.xml" '当用户点击时先生成XML，再重新定向到XML页
%>
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML源码及示例(仅原创和转载) 』 → [原创]自己弄的一个ASP生成XML文件的小程序
(订阅本版)
2005/11/11 21:03:00
顶端 
[原创]自己弄的一个ASP生成XML文件的小程序(3292字) － pangguigao，2005年11月11日
新浪微博
