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 

%>