阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 k3-' !dW<
出处 Slk__eC
Qj?qWVapA
介绍一个制作下拉菜单完全不同的办法。 lHV&8fny
作者: 未知 <$f7&6B
7+, 6 m!4
…… iK#5 nY].
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 @E(_H$|E
利用RecordSet.GetString来制作动态下拉菜单。 ]6`] +&
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 P4M *vZq)
先介绍一下GETSTRING的用法……如下： }mz6z<pJ_
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) x6, #Jp
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） *1 }UK9X;
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 [ 7K-L6X
剩下两个参数了。。。。不多说废话了，先看他们的例子 ,[64$=R8
<TABLE Border=1> 7X Z5CX&
<TR><TD> #E[{
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> : MOr ?"
</TABLE> ` )9nBZ
这样写的HTML结果如下： qjK'sge/
<TABLE Border=1> h
0EpW5
<TR> {,Y?+F
<TD>row1, field1 value</TD> ,a:!"Z^ f
<TD>row1, field2 value</TD> E>/kNl
</TR> X~aD\%kC7
<TR> : ryE`EhB
<TD>row2, field1 value</TD> -~nU&$ccL
<TD>row2, field2 value</TD> *r Y@(|
</TR> g4NxNjM;
<TR> >L\
>Th{o
</TABLE> ;.=ZwM]C
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 3?Ml]=u
<% ; TaR1e0
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") uXs.7+f
optSuffix = "</OPTION>" & vbNewLine J
!
;g.q
valPrefix = "<OPTION Value='" -&PiD
valSuffix = "'>" bCM&Fe0GM
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) a ?LrSk`
' Next line is the key to it! M;BDo(1
opts = Left( opts, Len(opts)-Len(valPrefix) ) 'baew8Q#
Response.Write "<SELECT ...>" & vbNewLine ;Up'+[Vj'C
Response.Write valPrefix & opts zp "Lp>i
Response.Write "</SELECT>" '8.r
%> Cu5fp.OS7
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ !. \EU*)1
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： )7U^&I,
<% `>M-J-J
Set RS = conn.Execute("SELECT * FROM table") ,o $F~KPu
tdSuffix = "</TD>" & vbNewLine & "<TD> "<c^`#CWuO
trPrefix = "<TR>" & vbNewLine & "<TD>" 7Ao9MF-
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine hdL/zW7 ]
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) Vej [wY-c
' Next line is the key to it!
X?,ly3,
opts = Left( opts, Len(opts)-Len(trPrefix) ) z 6~cm6 j
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine p2]@y E7w
Response.Write trPrefix & opts rToZN!q\S
Response.Write "</TABLE>" & vbNewLine i$~2pr
%> AJk0jh\.j%
------------------------------------------------------------------------ {!?
@u? M
再介绍一个完全不同的办法。。。（我看了快昏倒） _zAHN0d
<% n#jBqr&!M
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" j]-0m4QF
Set RS = conn.Execute(SQL) ,EkzBVgo
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" I
r8,=
%> iFJ2dFA
你用过吗。。。
q|An
看到了吗？可以直接从查询中返回结果。 $uw[ X
再进一步，您可以这样做（ACCESS下我试过） $;kFu JF
<% c $Vu/dgx
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" LAe>XF-5
Set RS = conn.Execute(SQL) } tq
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" 4?+K:e #F
%> Rm@#GP`
…………………… K|i:tHF
]@
：（ 9CBKU4JQ
不多说了 t>hoXn^-
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
