VBScript 遍历表单元素, 简化数据操作代码
来源:互联网 发布:淘宝卖家延长收货时间 编辑:程序博客网 时间:2024/04/28 09:52
- VBScript 遍历表单元素, 简化数据操作代码
作用及说明:
操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段.
采用遍历表单元素可省去一堆不必要的事情.
主要注意的是表单元素的命名法.
如果数据字段有良好的命令规则的话, 那好办, 可采用 instr()函数进行筛选
如果数据字段原先没有良好的命令规则, 那也好办, 还是用 instr() 函数进行筛选 ,这就需要在表单域中不需要操作的元素建立一个命名前缀, 再用 instr() 进行筛选
1. 两种方法遍历表单元素
2. 一个操作 XML 数据的例子
shawl.qiu
2006-8-2
http://blog.csdn.net/btbtd
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
- %>