Javascipt 复选框全选或全消除

<script language="javascript">
function SetAllChecked(chkAll)
{
var temp;
var theTr
var objs=document.getElementsByName("chkDisplay")
for(var i=0;i<objs.length;i++)
{
if(chkAll.checked)
<script language="javascript">
function SetAllChecked(chkAll)
{
var temp;
var theTr
var objs=document.getElementsByName("chkDisplay")
for(var i=0;i<objs.length;i++)
{
if(chkAll.checked)
{
objs[i].checked = true;
//alert(objs[i].value);
}
else
{
objs[i].checked = false;
}
}
}

function SetCheckbox(chkAll)
{
var strTempYes = "";
var strTempNo = "";
var objs=document.getElementsByName("chkDisplay")
for(var i=0;i<objs.length;i++)
{
if(objs[i].checked)
{
strTempYes = strTempYes + objs[i].value + "|"; // to display
}
if(!objs[i].checked)
{
strTempNo = strTempNo + objs[i].value + "$"; // not display
}
}
var url = "ArtilesManagementSetCheckBox.asp?articleIdsYes=" + strTempYes + "&articleIdsNo=" + strTempNo
location.href=url;
}
</script>
{
objs[i].checked = true;
//alert(objs[i].value);
}
else
{
objs[i].checked = false;
}
}
}

function SetCheckbox(chkAll)
{
var strTempYes = "";
var strTempNo = "";
var objs=document.getElementsByName("chkDisplay")
for(var i=0;i<objs.length;i++)
{
if(objs[i].checked)
{
strTempYes = strTempYes + objs[i].value + "|"; // to display
}
if(!objs[i].checked)
{
strTempNo = strTempNo + objs[i].value + "$"; // not display
}
}
var url = "ArtilesManagementSetCheckBox.asp?articleIdsYes=" + strTempYes + "&articleIdsNo=" + strTempNo
location.href=url;
}
</script>

<input name="chkAll" type="checkbox" value="checkbox" onClick="SetAllChecked(this)">

<input name="chkDisplay" id="chkDisplay" type="checkbox" value="<%=rsC_summaryShow.fields("articleId").value%>" >

<%
Dim articleIdsYes
Dim articleIdsNo
Dim sqlYes
Dim sqlNo

articleIdsYes = Replace(Request("articleIdsYes"),"|",",")
articleIdsNo = Replace(Request("articleIdsNo"),"$",",")

If articleIdsYes <> "" Then
articleIdsYes = left(articleIdsYes,len(articleIdsYes)-1)
sqlYes = "update tAsksam_Article set articleDisplayYes = 'Yes' where articleId in (" + articleIdsYes + ")"
conn.execute(sqlYes)
'Response.Write("Yes")
End IF

If articleIdsNo <> "" Then
articleIdsNo = left(articleIdsNo,len(articleIdsNo)-1)
sqlNo = "update tAsksam_Article set articleDisplayYes = 'No' where articleId in (" + articleIdsNo + ")"
conn.execute(sqlNo)
'Response.Write("No")
End If
Response.Redirect("ArtilesManagement.asp")
%>