Response.Write valPrefix & opts
Response.Write "</SELECT>"
%>

　　你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ 附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了：

<%
Set RS = conn.Execute("SELECT * FROM table")
tdSuffix = "</TD>" & vbNewLine & "<TD>
trPrefix = "<TR>" & vbNewLine & "<TD>"
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(trPrefix) )
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine
Response.Write trPrefix & opts
Response.Write "</TABLE>" & vbNewLine
%>
------------------------------------------------------------------------

　　再介绍一个完全不同的办法。。。（我看了快昏倒）

<%
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
%>

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

<%
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
%>
……………………

　　：（ 不多说了 希望能对你有所帮助

上一页  [1] [2] 

在google里搜索更多介绍一个制作下拉菜单完全不同的办法

	Web www.51ec.org

上一篇信息学院： 教你1小时里搞定ASP

下一篇信息学院： ASP基本问题解决： VBScript函数…