复制代码代码如下:
-
หรี่
a = split (request.form ("sourcelist"), ",")
Response.write "แหล่งที่มา:" & request.form ("sourcelist") & ubound (a) & "<br> วัตถุ:" & request.form ("ObjectList") & "<br>"
-
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<title> เอกสารที่ไม่มีชื่อ </title>
<style type = text/css>
.BGSubleft {
ตำแหน่งพื้นหลัง: กึ่งกลางด้านล่าง; ภาพพื้นหลัง: URL (images/bgleft.gif); พื้นหลังซ้ำ: ซ้ำ -X
-
.BgSubleftn {
ตำแหน่งพื้นหลัง: ด้านล่างซ้าย; ภาพพื้นหลัง: URL (รูปภาพ/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 ++) {
ถ้า (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);
-
-
-
ฟังก์ชั่นลบออกรายการ (NoremoveValue)
-
var objobject = form1.ObjectList;
สำหรับ (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;
สำหรับ (var i = 0; i <objlen; i ++) {
if (objobject.options [i] .Value! = noreMoveValue) {
objobject.options.remove (i);
RemoveAlllist (Noremovevalue); Break;
-
-
-
ฟังก์ชั่น SELECTEDALL (OBJ)
-
สำหรับ (var i = 0; i <obj.length; i ++) {
obj.options [i]. selected = true;
-
-
ฟังก์ชั่น checkexist (obj, value)
-
var isExist = false;
สำหรับ (var i = 0; i <obj.length; i ++) {
if (obj.options [i] .Value == ค่า) {
isExist = true;
หยุดพัก;
-
-
isexist กลับ;
-
ฟังก์ชั่น addtolist (obj, ค่า, ฉลาก) {
obj.add (ตัวเลือกใหม่ (ค่า, ฉลาก));
-
</script>
</head>
<body bgcolor = "#ffffff">
<form name = "form1" action = "temp.asp" method = "post">
<table cellspacing = "0" cellpadding = "0">
<tr>
<td> <เลือก name = "sourcelist" size = "10" หลาย id = "sourcelist">
<ตัวเลือกค่า = "a"> 1 </potion>
<ตัวเลือกค่า = "b"> 2 </potion>
<ตัวเลือกค่า = "c"> 3 </potion>
-
สำหรับ i = 6 ถึง 20
Response.write ("<ตัวเลือกค่า =" "" & i+200 & "" ">" & i+200 & "</potion>" & vbcrlf)
ต่อไป
-
</select> </td>
<td> <ชื่ออินพุต = "เพิ่ม" type = "ปุ่ม" id = "เพิ่ม" value = "เพิ่ม" onClick = "addSelectedList ()"> <br>
<input name = "Add" type = "ปุ่ม" id = "เพิ่ม" value = "เพิ่มทั้งหมด" onclick = "addallList ()"> <br>
<input name = "Add" type = "ปุ่ม" id = "เพิ่ม" value = "ลบ" onClick = "ลบออก ('a')"> <br>
<input name = "Add" type = "ปุ่ม" id = "เพิ่ม" value = "ลบทั้งหมด" onClick = "removeAlLlist ('a')">
<อินพุตชื่อ = "เพิ่ม" type = "ปุ่ม" id = "เพิ่ม" value = "เลือกทั้งหมด" onClick = "selectedall (form1.ObjectList)"> </td>
<td> <เลือกชื่อ = "ObjectList" size = "10" หลาย ID = "ObjectList">
<ตัวเลือกค่า = "a"> 1 </potion>
<ตัวเลือกค่า = "d"> 4 </potion>
<ตัวเลือกค่า = "e"> 5 </potion>
-
สำหรับ i = 6 ถึง 20
Response.write ("<ตัวเลือกค่า =" "" & "" ""> "& i &" </potion> "& vbcrlf)
ต่อไป
-
</select> </td>
</tr>
<tr>
<td> </td>
<td> <name input = "subm" type = "submit" value = "ส่ง"> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>