中文XML论坛--[原创]自己弄的一个ASP生成XML文件的小程序

贴子主题： [原创]自己弄的一个ASP生成XML文件的小程序

本主题类别:

看了代码后如果有不清楚的地方可以加我QQ496410994或用EMAIL：pangguigao@163.com联系我，欢迎大家到我Blog逛逛http://enet.bigwww.com

<%response.buffer=true%>
'连接数据库的文件，这很简单的
'函数文件，这个文件可有可无
<%
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页
%>


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	109.375ms