阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 _wf"E(c3D
出处 \' "q6y
zT~ GBC-IX
介绍一个制作下拉菜单完全不同的办法。 v.v3HB8p
作者: 未知 H$ xSl1>E
s$:] $&5
…… Y@u
{73H
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 #D+Fq^="P
利用RecordSet.GetString来制作动态下拉菜单。 +.\JYH=yEr
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 \{+7`4g
先介绍一下GETSTRING的用法……如下： :yk Z 7X&
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) =GM!M@~,Ab
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） xY
t{=
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 " Jnq~ 7]
剩下两个参数了。。。。不多说废话了，先看他们的例子 #8|;Q`Or:
<TABLE Border=1> 5'V'~Q%
<TR><TD> HNjkRl)QR
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> TJsT .DWW~
</TABLE> rzaEVXbz1
这样写的HTML结果如下： Z*]n]eS
<TABLE Border=1> ~? b(2gn
<TR> x5`q)!<&
<TD>row1, field1 value</TD> ^QW%< X
<TD>row1, field2 value</TD> g i;V~>kh
</TR> *%) L?*
<TR> h a 8do^x
<TD>row2, field1 value</TD> J; T_ 9
<TD>row2, field2 value</TD> (uV7N7 <1
</TR> 'pm2C6AC
<TR> zL h ~x
</TABLE> GF/p|I D
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 U5H o? `<
<% ^jmnE.8R
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") /{kyjf[o&*
optSuffix = "</OPTION>" & vbNewLine .cZ&~ N
valPrefix = "<OPTION Value='" 09 %eaoW
valSuffix = "'>" hU=J^Gi0
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) .ySesN: C~
' Next line is the key to it! i
PFYG
opts = Left( opts, Len(opts)-Len(valPrefix) ) Gg
.w -&
Response.Write "<SELECT ...>" & vbNewLine { YGz=5 ^
Response.Write valPrefix & opts J<`RlDI
Response.Write "</SELECT>" xwRnrW d^6
%> 'Vrev8D
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ =AKW(v
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： ,^<+5TYM7
<% _ma 4
Set RS = conn.Execute("SELECT * FROM table") VUnEI oKM
tdSuffix = "</TD>" & vbNewLine & "<TD> Qs?+vk?*h
trPrefix = "<TR>" & vbNewLine & "<TD>" Q[b({Vj;tG
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine {!/y@/NK2
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) <m6Xh^Ko;
' Next line is the key to it! C 3b'
Q
opts = Left( opts, Len(opts)-Len(trPrefix) ) "FXS;Jf
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine CMg83
Response.Write trPrefix & opts *x l7;s
Response.Write "</TABLE>" & vbNewLine :>;ps R
%> ?X9
= 4Z~w
------------------------------------------------------------------------ ~NcJLU!au
再介绍一个完全不同的办法。。。（我看了快昏倒） I+CQ,Zuf
<%
A5`7 o9
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" JyqFFZ
&
Set RS = conn.Execute(SQL) dH/t|.%
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" H3c=B /+
%> c==Oio ("
你用过吗。。。 hZ 'oCRM
看到了吗？可以直接从查询中返回结果。 28)TXR
r-
再进一步，您可以这样做（ACCESS下我试过） #VOjnc/rW
<% _eQ P0N
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" i]53A0l
Set RS = conn.Execute(SQL) L~oFW'
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" n>E*g |a
%> , SyUr/D
…………………… x7@WWFF>
：（ NqZRS>60v
不多说了 IP'igX
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
