另开一贴,原在asp,关于两个select互排

slysmart slysmart 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
<%
Dim list
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../db/db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rs=conn.execute("select a from b")
do while not rs.eof
list=list&"<option>"&rs("a")&"</option>"
rs.movenext
Loop
Rs.Close:Set Rs=Nothing
Response.write "<select id='scs' onchange='mselect()'>"&list&"</select>"
Response.write "<select id='scscms'>"&list&"</select>"
%>
<script type="text/javascript">
var option="";
function mselect(){
var scs=document.getElementById("scs");
var scscms=document.getElementById("scscms");
var n=scs.selectedIndex;
for(var i =0;i<scscms.options.length; i++){
if(scs.options[n].text==scscms.options[i].text)
scscms.options.remove(i);
}
if(option!="")scscms.add(option);
option=new Option(scs.options[n].text,"");
}
mselect();
</script>

上面mselect()只能做到,选择scs时,scsms中删除,当scsms中选择值时,此时再重新选择scs时,选择项中也要删除scsms选择值
...全文

相关推荐

评论 10
收藏 已收藏
分享
返回顶部
slysmart
JavaScript 87,984 成员 224,681 内容