 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
我是头一回知道这个方式，以前从没听用过，以前假如我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 利用RecordSet.GetString来制作动态下拉菜单。 adodb.recordset的getstring方式有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 先介绍一下GETSTRING的用法……如下： stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) 只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是假如不加注重的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，假如您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，假如是NULL，则随便搞个值替换它，所以也不管它。 剩下两个参数了。。。。不多说废话了，先看他们的例子 <TABLE Border=1> <TR><TD> <% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> </TABLE> 这样写的HTML结果如下： <TABLE Border=1> <TR> <TD>row1, field1 value</TD> <TD>row1, field2 value</TD> </TR> <TR> <TD>row2, field1 value</TD> <TD>row2, field2 value</TD> </TR> <TR> </TABLE> 这个也是老外口中说的那个BUG了，让我们看一下详细怎么做的 <% Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") optSuffix = "</OPTION>" & vbNewLine valPrefix = "<OPTION Value=\\\'" valSuffix = "\\\'>" opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) \\\' Next line is the key to it! opts = Left( opts, Len(opts)-Len(valPrefix) ) Response.Write "<SELECT ...>" & vbNewLine 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>" %> …………………… ：（ 不多说了 希望能对你有所帮助 返回类别: 教程 上一教程: ASP写的日志处理方式 下一教程: 怎样做自己的二级域名(之二) 您可以阅读与"介绍一个制作下拉菜单完全不同的办法"相关的教程: · 介绍一个用ASP来压缩ACCESS数据库的例子 · 下拉菜单支持输入，并根据输入内容自动定位 · 用DHTML来模仿实现下拉菜单 · 三层动态下拉菜单的例子 · 动态创建下拉菜单 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
