注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

介绍一个制作下拉菜单完全不同的办法。  

2011-06-04 20:28:59|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

……
我是头一回知道这个方法,以前从没听用过,以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的,现在,让我们来看一下老外的办法。
利用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
TRTD
% = Response.Write rs.GetString( , , "/TDTD", "/TD/TRTR", ) %
/TABLE
这样写的HTML结果如下:
TABLE Border=1
TR
TDrow1, field1 value/TD
TDrow1, field2 value/TD
/TR
TR
TDrow2, field1 value/TD
TDrow2, 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"
%
……………………
:(
不多说了
希望能对你有所帮助

  评论这张
 
阅读(76)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017