在列表框里如何实现多选Java,多选列表框动态添加,移动,删除,全选等操作的简单实例...

dim a

a = split(Request.Form("sourceList"),",")

Response.Write "Source:" & Request.Form("sourceList") & ubound(a) & "
Object:" & Request.Form("objectList") & "
"

%>

Untitled Document

.bgsubleft {

BACKGROUND-POSITION: center bottom; BACKGROUND-IMAGE: url(images/bgleft.gif); BACKGROUND-REPEAT: repeat-x

}

.bgsubleftn {

BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: url(images/bgleftn.gif); BACKGROUND-REPEAT: no-repeat

}

function addSelectedList()

{

var objSource = form1.sourceList;

var objObject = form1.objectList;

var sourcelen = objSource.length ;

for(var i=0;i

if (objSource.options[i].selected){

if (!checkExist(objObject,objSource.options[i].value)){

addtolist(objObject,objSource.options[i].text,objSource.options[i].value);

}

}

}

}

function addAllList()

{

var objSource = form1.sourceList;

var objObject = form1.objectList;

var sourcelen = objSource.length ;

for(var i=0;i

if (!checkExist(objObject,objSource.options[i].value)){

addtolist(objObject,objSource.options[i].text,objSource.options[i].value);

}

}

}

function removeSelectedList(noRemoveValue)

{

var objObject = form1.objectList;

for (var i=0;i

if (objObject.options[i].selected && objObject.options[i].value != noRemoveValue)

{

objObject.options.remove(i);

removeList(noRemoveValue);break;

}

}

}

function removeAllList(noRemoveValue)

{

var objObject = form1.objectList;

var objLen = objObject.length;

for (var i=0;i

if ( objObject.options[i].value != noRemoveValue){

objObject.options.remove(i);

removeAllList(noRemoveValue);break;

}

}

}

function selectedAll(obj)

{

for (var i=0;i

obj.options[i].selected = true;

}

}

function checkExist(obj,value)

{

var isExist = false;

for (var i=0;i

if (obj.options[i].value == value){

isExist = true;

break;

}

}

return isExist;

}

function addtolist(obj,value,label){

obj.add(new Option(value,label));

}

1 2 3 for i = 6 to 20 Response.Write("" & i+200 & "" & vbcrlf) Next %>		1 4 5 for i = 6 to 20 Response.Write("" & i & "" & vbcrlf) Next %>