📄 批量或单个进行删除操作.asp

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

💻 ASP

字号:

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<SCRIPT language=javaScript>
function CheckOthers(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
//		if (e.name != 'chkall')
			if (e.checked==false)
			{
				e.checked = true;// form.chkall.checked;
			}
			else
			{
				e.checked = false;
			}
	}
}

function CheckAll(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
//		if (e.name != 'chkall')
			e.checked = true// form.chkall.checked;
	}
}

</SCRIPT>
<body topmargin="20" leftmargin="15" bgcolor="#FFCCFF" >
<%
  	if not isempty(request("selAnnounce")) then
     		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)
		next
     		else
			call deleteannounce(clng(idlist))
     		end if
  	end if 
%>
<form method=Post action="">	   
  <table class="table" border="0" cellspacing="1" width="42" cellpadding="3">
    <tr> 
      <td >
	  <input type='submit' class=input value='Del'></td>
    </tr>
    <tr > 
      <td><input type='checkbox' name='selAnnounce' value='1'></td>
    </tr>
	    <tr> 
      <td><input type='checkbox' name='selAnnounce' value='2'></td>
    </tr>
  </table>

   <table width="600" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="43" nowrap><button onclick=CheckAll(this.form)>
      <div align="center">全选</div>
      </button></td>
    <td width="37" nowrap><button onclick=CheckOthers(this.form)>
      <div align="center">全不选</div>
      </button></td>
  </tr>
</table>
</form>
<%
sub deleteannounce(id)
    dim rs,sql
    response.write "<font color=red>"
    set rs=server.createobject("adodb.recordset")
    sql="delete from article where articleid="&cstr(id)
    conn.execute sql
    if err.Number<>0 then
	err.clear
	response.write "删 除 失 败 !<br>"
    else
        response.write "删除成功！<br>"
    end if
    response.write "</font>"
End sub
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -