asp中vbscript访问xml文件

     要求传入工号 返回员工姓名
  '全局数据 考虑这样只要load一次
  set Doc = CreateObject("Microsoft.XMLDOM")
  Doc.async = false
  Doc.load(Server.MapPath("user_cnname.xml"))
  
  function cnname_var (varusername)
  dim node,i,nodecount,root
  set nodeLis= Doc.getElementsByTagName("user")
  nodeCount = nodeLis.length
  For i=0 to nodeCount - 1
   if nodeLis.item(i).childnodes.item(0).text = varusername then
  '这里有一点疑惑 为什么是item(2)
   cnname_var = nodeLis.item(i).childnodes.item(2).text
   exit function
   end if
  next
  cnname_var = varusername
  end function
  
  xml文件如下：
  
  <?xml version="1.0" encoding="gb2312"?>
  
  <user_cnname>
   <user>
   <username>A140</username>
   　　<cnname>赵建川</cnname>
   </user>
   <user>
   <username>A141</username>
   　　<cnname>赵建川</cnname>
   </user>
  </user_cnname>
  
  但用这种方式还没有直接从数据库时查询来得快,所以也就没有采用这种方式，
  用javascript + 数据岛也可以实现查询，但是没有小涉及到事情 在asp代码中不好调用
  
  转自：动态网制作指南 www.knowsky.com
    做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。