Apagar mais de um ítem em um listbox

Se você tem um botão que apaga um ítem em um listbox, sabe do problema que se tem quando tentamos apagar mais de um ítem. Esse código resolve o problema:

function apaga_item()
{
var f = document.frm1.list1.options.length;
var items = '';
for(var i = 0; i < f; i++)
{
if (document.frm1.list1.options[i].selected)
{
 items = items + ';' + i
}
}
items=items + ';';
var t = document.frm1.list1.options.length;
var f = -1;
for(var d = 0; d < t + 1; d++)
{
var s = ';'+d+';';
if(items.search(s)!=-1)
{
if(f==-1)
{
document.frm1.list1.options[d] = null;
f=d;
}
else
{
document.frm1.list1.options[f] = null;
}
}
}
}

Esta matéria foi postada originalmente no ASP4Developers por ROBSON MENDONÇA, que na época era "Desenvolvedor de Tecnologias Microsoft". Hoje, vai saber...