阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 X' d\b}Bm
出处 2 zo>`;l
(ht"wY#T<(
介绍一个制作下拉菜单完全不同的办法。 jhT/} "v
作者: 未知 Tu:lIy~A
qPu?rU{2
…… .9DhD=8aIO
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 J;fbE8x
利用RecordSet.GetString来制作动态下拉菜单。 dnANlNMk?
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 *h?*RUQ
先介绍一下GETSTRING的用法……如下： B4OFhtYE
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) =
CXX.%N
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） "<oR.f= 0
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 :hHKm|1FE
剩下两个参数了。。。。不多说废话了，先看他们的例子
i [/1AI
<TABLE Border=1> o/U}G,| G
<TR><TD> HELTL$j,b
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> $7-4pW$ y
</TABLE> 7x*L 1>[`'
这样写的HTML结果如下： p3%cb?G%w
<TABLE Border=1> [CnoM N
<TR> r*7J#M /
<TD>row1, field1 value</TD> CyS.GdyP
<TD>row1, field2 value</TD> 'mU\X!-
4<
</TR> ZA4sEVHW
<TR> CIR2sr0a
<TD>row2, field1 value</TD> ,|O|gh$s
<TD>row2, field2 value</TD> [c>YKN2qa
</TR> yW YsN
<TR> 5t-(MY
</TABLE> $a')i<m^g
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 QswFISch
<% 'kCr1t
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") f <DqA/$
optSuffix = "</OPTION>" & vbNewLine \p izVt
valPrefix = "<OPTION Value='" h>NuQo*
valSuffix = "'>" U_0"1+jbq
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) 6r5<uZ9w_X
' Next line is the key to it! %tz foiJ%P
opts = Left( opts, Len(opts)-Len(valPrefix) ) | >p?Cm
Response.Write "<SELECT ...>" & vbNewLine yzCamm4~0
Response.Write valPrefix & opts :2& W9v
Response.Write "</SELECT>" tjy@sO/Q
%> 1`&"U[{
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ d>Np; "
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： 9<!Ie^o?
<% XgZ.U
T
Set RS = conn.Execute("SELECT * FROM table") z`@|v~i0`
tdSuffix = "</TD>" & vbNewLine & "<TD> & FzZpH
trPrefix = "<TR>" & vbNewLine & "<TD>" g"v-hTx
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine Rp"" &0
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) y[:x Gf]8@
' Next line is the key to it! ^&8xfI6?
opts = Left( opts, Len(opts)-Len(trPrefix) ) -6>T0
-
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine $> PV6
Response.Write trPrefix & opts ^ b`aO$
Response.Write "</TABLE>" & vbNewLine nJo6 ;_MI!
%> QPpC_pZh
------------------------------------------------------------------------ 4Q(GX .5
再介绍一个完全不同的办法。。。（我看了快昏倒） NXDuO_#
<% 3At%TA:
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" iyf vcKO
Set RS = conn.Execute(SQL) qUtlh,4)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" e47N9&4
%> vTU *6)
你用过吗。。。 6` @4i'.
看到了吗？可以直接从查询中返回结果。 N1i%b,:3
再进一步，您可以这样做（ACCESS下我试过） iqP MCOPZ
<% V0!$k.Wk
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" DNl '}K1W
Set RS = conn.Execute(SQL) 5WvtvSO
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" FpM0%
%> 0'0 GAh2
…………………… tjTnFP/=
：（
%ryYa
不多说了 w z=c#}0dB
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
