checkbox.asp

来自「ASP程序实现的科技期刊系统」· ASP 代码 · 共 75 行

<Script Language=JavaScript>
<!--
function SelAll_onclick(){
	if(ConList.SelAll.checked){
		SetAll();
	}
	else{
		UnSetAll();
	}
}
function SetAll(){
	var intCount;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			ConList.checkCon(intCount).checked = true;
		}
	}
	else{
		ConList.checkCon.checked = true;
	}
	
}
function UnSetAll(){
	var intCount;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			ConList.checkCon(intCount).checked = false;
		}
	}
	else{
		ConList.checkCon.checked = false;
	}
	
}
function checkCon_onclick(){
	var intCount;
	ConList.SelAll.checked = true;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			if(ConList.checkCon(intCount).checked == false){
				ConList.SelAll.checked = false;
			}
		}
	}
	else{
		if(ConList.checkCon.checked == false){
			ConList.SelAll.checked = false;
		}
	}
	
}

//-->
</Script>

<script language="vbscript"runat="server">
function msgzh()
	msgzh= MsgBox ("确定要删除这些记录吗？", vbYesNo, "提示信息")
	if msgzh=vbyes then document.ConList.submit()
end function
function check_onclick(i,tpr)
	msgsindel= MsgBox ("确定要删除这条记录吗？", vbYesNo, "提示信息")
	if msgsindel=vbyes then
		if  tpr > 1 then
			for intcount = 0 to  ConList.all("checkCon").length - 1
				if intcount=i-1 then ConList.checkCon(intCount).checked=true else  ConList.checkCon(intCount).checked=false
			next
			else 
			ConList.checkCon.checked = true
		end if
		document.ConList.submit()
	end if 
end function
</script>