100分求助！关于select框数据传输的问题！拜托各位大侠了！～谢谢！！！急用，在线等

titan_fsw 2003-10-21 09:46:25
拜托各位大侠帮我看看下面的代码！我原来想实现的是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>
...全文
44 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
<% @LANGUAGE=VBSCRIPT%>
<%
set cnn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
cnnstr="DRIVER={SQL SERVER};SERVER=(local);UID=toeic;PWD=toeic123;DATABASE=stinfos"
cnn.open cnnstr

' -- Save to MyDB
dim szDep
if Request.QueryString("action") = "new" then
szDep = Split(Request.Form("b"),",")
For i = 0 To Ubound(szDep)
sql = "Insert Into id_table(dep) Values('" & szDep(i) & "')"
Response.write sql
cnn.execute(sql)
next
end if
%>
<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")


sqlstr="select dep from id_table"
rs.open sqlstr,cnn,1,1
%>
<form name="frm" method="Post" action="1.asp?action=new" >
<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">
<%' -- Add some value here %>
<option value=1>1</option>
<option value=2>2</option>
<option value=3>3</option>
<option value=4>4</option>
</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" multiple id="b" style="width:150">
</select></td>
</tr>
<tr>
<td height="47" align="right">  </td>
<td> </td>
<td> </td>
</tr>
</table>
<br>
<br>
<input type=submit onclick="clk()">
</form>
</body>

<SCRIPT LANGUAGE="JavaScript">
<!--
function clk()
{
for( var i = 0; i < frm.b.options.length; i++ )
frm.b.options[i].selected = true;
}
//-->
</SCRIPT>
</html>

xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
<% @LANGUAGE=VBSCRIPT%>
<%
set cnn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
cnnstr="DRIVER={SQL SERVER};SERVER=(local);UID=toeic;PWD=toeic123;DATABASE=stinfos"
cnn.open cnnstr

' -- Save to MyDB
dim szDep
if Request.QueryString("action") = "new" then
szDep = Split(Request.Form("b"),",")
For i = 0 To Ubound(szDep)
sql = "Insert Into id_table(dep) Values('" & szDep(i) & "')"
Response.write sql
cnn.execute(sql)
next
end if
%>
<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")


sqlstr="select dep from id_table"
rs.open sqlstr,cnn,1,1
%>
<form name="frm" method="Post" action="1.asp?action=new" >
<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">
<%' -- Add some value here %>
<option value=1>1</option>
<option value=2>2</option>
<option value=3>3</option>
<option value=4>4</option>
</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" multiple id="b" style="width:150">
</select></td>
</tr>
<tr>
<td height="47" align="right">  </td>
<td> </td>
<td> </td>
</tr>
</table>
<br>
<br>
<input type=submit onclick="clk()">
</form>
</body>

<SCRIPT LANGUAGE="JavaScript">
<!--
function clk()
{
alert( frm.b.value);
}
//-->
</SCRIPT>
</html>

xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
还不行，QQ加我

120101412
xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
那个提示框吗？

要选择数据在提交呀！



还是什么？？？
titan_fsw 2003-10-21
  • 打赏
  • 举报
 回复
xiaobird1大哥！还是不行！～没有数据显示，按你上面的代码，选择之后点击那个按钮还是显示空的！～代码我已经改成和你给的一样的了！～
titan_fsw 2003-10-21
  • 打赏
  • 举报
 回复
xiaobird1大哥！加了那个显示b框数据的button弹出来的窗口出来是空的！我就是不理解为什么！
xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
帮你改了改。


现在可以提交和接受数据了。

不过我把action设为了本页，作了注释。你自己改回来吧。
xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
<% @LANGUAGE=VBSCRIPT%>
<%
' -- Save to MyDB
if Request.QueryString("action") = "new" then
Response.write Request.Form("b")
end if
%>
<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=(local);UID=toeic;PWD=toeic123;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" method="Post" action="1.asp?action=new" >
<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">
<%' -- Add some value here %>
<option value=1>1</option>
<option value=2>2</option>
<option value=3>3</option>
<option value=4>4</option>
</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" multiple id="b" style="width:150">
</select></td>
</tr>
<tr>
<td height="47" align="right">  </td>
<td> </td>
<td> </td>
</tr>
</table>
<br>
<br>
<input type=submit onclick="clk()">
</form>
</body>

<SCRIPT LANGUAGE="JavaScript">
<!--
function clk()
{
alert( frm.b.value);
}
//-->
</SCRIPT>
</html>
aBoris 2003-10-21
  • 打赏
  • 举报
 回复
<form name="frm" action="../upfile/savereader.asp" method="post">
titan_fsw 2003-10-21
  • 打赏
  • 举报
 回复
lihua9666大哥！这就是困扰小弟的问题啊！会不会是js函数的问题呢？！但是我看不懂那段js函数的代码，其实这是我拷人家的程序后改的！拜托各位！谢谢！
qdubit 2003-10-21
  • 打赏
  • 举报
 回复
关注！
titan_fsw 2003-10-21
  • 打赏
  • 举报
 回复
xiaobird1大哥！请问您说的是什么意思！？小弟是新学asp啊！要指定submit的method是应该怎么指定？！在哪里？！button那吗？
lihua9666 2003-10-21
  • 打赏
  • 举报
 回复
即使能在在b框中显示出数据
为何
查看运行后的代码发现b框的options中是没有数据
不明白？
xiaobird1 2003-10-21
  • 打赏
  • 举报
 回复
你的代码还没制定submit的method
titan_fsw 2003-10-21
  • 打赏
  • 举报
 回复
拜托各位了啊！！！！！！！救命救命！～～～～
windows网络编程之tcp/ip
课程分八章，总课时100课时左右，每日更新2~5节. 课程代码会带大家一行一行书写，保证大家都能够学会。 课程适合人群： 网络编程爱好者，网络编程初学者 课程章节： 第一章 c/s模型的讲解以及代码实现 第二章&...
iView Select组件回显失败、设置默认值失败问题总结（！！！注意select绑定的value值数据类型是否一致）
iView Select组件回显失败、设置默认值失败问题总结（！！！注意select绑定的value值数据类型是否一致）
爬坑！！antd中select组件的defaultValue取不到数据问题
antd中select组件的defaultValue相关问题 需求一：是这样的，想要在下拉菜单的框里首先显示一个默认值，默认下拉菜单的第一项，而不是placeholder。 但是由于下拉菜单是请求回来的数据，因为你不能在页面渲染的时候...
select下拉框多选，超级好用！十分强大！
先说点废话：一个需求,想把select变成下拉多选，网上查找了半天，给出的方案都是自定义一个标签，或者弄个什么ul下面li进行选择，看起来就繁琐，本人只想在select上面做文章，不得已，自己写了一个，只需要在select...
iview框架的select碰到回显深坑，解决方案！
问题描述使用select控件，并使用该控件的远程搜索功能，当将该功能添加在新增model里面的时候，正常使用，当在详情model里面复用该控件的时候回显出现问题，回显的时候，只要有变动数据该控件就会显示空。...
ASP

28,390

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章