使用VBScript操作Html複選框(CheckBox)控制項

來源:互聯網
上載者:User
vbscript|複選框|控制項 這兩天看到有朋友問起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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。