asp读取xml

< DOCTYPE html PUBLIC -WCDTD XHTML StrictEN httpwwwworgTRxhtmlDTDxhtml-strictdtd>

sysconfig.xml
<?xml version='1.0' encoding='UTF-8'?>
<config>
<uploadfilepath>upload</uploadfilepath>
</config>

UploadFilePathConfig.asp
<%
'*****************************************************************
'相关配置
'designed by shijiufeng on 2006-1-12
'email:shijf1984@gmail.com
'*****************************************************************
function getUploadFilePath()
 dim node,Doc
 set Doc=CreateObject("Microsoft.XMLDOM")
 Doc.async=false
 Doc.load(Server.MapPath("sysconfig.xml")) 
 set node = Doc.getElementsByTagName_r("uploadfilepath")
 getUploadFilePath=node.item(0).Text
end function
'response.write getUploadFilePath()
%>

#asp专栏