ASP accesses XML files in VBScript

vbscript|xml| access requires incoming work number return employee name
' Global data considerations so long as the load once
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
' Here's a little wonder why item (2)
Cnname_var = Nodelis.item (i). Childnodes.item (2). Text
Exit function
End If
Next
Cnname_var = Varusername
End Function

The XML file is as follows:

<?xml version= "1.0" encoding= "gb2312"?>

<user_cnname>
<user>
<username>A140</username>
<cnname> Zhaojianchuan </cnname>
</user>
<user>
<username>A141</username>
<cnname> Zhaojianchuan </cnname>
</user>
</user_cnname>

But in this way the query has not come directly from the database, so it is not used in this way,
JavaScript + data Island can also be implemented query, but no small involved in the ASP code is not easy to call