使用VBScript操作Html復選框（CheckBox）控件
2024-08-26 00:15:34
供稿：網友
菜鳥學堂：
這兩天看到有朋友問起html內的各種控件怎么用script進行操作，現在自己也總結一下。因為項目原因，很多程序都是用vbscript寫的，感興趣的朋友可以改寫成javascript，到時候別忘了共享一下啊，活活。
ok，切入主題，現介紹一下：
今天介紹使用vbscript判斷復選框的選中數量和被選中的復選框的值。
在生成某個一覽表時，比如一個訂貨單一覽表，每條訂貨單記錄前面可能會放置一個復選框，以提供批量刪除，發行等功能。一般每個復選框的值也就是后面對應記錄的主鍵的值，如訂貨單編號。在執行刪除、發行等功能時，就要知道選了幾個復選框，這些復選框分別對應什么值，下面就說一下方法。
程序分為三部分：
一、判斷被選定的checkbox是一個還是一個以上
主要思路是：當有多個同名的復選框，但id不同時，舉例復選框控件名為chktest，那么它將被以數組的形式調用，比如說有三個復選框名字叫chktest，id分別是chktest1,chktest2,chktest3，那么要想查看三個復選框的checked屬性就要這么寫：chktest(0).checked, chktest(1).checked, chktest(2).checked (數組從零開始)；而當只有一個復選框的時候，直接可以使用chktest.checked。這樣就決定了對于數量不同的（1個或多個兩種分別），只能采用不同的方法來取得復選框的信息。由于當有多個同名不同id的控件時，該控件擁有“控件名.type”這個屬性，而這個只讀的屬性可以等于任何字符串，也就是說 控件名.type = “任意字符串“ 恒為true。當然，這只是對有控件名.type這個屬性的時候，否則恒為false，這樣也就分辨出在一覽表里的復選框是單個還是多個了。程序如下：
'*************************************************
'<函數名>
' gfis_arraytest(obj)
'<功能>
' 判斷選定的checkbox的是一個還是一個以上
'<參數>
' checkbox對象名
'<返回值>
' true
' false
'<備注>
' created on mar.15th.2004 by aitd
'*************************************************
function gfis_arraytest(obj)
on error resume next
if obj.type = "flag" then
gfis_arraytest = true
else
gfis_arraytest = false
end if
end function
二、檢查畫面上復選框的選擇是否符合要求
所謂是否符合要求的意思就是，比如說，刪除的時候選擇起碼一條記錄，修正的時候選且只能選擇一條記錄，至于其他的，什么只能選擇5條，只能選擇10條等等，下面的程序改以下就行了。別忘了剛才說的，只有一個復選框和有多個復選框的處理方法是不一樣的。
'******************************************************
'<函數名>
' gfchkcheckbox()
'<功能>
' 檢查畫面checkbox的選擇是否符合要求
'<參數>
' obj: 對應的checkbox控件
' flag: 檢查規則：0 可有多個被選中
' 1 只能有一個被選中
' name: 提示用戶那個控件報錯的信息
'<返回值>
' true
' false
'<備注>
' created on mar.15th.2004 by aitd
'******************************************************
function gfchkcheckbox(obj,flag,name)
dim i
dim j
gfchkcheckbox = false
i = 0
j = 0
'若對象不存在
if isnull(obj) then
msgbox "請選擇一個 " + name + "。" '請選擇一個對象
gfchkcheckbox = false
exit function
end if
'對象只有一個
if not gfis_arraytest(obj) then
if obj.checked = false then
msgbox "請選擇一個 " + name + "。" '請選擇一個對象
gfchkcheckbox = false
exit function
else
gfchkcheckbox = true
exit function
end if
end if
'若有多個對象存在
for i = 0 to (obj.length - 1)
if obj(i).type = "checkbox" then
if obj(i).checked = true then
j = j + 1
end if
end if
next
if j = 0 then
msgbox "請選擇 " + name + "。" '請選擇一個對象
gfchkcheckbox = false
exit function
end if
if j = 1 then
gfchkcheckbox = true
exit function
end if
if j > 1 then
if flag = 1 then
msgbox "只能選擇一個 " + name + "。" '只能選擇一個對象
gfchkcheckbox = false
exit function
else
gfchkcheckbox = true
exit function
end if
end if
end function
三、取得復選框的值
為了后面處理的方便，常把重要的信息保存在復選框的value屬性里，以便后面取用。下面的程序將選中的復選框的值以間隔符 “^|^“ 串成一個字符串并返回。
'*************************************************
'<函數名>
' gfgetcheckboxvalue(obj)
'<功能>
' 取得選定的checkbox的值
'<參數>
' checkbox對象名
'<返回值>
' 選定的checkbox的值
'<備注>
' created on mar.15th.2004 by aitd
'*************************************************
function gfgetcheckboxvalue(obj)
dim strvalue
dim intcounter
dim i
strvalue = ""
intcounter = 0
'如果對象不存在
if isnull(obj) then
gfgetcheckboxvalue = strvalue
exit function
end if
'如果對象為一個
if not gfis_arraytest(obj) then
if obj.checked = false then
gfgetcheckboxvalue = strvalue
exit function
else
gfgetcheckboxvalue = obj.value
exit function
end if
end if
'如果對象為多個
for i = 0 to obj.length - 1
if obj(i).checked = true then
if intcounter > 0 then
strvalue = strvalue & "^|^" & cstr(obj(i).value)
else
strvalue = cstr(obj(i).value)
end if
intcounter = intcounter + 1
end if
next
|||菜鳥學堂：
gfgetcheckboxvalue = strvalue
end function
上面就是vbscript里面處理復選框的方法（偶用的）。可以把這幾個函數封裝到一個共通的vbs文件中，并在html的<head>標記區內引用就可以通用了~ 如 <head><script language=vbscript src=vbschkboxtool.vbs></script></head>
還要注意一個問題，在實際應用中,有可能根據查詢條件生成的一覽表里一條記錄也沒有，就是說沒有復選框控件，如果仍舊調用這樣一個名字的控件，這時候ie就會報錯。沒有什么太好的解決辦法，于是寫了一段程序繞過這個沒有復選框控件的情況：
function sischkboxexist()
on error resume next
err.clear
if isempty(document.frmorderlist.chkorder) then
end if
if err.number <> 0 then
else
sischkboxexist=true
end if
err.clear
end function
程序中對預定的控件隨便做一個操作，如isempty，如果捕捉到了err.number>0的情況，就說明該控件不存在，但由于有on error resume next，所以不會提示錯誤，這樣也就判斷出了控件存不存在。
每次在調用上面三個函數之前，先調用一次sischkboxexist函數，看看對應的控件存不存在，這樣就不會有錯了。
- eom -
