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>
<username>A140</username>
<cnname>趙建川</cnname>
</user>
<user>
<username>A141</username>
<cnname>趙建川</cnname>
</user>
</user_cnname>
但用這種方式還沒有直接從數據庫時查詢來得快,所以也就沒有采用這種方式,
用javascript + 數據島也可以實現查詢,但是沒有小涉及到事情 在asp代碼中不好調用
'全局數據 考慮這樣只要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代碼中不好調用
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.