private mcnt as integer '控件總數

    private function controlcnt(byval ctrl as object) as integer
        dim i as integer
        for i = 0 to ctype(ctrl, control).controls.count - 1
            if ctype(ctrl, control).controls(i).controls.count = 0 then
                mcnt = mcnt + 1
            else
                me.controlcnt(ctype(ctrl, control).controls(i))
            end if
        next
    end function
    me.controlcnt(me)
    response.write(cstr(mcnt))