select

 试验类别： <select name="sy_type">
      <%
        typeSQL="select sid,name from Q_TYPE where type=4 order by import"
         set typeRS=server.CreateObject("adodb.recordset")
         typeRs.open typeSQL,cnn,1,1
         do while not typeRs.eof
      %>
      <option value="<%=typeRs("sid")%>" <%if sy_type=ccint(typeRs("sid")) then      response.Write             ("selected") %>><%=typeRs("name")%></option>
      <%
         typeRs.movenext
     loop
        typeRs.close
        set typeRs=nothing
      %>    
  </select>

 

var ddl = document.getElementById("DDL_QType");

 

var value =ddl.value;
var txt = dll.options[ddl.selectedIndex].text;
alert(txt + value);