复制代码代码如下:
<%
redup a
a = split (request.form ("sourcelist"), ",")
Response.write "Sumber:" & Request.Form ("Sourcelist") & Ubound (a) & "<br> objek:" & request.Form ("ObjectList") & "<br>"
%>
<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<title> dokumen tanpa judul </iteme>
<Tipe Gaya = Teks/CSS>
.bgsubleft {
Latar belakang posisi: bagian bawah tengah; Latar belakang-gambar: url (gambar/bgleft.gif); Latar Belakang-Repeat: Repeat-X
}
.bgsubleftn {
Latar belakang posisi: dasar kiri; Latar belakang-gambar: url (gambar/bgleftn.gif); Latar Belakang-Repeat: No-Repeat
}
</tyle>
<bahasa skrip = "javascript" type = "text/javascript">
fungsi addSelectedList ()
{
var objsource = form1.sourcelist;
var objObject = form1.objectList;
var sourcelen = objsource.length;
untuk (var i = 0; i <Sourcelen; i ++) {
if (objSource.Options [i] .poelected) {
if (! checkexist (objObject, objsource.options [i] .value)) {
addTolist (objObject, objSource.Options [i] .text, objSource.Options [i] .value);
}
}
}
}
fungsi addAlllist ()
{
var objsource = form1.sourcelist;
var objObject = form1.objectList;
var sourcelen = objsource.length;
untuk (var i = 0; i <Sourcelen; i ++) {
if (! checkexist (objObject, objsource.options [i] .value)) {
addTolist (objObject, objSource.Options [i] .text, objSource.Options [i] .value);
}
}
}
Fungsi RemoveSelectedList (Noremovevalue)
{
var objObject = form1.objectList;
untuk (var i = 0; i <objObject.length; i ++) {
if (objObject.options [i] .Selected && objObject.options [i] .value! = Noremovevalue)
{
objObject.options.remove (i);
pemindahan (noremovevalue); break;
}
}
}
Fungsi RemoveLlist (Noremovevalue)
{
var objObject = form1.objectList;
var objlen = objObject.length;
untuk (var i = 0; i <objlen; i ++) {
if (objObject.options [i] .value! = Noremovevalue) {
objObject.options.remove (i);
removeAlllist (Noremovevalue); break;
}
}
}
Fungsi SelectectedAll (OBJ)
{
untuk (var i = 0; i <obj.length; i ++) {
OBJ.Options [i] .DoSTED = true;
}
}
fungsi checkexist (obj, nilai)
{
var isExist = false;
untuk (var i = 0; i <obj.length; i ++) {
if (obj.options [i] .Value == nilai) {
isExist = true;
merusak;
}
}
kembali isexist;
}
fungsi addTolist (obj, nilai, label) {
obj.add (opsi baru (nilai, label));
}
</script>
</head>
<body bgcolor = "#ffffff">
<Form name = "Form1" Action = "Temp.asp" Method = "Post">
<tabel cellspacing = "0" cellpadding = "0">
<tr>
<td> <pilih name = "sourcelist" size = "10" beberapa id = "sourcelist">
<Option value = "a"> 1 </pection>
<Option value = "b"> 2 </pection>
<Option value = "c"> 3 </pection>
<%
untuk i = 6 hingga 20
Response.write ("<option value =" "" & i+200 & "" ">" & i+200 & "</tiption>" & vbcrlf)
Berikutnya
%>
</pilih> </td>
<td> <input name = "add" type = "tombol" id = "add" value = "add" ontClick = "addselectedList ()"> <br>
<input name = "tambahkan" type = "tombol" id = "add" value = "tambahkan semua" onclick = "addAlllist ()"> <br>
<input name = "tambahkan" type = "tombol" id = "add" value = "rampai" ontClick = "RemoveSelectedList ('a')"> <br>
<input name = "tambahkan" type = "tombol" id = "add" value = "hapus semua" onclick = "removeAlllist ('a')">
<input name = "tambahkan" type = "tombol" id = "add" value = "pilih semua" onclick = "selectedAll (form1.objectList)"> </td>
<td> <pilih name = "ObjectList" size = "10" Multiple ID = "ObjectList">
<Option value = "a"> 1 </pection>
<Option value = "d"> 4 </pection>
<Option value = "e"> 5 </pection>
<%
untuk i = 6 hingga 20
Response.write ("<option value =" "" & i & "" ">" & i & "</tiption>" & vbcrlf)
Berikutnya
%>
</pilih> </td>
</tr>
<tr>
<td> </td>
<td> <input name = "kirim" type = "kirim" value = "kirim"> </td>
<td> </td>
</tr>
</boable>
</form>
</body>
</html>