正文

VBScript  遍历表单元素, 简化数据操作代码2009-11-10 10:49:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/enc999/50052.html

分享到:

  1. 作用及说明:
    操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 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 数据的例子

  1. <% 
  2.     dim hidChkValue
  3.         hidChkValue=request("hidChkValue")
  4.     select case hidChkValue
  5.         case "siteConfig"
  6.             set objxml=server.CreateObject("microsoft.xmldom")
  7.                 objxml.load(server.MapPath("include/system/config.xml"))
  8.                 for each elem in request.form
  9.                     if instr(elem,"site")<>0 then
  10.                             temp=request(elem)
  11.                         if temp="" then temp=elem&" undefined"
  12.                         objxml.selectSingleNode("//"&elem).text=temp
  13.                     end if
  14.                 next
  15.                 objxml.save server.MapPath("include/system/config.xml")
  16.             set objxml=nothing
  17.                 response.write pmtReturn
  18.     end select
  19. %>

阅读(2040) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册