VBScript 遍历表单元素, 简化数据操作代码

(ASP)遍历表单元素, 简化数据操作代码

作用及说明:
操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段.
采用遍历表单元素可省去一堆不必要的事情.

MSDN对selectSingleNode解释.
http://msdn2.microsoft.com/zh-cn/library/system.xml.xpath.xpathnavigator.selectsinglenode.aspx
1. 两种方法遍历表单元素:

linenum
Form

1 遍历表单元素

dim x '列出表单中所有元素

for x=1 to request.Form.count

response.write request.form.key(x)&" --- "

response.write request.form(x)&"<br/>"

next

// request.form.key(x) 为 元素名

// request.form(x) 为 元素值

2 遍历表单元素 - 方法2

dim elem

for each elem in request.form

response.write elem

response.write request(elem)

response.write "<br/>"

next

//elem 为 元素名

//request.form(elem) 为元素值

2. 一个操作 XML 数据的例子

linenum
<%

dim hidChkValue

hidChkValue=request("hidChkValue")

select case hidChkValue

case "siteConfig"

set objxml=server.CreateObject("microsoft.xmldom")

objxml.load(server.MapPath("include/system/config.xml"))

for each elem in request.form

if instr(elem,"site")<>0 then

temp=request(elem)

if temp="" then temp=elem&" undefined"

objxml.selectSingleNode("//"&elem).text=temp

end if

next

objxml.save server.MapPath("include/system/config.xml")

set objxml=nothing

response.write pmtReturn

end select

%>