作用及说明: 操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段.  采用遍历表单元素可省去一堆不必要的事情. 主要注意的是表单元素的命名法. 如果数据字段有良好的命令规则的话, 那好办, 可采用 instr()函数进行筛选 如果数据字段原先没有良好的命令规则, 那也好办, 还是用 instr() 函数进行筛选 ,这就需要在表单域中不需要操作的元素建立一个命名前缀, 再用 instr() 进行筛选 1. 两种方法遍历表单元素 2. 一个操作 XML 数据的例子 两种方法遍历表单元素: 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 遍历表单元素  dim elem for each elem in request.form     response.write elem     response.write request(elem)     response.write "<br/>" next //elem 为 元素名 //request.form(elem) 为元素值     一个操作 XML 数据的例子 <%      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 %>

评论