2025年09月16日 星期二 农历 乙巳年(蛇)七月廿五

初识复选框

发布人:gxf    发布时间:2012-01-05 点击量:2705

        复选框,就是可以多选的框框。在同一个表单中名称一样的复选框,程序在获取数据的时候会认为是一个数组,获取的值就是复选框的value,获取复选框的方法跟获取其他文本框的方法一样,都是request.form。举个例子,比如说我们设定10个复选框,代表0--9这是个数字。那么我们在建立复选框的时候就可以把每个复选框的值都取名为shuzi(或者其他任何你认为可以的名称,中文最好不用。),value分别设为0---9,就可以了。
       获取值,在form的action页面里你只要用request.form("shuzi")方法就可以获取用户选定的值,比如用户选定了023那个response.write(request.form("shuzi"))的结果就会为1,2,3。
        数据分离,有时候我们希望把这些集合在一起的数据分离开,这是就需要用到split函数了,这个是vb的内置函数,直接调用就可以,它可以把复选框传递过来的数据集合分离为数组。具体用法为split(表达式,"分隔符")在复选框数值集合中,分隔符为'。
如:
<%
dim huzi,arri,str,
shuzi=request.form("shuzi")
arri=split(shuzi,",")
%>
要把分离的结果显示出来,我们还得用到一个循环 for each in ……next
for each in ……next(数组循环),格式为
for each 变量 in 数组名
 程序代码
 next
'其中的变量就是存放数组的地方,是自定义变量。
比如上面的代码我们就可以写成
<%
dim shuzi,arri,str,
shuzi=request.form("shuzi")
arri=split(shuzi,",")
for each b in arri%>
n=trim(b)
str=str&n&" "
response.write(str)
next
%>
到此我们已经能够获取用户所选定的复选框的值,并可以显示了。

       还有一个问题就是我们如何知道用户选定了几个值,即数组的长度,这是我们就要用到ubound函数了,我们要想获取上面的数组arri的长度只需要ubound(arri)+1就好了。因为“ubound方法返回的是数组的最大下标,所以长度要加1”上面的程序我们就可以写为:
<%
dim shuzi,arri,str,
shuzi=request.form("shuzi")
arri=split(shuzi,",")
for each b in arri%>
n=trim(b)
str=str&n&" "
response.write(str)
next
lens=ubound(arri)+1
response.write(lens)
%>

此时,已完成对用户从复选框选定值和选定数目的获取和输出。

另外,需要注意: form 的属性不能是  enctype="multipart/form-data"  ,否则不能够传递

 

补充:instr  查找数字的问题   在制作教师档案系统中遇到的问题
          问题描述:str1="31,32,33,34"
                            str2="31"
                         instr(str1,str2)的值是大于0的,这点没错
                  但是如果    str1="31,32,33,34"
                                    str2="1" ,或者Str2="2"
                                instr(str1,str2)的值依然是大于0的,这点不是我所想的,很显然,这里数字被系统认为是字符了。

                       我期望是在str1里面找不到str2,instr(str1,str2)的值等于0。

      解决方法:只能将字符串里的数字拆开,进行数字的对比。
              函数:

function instrStr(str1,str2)
   strStr=false
   strarr=split(str1,",")
   for each b in strarr
     if cint(trim(b))=cint(str2) then
        instrStr=true
        exit function
     end if
   next
end function

使用函数:if instrStr(bj,n) then response.Write("  selected ")