» 您尚未 登录   注册 | 社区服务 | 帮助 | 社区 | 无图版


常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
 XML   RSS 2.0   WAP 

--> 本页主题: 介绍一个制作下拉菜单完全不同的办法。 加为IE收藏 | 收藏主题 | 上一主题 | 下一主题
阿七




该用户目前不在线
级别: 未验证会员
精华: 0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
查看作者资料 发送短消息 推荐此帖 引用回复这个帖子

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

介绍一个制作下拉菜单完全不同的办法。 n) D  
出处   1=9GV+`n  
VG$;ri>  
介绍一个制作下拉菜单完全不同的办法。 YSfJUB!I  
作者: 未知 +R;LHRS%  
*<[\|L:#]Z  
…… { ] 0T  
我是头一回知道这个方法,以前从没听用过,以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的,现在,让我们来看一下老外的办法。 ?|}qT05  
利用RecordSet.GetString来制作动态下拉菜单。 9B83HV4J  
adodb.recordset的getstring方法有一些BUG,但是你使用得小心一点的话它可以为您工作的很好。 ]BRwJ2< x  
先介绍一下GETSTRING的用法……如下: * uccY_  
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) SdMLO6-  
只要建立了RS对象,并且执行了相应操作,不管那是返回一条或者多条记录,甚至是空记录,getstring照样工作,但是如果不加注意的话,这个结果可能就不大好玩了,:P(这个老外也够幽默的) h -091N  
FORMAT参数只有一个合法值,而且是可选的,让我们略过不管它,如果您想返回全部记录的话,那么那个numrows参数也可以不管它了(可选),IFNULL……照我的理解就象TSQL里的isnull函数差不多,如果是NULL,则随便搞个值替换它,所以也不管它。 pEN`6*  
剩下两个参数了。。。。不多说废话了,先看他们的例子 {x..> 4  
<TABLE Border=1> {-]K!tWda  
<TR><TD> iyUn xqP  
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> w}(pc }^U  
</TABLE> 3A~<|< }t  
这样写的HTML结果如下: $83Qd  
<TABLE Border=1> Qz2jV  
<TR> C{G=Y[?oc  
<TD>row1, field1 value</TD> QG L~??  
<TD>row1, field2 value</TD> 2\|sXC  
</TR> yzL9Ic  
<TR> v6! `H  
<TD>row2, field1 value</TD> Q.V@Sawe5  
<TD>row2, field2 value</TD> g1y@z8Z{  
</TR> K*1]P ar;  
<TR> --c)!Vxzx  
</TABLE> L >hLYIW  
这个也是老外口中说的那个BUG了,让我们看一下具体怎么做的 n<b}6L}  
<% ^HT vw~]5  
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") >lek@euqw  
optSuffix = "</OPTION>" & vbNewLine hM="9] i.  
valPrefix = "<OPTION Value='" i/!KUbt  
valSuffix = "'>" d#ab"&$bv  
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) P+_1*lOG  
' Next line is the key to it! M-+!z5 q~d  
opts = Left( opts, Len(opts)-Len(valPrefix) ) =dQF}-{!  
Response.Write "<SELECT ...>" & vbNewLine <RH%FhT  
Response.Write valPrefix & opts 4[%_Bnv#AJ  
Response.Write "</SELECT>" KRP6b:+4L  
%> Klu0m~X@  
你用过这种方法么,实话,我可从没见过,也没听有人说起,:( v9f%IE4fX  
附带一下,您如果想建立一个正确的表格的话,也就是我头上说的那个BUG,只要这样做就可以了: DM\pi9<m  
<% c3<H272\  
Set RS = conn.Execute("SELECT * FROM table") ).Iifu|ks  
tdSuffix = "</TD>" & vbNewLine & "<TD> {`> pigo  
trPrefix = "<TR>" & vbNewLine & "<TD>" 0dD.xuo r  
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine L$,Kdpj  
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) "s`#` '  
' Next line is the key to it! I.SMn,N  
opts = Left( opts, Len(opts)-Len(trPrefix) ) m5P@F@  
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine z$/s` |]  
Response.Write trPrefix & opts D&],.N  
Response.Write "</TABLE>" & vbNewLine bpDlFa  
%> ;xai JJK{  
------------------------------------------------------------------------ Gsm. a  
再介绍一个完全不同的办法。。。(我看了快昏倒) <<@F{B7h  
<% ]4lC/ &nm  
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" z'gJy  
Set RS = conn.Execute(SQL) 9sv#TT5V  
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" ,WoV)L'?  
%> dn_l#$ U  
你用过吗。。。 &v:[+zw  
看到了吗?可以直接从查询中返回结果。 mMCd   
再进一步,您可以这样做(ACCESS下我试过) lgb q^d  
<% a:1$idj  
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" F"' (i  
Set RS = conn.Execute(SQL) wRX#^;O9?>  
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" 4P7r\ hs  
%> xxC2 h3  
…………………… wkJ@#jD*[  
:( 8>I4e5Ym  
不多说了 t7e7q"+/  
希望能对你有所帮助

[楼 主] | Posted: 2006-04-03 13:59 顶端

常州五颜六色网络技术有限公司 -> 网站建设



Copyright © 2005-2009 5y6s Inc. 苏ICP备05001866号 Powered by PHPWind 5.0.1
Total 0.010126(s) query 4, Gzip enabled
会员言论不代表本站立场 本站法律顾问:北京汇泽律师事务所 韩律师
QQ:点击这里给我发消息 /点击这里给我发消息 /点击这里给我发消息
51La