复制代码代码如下:
<%
тусклый
a = split (request.form ("sourcelist"), ",")
Response.write "Источник:" & request.form ("sourcelist") & Ubound (a) & "<br> Object:" & request.form ("ObjectList") & "<br>"
%>
<html>
<голова>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<title> без названия документ </title>
<Стиль типа = текст/css>
.bgsubleft {
Справочная позиция: центральное дно; Фоно-изображение: URL (Images/bgleft.gif); Воспроизведение фона: Repeat-x
}
.bgsubleftn {
Фоно-позиция: левое дно; Фоно-изображение: URL (Images/bgleftn.gif); Восновная переписка: без повторения
}
</Style>
<script language = "javascript" type = "text/javascript">
Функция addSelectedList ()
{
var objsource = form1.sourcelist;
var objobject = form1.objectlist;
var sourcelen = objsource.length;
для (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;
для (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); перерыв;
}
}
}
Функция 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); перерыв;
}
}
}
Функция selectedall (obj)
{
for (var i = 0; i <obj.length; i ++) {
obj.options [i]. Selected = true;
}
}
Функция checkexist (obj, значение)
{
var Isexist = false;
for (var i = 0; i <obj.length; i ++) {
if (obj.options [i] .value == value) {
isexist = true;
перерыв;
}
}
вернуть искеса;
}
Функция addTolist (obj, значение, метка) {
obj.add (новая опция (значение, метка));
}
</script>
</head>
<body bgcolor = "#ffffff">
<form name = "form1" action = "temp.asp" method = "post">
<таблица cell -spacing = "0" cellpadding = "0">
<tr>
<td> <select name = "sourcelist" size = "10" несколько id = "sourcelist">
<option value = "a"> 1 </option>
<option value = "b"> 2 </option>
<опция value = "c"> 3 </option>
<%
для i = 6-20
Response.write ("<option value =" "" & i+200 & ""> "& i+200 &" </option> "& vbcrlf)
Следующий
%>
</select> </td>
<td> <input name = "добавить" type = "кнопка" id = "add" value = "add" onclick = "addselectedList ()"> <br>
<input name = "добавить" type = "кнопка" id = "add" value = "adll" onclick = "addalllist ()"> <br>
<input name = "add" type = "кнопка" id = "add" value = "ument" onclick = "removeSelectedList ('a')"> <br>
<input name = "add" type = "кнопка" id = "add" value = "ulement" onclick = "removealllist ('a')">
<input name = "добавить" type = "кнопка" id = "add" value = "select" onclick = "selectedall (form1.objectlist)"> </td>
<td> <select name = "objectList" size = "10" несколько id = "ObjectList">
<option value = "a"> 1 </option>
<option value = "d"> 4 </option>
<option value = "e"> 5 </option>
<%
для i = 6-20
Response.write ("<option value =" "" & i & ""> "& i &" </option> "& vbcrlf)
Следующий
%>
</select> </td>
</tr>
<tr>
<td> </td>
<td> <input name = "sump" type = "отправить" value = "prope"> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>