复制代码代码如下 :
<%
희미한 a
a = split (request.form ( "sourcelist"), ",")
response.write "source :"& request.form ( "sourcelist") & ubound (a) & "<br> 개체 :"& request.form ( "ObjectList") & "<br>"
%>
<html>
<헤드>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312">
<title> 제목없는 문서 </title>
<스타일 유형 = 텍스트/CSS>
.bgsubleft {
배경 위치 : 중앙 하단; 배경 이미지 : URL (images/bgleft.gif); 배경 반복 : 반복 X
}
.bgsubleftn {
배경 위치 : 왼쪽 하단; 배경 이미지 : URL (images/bgleftn.gif); 배경 반복 : 반복 없음
}
</스타일>
<script language = "javaScript"type = "text/javaScript">
함수 addSelectedList ()
{
var objsource = form1.sourcelist;
var objobject = form1.objectList;
var sourcelen = objsource.length;
for (var i = 0; i <sourcelen; i ++) {
if (objsource.options [i] .selected) {
if (! checkexist (objobject, objsource.options [i] .value)) {
addTolist (objobject, objsource.options [i] .text, objsource.options [i] .Value);
}
}
}
}
함수 addAllList ()
{
var objsource = form1.sourcelist;
var objobject = form1.objectList;
var sourcelen = objsource.length;
for (var i = 0; i <sourcelen; i ++) {
if (! checkexist (objobject, objsource.options [i] .value)) {
addTolist (objobject, objsource.options [i] .text, objsource.options [i] .Value);
}
}
}
함수 removeSelectedList (noreMoveValue)
{
var objobject = form1.objectList;
for (var i = 0; i <objobject.length; i ++) {
if (objobject.options [i] .selected && objobject.options [i] .value! = noremoveValue)
{
objobject.options.remove (i);
Removelist (NoremoveValue); Break;
}
}
}
기능 removealllist (NoremoveValue)
{
var objobject = form1.objectList;
var objlen = objobject.length;
for (var i = 0; i <objlen; i ++) {
if (objobject.options [i] .value! = noremoveValue) {
objobject.options.remove (i);
removealllist (noremoveValue); break;
}
}
}
선택한 기능 (OBJ)
{
for (var i = 0; i <obj.length; i ++) {
obj.options [i] .selected = true;
}
}
기능 checkexist (obj, value)
{
var isexist = false;
for (var i = 0; i <obj.length; i ++) {
if (obj.options [i] .value == value) {
isexist = true;
부서지다;
}
}
반환은 isexist;
}
함수 addTolist (obj, value, label) {
obj.add (새 옵션 (값, 레이블));
}
</스크립트>
</head>
<body bgcolor = "#ffffff">
<form name = "form1"action = "temp.asp"method = "post">
<테이블 cellspacing = "0"cellPadding = "0">
<tr>
<td> <select name = "sourcelist"size = "10"multiple id = "sourcelist">
<옵션 값 = "a"> 1 </옵션>
<옵션 값 = "b"> 2 </옵션>
<옵션 값 = "C"> 3 </옵션>
<%
i = 6 ~ 20의 경우
response.write ( "<옵션 값 =" ""& i+200 & "" ">"& i+200 & "</옵션>"& vbcrlf)
다음
%>
</선택> </td>
<td> <input name = "add"type = "button"id = "add"value = "add"onclick = "addSelectedList ()"> <br>
<input name = "add"type = "button"id = "add"value = "all ad adl"onclick = "addalllist ()"> <br>
<input name = "add"type = "button"id = "add"value = "remove"onclick = "removeSelectedList ( 'a')"> <br>
<input name = "add"type = "button"id = "add"value = "all remove"onclick = "removealllist ( 'a')">
<input name = "add"type = "button"id = "add"value = "all"onclick = "selectedall (form1.objectlist)"> </td>
<td> <select name = "ObjectList"size = "10"multiple id = "ObjectList">
<옵션 값 = "a"> 1 </옵션>
<옵션 값 = "d"> 4 </옵션>
<옵션 값 = "e"> 5 </옵션>
<%
i = 6 ~ 20의 경우
response.write ( "<옵션 값 =" ""& i & "" ""> "& i &"</옵션> "& vbcrlf)
다음
%>
</선택> </td>
</tr>
<tr>
<td> </td>
<td> <입력 이름 = "subm"type = "제출"value = "제출"> </td>
<td> </td>
</tr>
</테이블>
</form>
</body>
</html>