程序代码：

    <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>