28,404
社区成员
发帖
与我相关
我的任务
分享<tr> <td align=right bgcolor="#eeeeee">单位名称: </td>
<td colspan="2" bgcolor="#eeeeee"> <input type="text" name="aa" /> </td>
<td colspan="2" bgcolor="#eeeeee"> <input type="text" name="bb" /> </td>
<td colspan="2" bgcolor="#eeeeee"> <select name="select" onchange="bbb(this.value)">
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from [cqgh]"
rs.Open sql,conn1,1,1
do while not rs.eof
%>
<option id="op"<%=rs("id")%> value1=<%=rs("单位名称")%> value= <%=rs("id")%>> <%=rs("单位名称")%> </option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select> </td>
<script language="javascript">
function bbb(values)
{
var tValues
tValues= document.getElementById("op" + values).getAttribute('value1');
if(document.all.aa.value=="")
{
document.all.aa.value=tValues;
document.all.bb.value=tValues;
}
else
{
document.all.aa.value=document.all.aa.value+","+tValues;
document.all.aa.value=document.all.bb.value+","+tValues;
}
}
</script>
<tr>
<script language="javascript">
function check(){
var zz1=document.all.dwid1.value;
var zz2=document.all.dwid2.value;
var xx=document.all.dwid.value;
if(xx=="0"){
//当点击“请选择”的时候清空两个文本框内的内容。
document.all.dwid1.value="";
document.all.dwid2.value="";
return false;
}else{
var yy=xx.split(",");
if(zz1=="" && zz2==""){
document.all.dwid1.value=yy[0];
document.all.dwid2.value=yy[1];
}else if(zz1.toString().indexOf(yy[0])>=0 && zz2.toString().indexOf(yy[1])>=0){
//判断是否已经选择。
return false;
}else{
document.all.dwid1.value +=","+yy[0];
document.all.dwid2.value +=","+yy[1];
}
}
}
</script>
<table>
<tr><td align=right bgcolor="#eeeeee">单位名称:</td>
<td colspan="2" bgcolor="#eeeeee">
<input type="text" name="dwid1" id="dwid1">
<input type="text" name="dwid2" id="dwid2">
</td>
<td colspan="2" bgcolor="#eeeeee">
<select name="dwid" onChange="check()">
<option value="0">--请选择-- </option>
<%
set rs = server.CreateObject("adodb.recordset")
sql = "select * from [cqgh]"
rs.Open sql,conn1,1,1
if not rs.eof then '最好加上这句判断记录是否为空,避免出错.
do while not rs.eof
%>
<option value="<%=rs("单位名称")%>,<%=rs("id")%>"><%=rs("单位名称")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</select>
</td><tr></table>