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