主要是一个选择下拉分类框

<%set Rs=server.CreateObject("adodb.recordset")
Rs.open "select * from NewsType where TypeLevel=2 ",cnn,1,1
%>

Please Choose
<%do while not Rs.eof%>
" selected="selected"><%=trim(Rs("NewsTypename"))%>
<%Rs.movenext
loop
Rs.close
set Rs=nothing%>