至顶网›软件频道 ›应用软件›VBScript 遍历表单元素, 简化数据操作代码

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

VBScript 遍历表单元素, 简化数据操作代码作用及说明.

作者：btbtd 来源：CSDN 2008年3月23日

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

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

如果数据字段有良好的命令规则的话, 那好办, 可采用 instr()函数进行筛选

如果数据字段原先没有良好的命令规则, 那也好办, 还是用 instr() 函数进行筛选 ,这就需要在表单域中不需要操作的元素建立一个命名前缀, 再用 instr() 进行筛选

1. 两种方法遍历表单元素
2. 一个操作 XML 数据的例子

shawl.qiu
2006-8-2

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
%>

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

业界热点: