介绍一种完全不同的方式来制作下拉菜单。

　　　　　　　　　　　　

　　　　　　　　　　　　……
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。

利用RecordSet.GetString来制作动态下拉菜单。

adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。
先介绍一下GETSTRING的用法……如下：

stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull )

只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的）

FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。

剩下两个参数了。。。。不多说废话了，先看他们的例子

", ) %>

<% = Response.Write rs.GetString( , , "

", "

这样写的HTML结果如下：

row1, field1 value	row1, field2 value
row2, field1 value	row2, field2 value

这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的

<%
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText")

optSuffix = "" & vbNewLine
valPrefix = "' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write ""
%>

你用过吗。。。

看到了吗？可以直接从查询中返回结果。
再进一步，您可以这样做（ACCESS下我试过）

<%
SQL = "SELECT '' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write ""
%>
……………………

：（

不多说了

希望能对你有所帮助