我想要的效果是多选项搜索表单，下拉结果数据不重复显示。

以下是正常查询循环的代码：
<P>付息方式： <SELECT id=droppay name=droppay>
<OPTION selected value=———请选择———>———请选择———</OPTION>
<%
Set rs= Server.CreateObject("ADODB.Recordset")  
sql="select * from 0762seo order by id desc "
rs.open sql,conn,1,1
do while not rs.eof
%>

<OPTION value=<%=rs("zp")%>><%=rs("zp")%></OPTION>

<%rs.movenext
loop
rs.close
set rs=nothing
%>

  </SELECT> </P>

得到结果是这样的
 
2012-9-16 02:54 上传下载附件 (30.22 KB)
 
2012-9-16 02:55 上传下载附件 (21.9 KB)
这个结果太惨不忍睹.

高手怎么处理掉这些重复的循环， 试了用 distinct  就都不显示了，具体要怎么用。  
 

<P>付息方式： <SELECT id=droppay name=droppay>
<OPTION selected value=———请选择———>———请选择———</OPTION>
<%
Set rs= Server.CreateObject("ADODB.Recordset")  
sql="select * from 0762seo order by zp desc "
rs.open sql,conn,1,1
Dim zp : zp = ""
do while not rs.eof
If rs("zp")<>zp Then
%>

<OPTION value=<%=rs("zp")%>><%=rs("zp")%></OPTION>

<%
zp=rs("zp")
End If
rs.movenext
loop
rs.close
set rs=nothing
%>

  </SELECT> </P>

这样试下行不行。

哥哥   试了还是不行  有别有的办法了呢

sql="select * from 0762seo order by zp desc "
这一句你改没改？

sql="select * from 0762seo order by id desc "
修改为
sql="select distinct zp from 0762seo "
看看

<%
Set rs= Server.CreateObject("ADODB.Recordset")  
sql="select * from 0762seo order by zp desc, id desc "
rs.open sql,conn,1,1
zp = "|"
do while not rs.eof
   if zp <> rs("zp") then
     zp = rs("zp")
%>

<OPTION value=<%=rs("zp")%>><%=rs("zp")%></OPTION>

<%
   end if
   rs.movenext
loop
rs.close
set rs=nothing
%>