asp中vbscript访问xml文件

要求传入工号 返回员工姓名
'全局数据 考虑这样只要load一次
set Doc = CreateObject("Mi***soft.XMLDOM")
Do***sync = false
Doc.load(Se***r.MapPath("us***cnname.xml"))

function cnname_var (varusername)
dim node,i,nodecount,root
set nodeLis= Do***etElementsByTagName("user")
nodeCount = no***is.length
For i=0 to nodeCount - 1
  if  no***is.item(i).c***dnodes.item(0).text = varusername then
'这里有一点疑惑 为什么是item(2)
    cnname_var = no***is.item(i).c***dnodes.item(2).text
    exit function
  end if
next
cnname_var = varusername
end function

xml文件如下：

    
   
      A140
  　　赵建川
   
   
      A141
  　　赵建川
   

但用这种方式还没有直接从数据库时查询来得快,所以也就没有采用这种方式，
用javascript + 数据岛也可以实现查询，但是没有小涉及到事情 在asp代码中不好调用