阿七
级别: 未验证会员
精华:
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} <% ^HTvw~]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-+!z5q~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下我试过) lgbq^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 |
| |