xml转化成html

<%
title=request.form("title")
content=request.form("content")
tempXml=replace( replace( replace (now,":",""), "-", ""), " ", "") & ".xml"
aa="aa.xml"

dim objdom
set objdom=server.cr&#101;ateobject("Microsoft.XMLDOM")
dim objroot
set objroot=objdom.cr&#101;ateElement("moonpiazza")
objdom.appendchild objroot

Set objPI = objDom.cr&#101;ateProcessingInstruction("xml","version=""1.0"" encoding=""gb2312""" )
objDom.ins&#101;rtBefore objPI, objDom.childNodes(0)
 
dim objbook
set objbook=objdom.cr&#101;ateElement("book")
objroot.appendchild objbook
 
set objtit=objdom.cr&#101;ateElement("title")
objtit.text=title
objbook.appendchild objtit


set objpri=objdom.cr&#101;ateElement("content")
objpri.text=content
objbook.appendchild objpri
 
'生成临时XML放于TEMP文件夹下
 
objdom.save(server.mappath("新建文件夹 (2)/"&aa))
 
'//以下部分为生成htm部分
cHtmLFile = replace( replace( replace (now,":",""), "-", ""), " ", "") & ".html"
 
cXMLFile =server.mappath("新建文件夹 (2)/"&aa)
cXSLFile = Server.MapPath("shift.xsl")
cOutputFile = Server.MapPath("新建文件夹 (2)/"&cHtmLFile)
 
Set oXML = Server.CreateObject("Microsoft.XMLDOM")
oXML.async = false
oXML.load(cXMLFile)
 
Set oXSL = Server.CreateObject("Microsoft.XMLDOM")
oXSL.async = false
oXSL.load(cXSLFile)
 
Set oOutput = Server.CreateObject("Microsoft.XMLDOM")
Call oXML.transformNodeToObject(oXSL, oOutput)
oOutput.save (cOutputFile)
Set oXML = Nothing
Set oXSL = Nothing
Set oOutput = Nothing

Response.redirect("新建文件夹 (2)/"&cHtmLFile)
%>