CheckBox问题，高分求算法

目的：页面中有很多个checkbox，想根据各自选中情况构造一个数据库。
问题：目前算法非常慢
求助：请帮忙优化，或者提供好的方法，谢谢。
代码如下：
arrayDoType=Array("r","a","u","d")
For Each objItem In divDetail.all
If objItem.tagname="INPUT" Then
If InStr(1,objItem.name,"hid_int_")>0 Then
aryName=split(objItem.name,"_")
tempStr=aryName(2) & "_" & split(objItem.value,"_")(0) & "_" & aryName(3)
For i=0 To UBound(arrayDoType)
Set objChk=document.getElementsByName("chk_int_" & aryName(2) & "_" & aryName(3) & "_" & arrayDoType(i))(0) 
If objChk.checked Then
tempStr=tempStr & "_1"
Else
tempStr=tempStr & "_0"
End If
Set objChk = Nothing
Next
If Not Right(tempstr,7)="0_0_0_0" Then 
strDoAction=strDoAction & tempstr & ";"
End If
End If
End If
Next