<select name="et" onChange="changeselect1(this.value)">
我想把值放在这里面
</select>弄了好久,<!--#include file="conn.asp"-->
<%  
dim data
Response.CharSet = "GB2312"
city=request("citymc")
Sqlstr="select distinct et from citydata where city='"+ city +"'"
Set rs=server.CreateObject("ADODB.RecordSet")
On Error Resume Next
rs.Open Sqlstr,conn,1,3,1
while not rs.eof
data=data&"<option value="&rs(0)&">"&rs(0)&"</option>"
rs.movenext()
wend
response.Write(data)
%>
结果是这样<option>九江市</option><option>瑞昌市</option>插不进select中 

解决方案 »

  1.   

    <select name="et" onChange="changeselect1(this.value)">
    <%  
        dim data
        Response.CharSet = "GB2312"
        city=request("citymc")
        Sqlstr="select distinct et from citydata where city='"+ city +"'"
        Set rs=server.CreateObject("ADODB.RecordSet")
        On Error Resume Next
        rs.Open Sqlstr,conn,1,3,1
            while not rs.eof
                    data=data&"<option value="&rs(0)&">"&rs(0)&"</option>"
                rs.movenext()
            wend
        response.Write(data)
    %>
    </select>