VBScrip 动态转换变量值为变量, 并赋值

VBScrip 动态转换变量值为变量, 并赋值

感谢 CSDN 社区网友 slawdan!
为了这个问题, 我真没少动脑筋.

shawl.qiu
2006-8-6
  http://blog.csdn.net/btbtd

1. 遍历 XML 节点, 并将隶属子节点名定义为变量, 子节点值赋为变量值

1. linenum
2.     dim objXml, child
3.     set objXml=server.CreateObject("microsoft.xmldom")
4.         objXml.load(server.MapPath("include/system/config.xml"))
5.         for each child in objXml.selectSingleNode("//siteconfig").childNodes
6.             execute "dim "&child.nodeName&":"&child.nodeName&"=child.text"
7.         next
8.     set objXml=nothing 

2. 遍历 数据库表 字段, 并将字段名定义为变量, 字段值赋为变量值

1. linenum
2.         dim rs, field
3.     set rs=server.CreateObject("adodb.recordset")
4.         with rs
5.             .open "select * from ctatspcat where spid=4",conn
6.                 for each field in .fields
7.                     execute "dim "&field.name&":"&field.name&"=field"
8.                 next
9.             .close
10.         end with
11.     set rs=nothing
12. '// 这个功能主要在显示正文的时候使用, 正文通常只显示一条记录