请帮我看看这个程序怎么回事，全选<script language="vbscript">
function selectChk()
{
var s=false;//用来记录是否存在被选中的复选框
var strid,strurl;
var nn=self.document.form1("dept");//返回复选框board的数量
for(j=0;j<nn.length;j++)
{
if(self.document.form1("dept",j),checked)
{
n=n+1;
s=true;
boardId=self.document.form1("dept",j).id+"";//转换为字符串
//生成要删除公告的列表
if(n==1)
{
strid=boardId;
}
else
{
strid=strid+","+boardId;
}
}
}
strurl="boardDelt.asp?id="+strid;
if(!s)
{
alter("请选择要删除的公告！")；
return false;
}
if(confirm("你确定要删除这些公告吗？"))
{
form1.action=strurl;
form1.submit();
}
}
function sltAll()
{
var nn=document.form1.dept;
for(j=0;j<nn.length;j++)
{
self.document.form1.dept(j).checked=true;
}
}
function sltNull()
{
var nn=this.document.form1("dept");
for(j=0;j<nn.length;j++)
{
this.document.form1("dept",j).checked=false;
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={sql server};server=(local);uid=sa;pwd=sa;database=sysgk"
conn.open
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from board order by postTime "
dim n'用来保存记录数量
rs.open sql,conn,1,1
'如果rs为空，则显示提示信息
if rs.eof then
response.write"<tr align=center><td colspan=5 >目前还没有公告。</td></tr></table>"
'rs("id")=0
else
%>
<p> </p>
<p> </p>
<p align="center"><font style=" font-size:20pt" color="#000080"><b>公 告 管 理</b></font></p>
<table align="center" border="1" cellpadding="0" width="400" bordercolorlight="#4da6ff" bordercolordark="#ecf5ff" style="font_size:9pt">
<tr>
<td width="6%" align="center" bgcolor="#bedcfa"><strong>编号</strong></td>
<td width="50%" align="center" bgcolor="#bedcfa"><strong>题目</strong></td>
<td width="24%" align="center" bgcolor="#bedcfa"><strong>时间</strong></td>
<td width="10%" align="center" bgcolor="#bedcfa"><strong>修改</strong></td>
<td width="10%" align="center" bgcolor="#bedcda"><strong>选择</strong></td>
</tr>
<%
'设置每页记录数量为15
rs.pagesize=20
'设置并读取页码参数page
ipage=clng(request.querystring("page"))
if ipage<=0 then
ipage=1
end if
if ipage>rs.pagecount then
ipage=rs.pagecount
end if
rowCount=rs.pagesize
'依次显示公告信息
do while not rs.eof and rowCount>0
n=n+1
%>
<tr>
<td align=center><%=n%></td>
<td><a href=../boardView.asp?id=<%=rs("id")%> onclick="return boardWin(this.href)"><%=rs("title")%></a></td>
<td><a href=../boardView.asp?id=<%=rs("id")%> onclick="return boardWin(this.href)"><%=rs("postTime")%></a></td>
<td align=center><a href=boardEdit.asp?id=<%=rs("id")%> onclick="return boardWin(this.href)" >修改</a></td>
<td align=center>
<form method="post" name="form1">
<input type=checkbox name=dept id=<%=rs("id")%>"style="font-size:9pt"></td>
</form>
</tr>
<%
rs.movenext()
'控制每页显示记录的数量
rowCount=rowCount-1
loop
%>
</table>
<%
'显示页码链接
if rs.pageCount>1 then
response.write"<table border=0><tr><td><b>分页:</b></td>"
for i=1 to rs.pagecount
response.write"<td><a href=boardList.asp?page=" & i &">"
response.write "[<b>"& i &"</b>]</a></td>"
next
response.write"</tr></table>"
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<p align=center>
<input type=button value=添加公告 onclick="javascript:window.open('boardAdd.asp')" name=add>
<input type=button value=全选 onClick="sltAll()" name=button1>
<input type=button value=清空 onclick="sltNull()" name=button2>
<input type=submit value=删除 name=tijiao onclick="selectChk()" >
</p>
</body>
</html>
，删除，清空功能没法实现，哪位大吓帮帮忙啊，急需！！！！
