UC知道帮我注释一下这段ASP代码，谢谢~
来源：百度知道 编辑：UC知道 时间：2024/06/18 13:56:54
最好每句都有注释，谢谢~
<%if not isempty(request("selAnnounce")) then 'selAnnounce为复选框名称
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id) '调用deleteannounce过程
next
else
call deleteannounce(idlist)
end if
end if
%>
<%if not isempty(request("selAnnounce")) then 'selAnnounce为复选框名称
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id) '调用deleteannounce过程
next
else
call deleteannounce(idlist)
end if
end if
%>
<%if not isempty(request("selAnnounce")) then '如果selAnnounce复选框不为空值,即没有选中一个复选框
idlist=request("selAnnounce") '把selAnnounce的值赋值给变量idlist
if instr(idlist,",")>0 then '如果选择的复选框大于0个,即选择一个以上
dim idarr '声明数组
idArr=split(idlist) '定义数组,数组的值等义选择的复选框的个数
dim id '声明变量ID
for i = 0 to ubound(idarr)' 循环数组内的值,因为数组是从0开始,所以i的值是0起始
id=clng(idarr(i)) '把数组内的值转换成长整型数值,赋给给id
call deleteannounce(id) '调用deleteannounce(id)过程
next
else '如果没有选中一个复选框
call deleteannounce(idlist) '就调用deleteannounce(idlist)过程
end if '第2个if结束
end if '第1个if结束
%>
我说的并不一定正确