<select name='ctrl_pingtai' id='ctrl_pingtai'>
<option value=''>--请选择--</option>
<%
Set Rs_pingtai=Server.CreateObject("adodb.recordset")
sql = "select * from [pingtai]"
Rs_pingtai.Open sql,conn,1,1
Do While Not Rs_pingtai.Eof
    Response.Write ("<option value='" & Rs_pingtai("pingtai_type") & "'>" & Rs_pingtai("pingtai_type") & "</option>" & vbcrlf)
    Rs_pingtai.MoveNext()
Loop
Rs_pingtai.Close()
Set Rs_pingtai = Nothing
%>
</select>

可否指引一下呢？

谢谢指引

搞定了 YEAH~

<select name='ctrl_pingtai' id='ctrl_pingtai'>
<option value=''>--请选择--</option>
<%
Set Rs_pingtai=Server.CreateObject("adodb.recordset")
sql = "select * from [pingtai] order by pingtai_type"
Rs_pingtai.Open sql,conn,1,1
Do While Not Rs_pingtai.Eof
    Response.Write ("<option value='" & Rs_pingtai("pingtai_type") & "'>" & Rs_pingtai("pingtai_type") & "</option>" & vbcrlf)
    Rs_pingtai.MoveNext()
Loop
Rs_pingtai.Close()
Set Rs_pingtai = Nothing
%>
</select>