写出下拉菜单的记录

写出数据库到下拉菜单的记录是和把他们写到页面一样容易的。下面的例子会查询我们的Simpson's 数据库的15段标题。注意输出下拉菜单也会利用到server.urlencode来改变选项值区域的输出。
<%
accessdb="simpsons" 
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.maxrecords=15


sql = "select title from shows" 


rs.Open sql, cn
%>




<select size="1" name="variable_name">
<option selected value="">Titles</option>


<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
title= rs("title") %>


<option value="<%= server.urlencode(title)%>"><%= title %></option>




<%
rs.MoveNext

loop%>

简单生活，希望对大家有用!要觉得本文有价值请分享给您的朋友，生活就是人来人往，分享越多!收获越多!作者：天天ASP家园