<% 
strSourceFile = Server.MapPath("/") & "\tree.xml" 

'獲取XML文件的路徑這里根據你的虛擬目錄不同而不同 
Set objXML = Server.CreateObject("Microsoft.XMLDOM") 
'以自由線程創建一個XML對像 
objXML.async = False
if objXML.load(strSourceFile) then
	Set objRootsite = objXML.documentElement.getElementsByTagName("para") 
	response.write objRootsite(0).selectSingleNode("database").Text
	response.write objRootsite(0).selectSingleNode("username").Text
else
	response.wirte "xml文件路徑錯誤"
end if

%>