可编辑的HTML下拉框

   < div  style ="position:absolute;" >
                         < select  name ="sel_jbr"  style ="position:absolute;top:-8px; width: 80px; height: 20px; clip:rect(0 180 110 60) "
                                 onChange ='jbr.value=this.options[this.selectedIndex].value' >
                                <%
                                    str_sql = " select * from @@@ "
                                    MyDr = MyData.MyDataRead(myconn,str_sql)
                                     while  MyDr.read()
                                        myselected = ""
                                         if  MyDr.item( " mc " ) = jbr0  then  myselected = " selected "
                                 %>
                                 < option  value =<%=MyDr.item("mc")% >   <% = myselected %>  > <% = MyDr.item( " mc " ) %> </ option >
                                 <%
                                     end   while
                                    MyConn.Close()
                                 %>
                         </ select >
                         < input  name ="jbr"  type ="text"  value ="<%=jbr0%>"
                        style ="position:absolute;top:-8px; width: 79px; height:21px" >
</div>

做派车登记的时候，由于经办人太多，下拉框一条太长了，车队派车时，找自己名字比自己输入还难受，就改成这样了～其实就是下拉框和文本框重叠的一个效果，再加个onchange就OK了~