如何用asp加载直接显示xml呢

比如我有个xml文件，需要在前台显示其中的一部分，所以用asp加载。
但加载现实就是单纯的文字了，怎么在把他现实成xml文档啊。

代码如下:book.xml
<?xml version="1.0" encoding="gb2312" ?>
<booklist>
  <book isbn="1231">
  <title>0AJAX高级程序设计</title>
  <author>AJAX是一本不错的书，大家都可以去看看</author>
  <publisher>wrox</publisher>
  </book>
</booklist>

xuanze.asp页面:
<%option explicit%>
<%
dim objxml,i
set objxml=server.createobject("microsoft.xmldom")
objxml.async=false
objxml.load(server.mappath("book.xml"))
Response.ContentType="text/xml"
Response.CharSet = "gb2312"
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")
response.write "<booklist>"
response.write"<book>"
response.write "<title>"&objxml.childnodes(1).childnodes(0).childnodes(0).text&"</title>"
response.write "<author>"&objxml.childnodes(1).childnodes(0).childnodes(1).text&"</author>"
response.write "<publisher>"&objxml.childnodes(1).childnodes(0).childnodes(2).text&"</publisher>"
response.write "</book>"
response.write "</booklist>"
%>
有没有好的方法啊，直接加载xml,直接现实，而不要在在写一编代码啊。

操作 结点，控制在那个地方显示就可以了～和HTML 差不多的～

response.write objxml.documentElement
可不可以？

我的意思是不用在写这段代码了：
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")
response.write "<booklist>"
response.write"<book>"
response.write "<title>"&objxml.childnodes(1).childnodes(0).childnodes(0).text&"</title>"
response.write "<author>"&objxml.childnodes(1).childnodes(0).childnodes(1).text&"</author>"
response.write "<publisher>"&objxml.childnodes(1).childnodes(0).childnodes(2).text&"</publisher>"
response.write "</book>"
response.write "</booklist>"
而是直接加载xml能直接显示出来而不用上面那段代码。
有人知道这个问题因该怎么解决吗？

没人来解决这个问题吗？
来个高人来帮忙搞定下啊

到底能不能直接不用写显示标签，就直接显示是xml
如这样：
<%
dim objxml,i
set objxml=server.createobject("microsoft.xmldom")
objxml.async=false
objxml.load(server.mappath("book.xml"))
Response.ContentType="text/xml"
Response.CharSet = "gb2312"

response.write objxml.childnodes(1).childnodes(0).childnodes(2)

%>
然后就把该节点的xml显示出来啊，
这里显示的是错误。

Response.Write objxml.documentElement.xml