100分求助!关于select框数据传输的问题!拜托各位大侠了!~谢谢!!!急用,在线等
拜托各位大侠帮我看看下面的代码!我原来想实现的是a框读出数据库中的数据,然后a框中的数据有选择的放到b框中,再按确定键之后b框中的数据又写到数据库中的第二张表里。但是用下面的代码之后a框是取出数据了,也可以在b框中显示出我在a框中选出的数据,但是不能从b框中将数据写回数据库,查看运行后的代码发现b框的options中是没有数据的。拜托各位帮帮忙救救小弟啊!!!!!烦了很久的了!~
<% @LANGUAGE=VBSCRIPT%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<script language="JavaScript">
<!--
/*move(s1,s2,flag):s1是源列表框,s2是目的列表框,flag是是否全部移动*/
function move(s1,s2,flag){
var tem=new Array();
var sa=document.frm.elements[s1];
var sb=document.frm.elements[s2];
var s=sa.selectedIndex>-1?1:0
with(sa)
for(i=length-1;i>=0;i--)
if(options[i].selected||flag){tem[tem.length]=options[i];options[i]=null}
if(s||flag){
for(i=0;i<sb.length;i++)tem[tem.length]=sb.options[i]
with(sb){
length=0;
tem.sort(sortArr)
for(i=0;i<tem.length;i++)options[length]=new Option(tem[i].text,tem[i].value)
}
}
}
/*move_self(s,flag):s是列表框name,flag(1,-1),是上移或下移*/
function move_self(s,flag){
var sa=document.frm.elements[s]
var tem;
with(sa){
if(flag==1){
if(selectedIndex>0)
for(i=0;i<length;i++)
if(options[i].selected){
tem_text=options[i].text;tem_value=options[i].value
options[i].text=options[i-1].text;
options[i].value=options[i-1].value;
options[i-1].text=tem_text;options[i-1].value=tem_value
options[i-1].selected=true;options[i].selected=false
}
}
else
for(i=length-1;i>=0;i--)
if(options[i].selected){
if(i==length-1)break;
tem_text=options[i].text;tem_value=options[i].value
options[i].text=options[i+1].text;
options[i].value=options[i+1].value;
options[i+1].text=tem_text;options[i+1].value=tem_value
options[i+1].selected=true;options[i].selected=false
}
}
}
/*显示列表框选中的值,s是列表框的name*/
function show(s){
var str=""
with(document.frm.elements[s])
for(i=0;i<length;i++)
if(options[i].selected)str+="\n第"+(i+1)+"个option:\ntext:"+options[i].text+" value:"+options[i].value
alert(str)
}
function sortArr(a,b){
if(a.text>b.text)return 1
if(a.text<b.text)return -1
return 0
}
//-->
</script>
<%dim dz(50)
Dno=request("Dno")
set cnn=server.CreateObject("adodb.connection")
cnnstr="DRIVER={SQL SERVER};SERVER=22.141.1.37;UID=infos;PWD=infos;DATABASE=stinfos"
cnn.open cnnstr
set rs=server.CreateObject("adodb.recordset")
sqlstr="select dep from id_table"
rs.open sqlstr,cnn,1,1
%>
<form name="frm" action="../upfile/savereader.asp">
<table width="750" border="1" align="center" cellspacing="2" bordercolor="#FF0000">
<tr align="center" valign="middle">
<td colspan="3">为<%=Dno%>号文添加读者</td>
</tr>
<tr>
<td align="right"> <select name="a" size="5" style="width:150" multiple>
<%
i=1
do while not rs.eof
response.Write("<option value="&rs("dep")&">"&rs("dep")&"</option>")
dz(i)=rs("dep")
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
cnn.close
set cnn=nothing
%>
</select> </td>
<td width="77" align="left" valign="middle"> <input name="button3" type=button onclick="move('a','b')" value="添加>">
<br> <input name="button" type=button onclick="move('a','b',1)" value="添加全部">
<br> <input name="button5" type=button onclick="move('b','a')" value="<删除">
<br> <input name="button2" type=button onclick="move('b','a',1)" value="删除全部">
</td>
<td width="337"><select name="b" size="5" style="width:150" multiple>
</select></td>
</tr>
<tr>
<td height="47" align="right"> </td>
<td> </td>
<td> </td>
</tr>
</table>
<br>
<br>
</form>
</body>
</html>