<%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页
%>