遍历表单的问题

Question

<%
On error resume next
dim TempStr,item
TempStr= TempStr &"<UL>"
TempStr=TempStr & "<LI>"
TempStr=TempStr & "<P><B><Font Size=""+1"">Form:</Font></B><BR><BR>" & vbCrLf TempStr=TempStr & "<OL Start=1>" For each item In Request.Form TempStr=TempStr & "<LI>"
TempStr=TempStr &  item  & "=" & Request.Form(item) & "<BR>" & vbCrLf
Next TempStr=TempStr & "</OL>" TempStr=TempStr & "<LI>"
TempStr=TempStr &  "<P><B><Font Size=""+1"">QueryString:</Font></B><BR><BR>"
TempStr=TempStr & "<OL Start=1>" For each item In Request.QueryString
TempStr=TempStr & "<LI>"
TempStr=TempStr &  item  & "=" & Request.QueryString(item) & "<BR>"
Next
TempStr=TempStr & "</OL>" TempStr=TempStr & "<LI>"
TempStr=TempStr &   "<P><B><Font Size=""+1"">Cookies:</Font></B><BR><BR>"
TempStr=TempStr & "<OL Start=1>" For each item In Request.Cookies
TempStr=TempStr & "<LI>"
TempStr=TempStr &   item  & "=" & Request.Cookies(item) & "<BR>"
Next
TempStr=TempStr & "</OL>" TempStr=TempStr & "<LI>"
TempStr=TempStr &   "<P><B><Font Size=""+1"">ServerVariables:</Font></B><BR><BR>"
TempStr=TempStr & "<OL Start=1>"

For each item In Request.ServerVariables TempStr=TempStr & "<LI>"
TempStr=TempStr &   item  & "=" & Request.ServerVariables(item) & "<BR>" Next
TempStr=TempStr & "</OL>" TempStr=TempStr & "</UL>"
Response.write TempStr%>不选中的不提交

Answer 1

1.用循环，判断是否选中，如果选中全局标识变量加1
2.refObject.name

Answer 2

function mySubmit1(){
             var 存名字的数组b[];
             var ii;
    var a=document.form1.getElementsByTagName("input");
for(var i=0;i<a.length;i++){
    if (a[i].type=="checkbox" && a[i].ckecked==true){
                              b[i]=a[i].name;
   ii=ii+1;
    }
}
              alert(ii);
}
呵呵,不好意思,我没有测试过,你看看行不??