<script language="vbscript">
function checked1()
m=(form1.ksmc.value)
window.location.href="jzgxx.asp?ksid="& m
end function
</script>
<select name="ksmc" id="select" onChange="checked1()">
<option value="0"></option>
<% while not rs.eof %>
<option value=<%=rs("ksid")%> <% if trim(request.QueryString("ksid"))=trim(rs("ksid")) then response.Write " selected" else response.Write "" end if %>><%=rs("ksmc")%></option>
<% rs.movenext
wend
rs.close
set rs=nothing %>
</select>