下拉列表框
请问给位前辈怎样从数据库 中读取数据然后以下拉列表框的形式显示
customer变量前面已赋值
程序代码： <select name="customer">
<option value="" <%if customer="" then Response.Write(" selected")%>>请选客户</option>
<%
sql="select distinct(customer) from bgfp where bglb=0 order by customer"
Rs.Open sql,Conn,1,3
Do While Not Rs.EOF
%>
<option value="<%=Rs("customer")%>" <%if Rs("customer")=customer then Response.Write(" selected")%>><%=Rs("customer")%></option>
<%
Rs.MoveNext
loop
Rs.Close
%>
</select>
