需要传入工号 返回员工姓名
全局数据 考虑这样只要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代码中不好调用