当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp中vbscript访问xml文件

ASP
isNull(str), isEmpty(str)和 str = 的区别
使用ADO批量更新记录(源代码)
自己动手,结合javascript和dhtml做一个ubb编辑器
检查Email地址的比较完善的正则表达式函数
从Access数据库恢复BMP图像并显示在WEB页面(microsoft)
ASP环境下邮件列表功能的实现 (四)(推荐)
在ASP应用中如何限制同一表单被多次提交!!!!好东西
了解MSMQ,控制ASP进程 (一)
了解MSMQ,控制ASP进程 (二)
ASP技术在论坛中的运用(一)(吐血推荐!!!!)
ASP技术在论坛中的运用(二)(吐血推荐!!!!)
ASP技术在论坛中的运用(三)(吐血推荐!!!!)
ASP技术在论坛中的运用(四)(吐血推荐!!!!)
ASP技术在论坛中的运用(五)(吐血推荐!!!!)
ASP技术在论坛中的运用(六)(吐血推荐!!!!)
ASP技术在论坛中的运用(七)(吐血推荐!!!!)
ASP技术在论坛中的运用(八)(吐血推荐!!!!)
不用数据源打开数据库(DSNless connection)
大部分的ADO的错误码对应的含义
好东西,翻页程序,大家可以参考

ASP 中的 asp中vbscript访问xml文件


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 229 ::
收藏到网摘: n/a

 

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