建站代码网

热门标签

写出下拉菜单的记录

写出数据库到下拉菜单的记录是和把他们写到页面一样容易的。下面的例子会查询我们的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%>