印 像 新 闻 系 统
表单：
<%
select case request.QueryString("action")
case "add"
call add()
end select
%>
<form name=myform method="post" action="?action=add">
<%dim i
i=1
do while i<=10
%>
<input name="FileName" type="checkbox" id="FileName" onclick="unselectall()" value="<%=i%>"><br>
<%
i=i+1
loop
%><br>
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
全选/取消
<input type=submit value="提交">
接收变量：
<%sub add
dim i,n,id,sql
id=request.form("FileName")
if instr(id,",")>0 then
n=split(id,",")
for i=0 to ubound(n)
sql=""&clng(n(i))&""
response.write ""&sql&"<br>"conn.execute(sql)
next
else
sql=""&clng(id)&""
response.write ""&sql&"<br>"conn.execute(sql)
end if
end sub
%>
JS代码：
<script language="JavaScript">
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
