【图】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
      <usernameA140</username
　　<cnname赵建川</cnname
    </user
    <user
      <usernameA141</username
　　<cnname赵建川</cnname
    </user
</user_cnname

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