阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 Se&%Dr3Nv
出处 qf6}\0
Y([vma>U]
介绍一个制作下拉菜单完全不同的办法。 0i65.4sK
作者: 未知 {"w4+m~+te
'aW<C>
…… EL-1o0 2-
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 B~2\v%J
利用RecordSet.GetString来制作动态下拉菜单。 4>x v7
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 k!6wVJ|_Y
先介绍一下GETSTRING的用法……如下： &`4v,l^Zi6
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) H Ql_ /:Wx
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） g>*t"Rf:
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 U
i ~*]
剩下两个参数了。。。。不多说废话了，先看他们的例子 Gd 5J<K
<TABLE Border=1> E64d6z^7u
<TR><TD>
|%~sU,Y\(
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> K
q0!.455
</TABLE> qSWnv`hL
这样写的HTML结果如下： q"[8u ]j
<TABLE Border=1> SlZ> N$E
<TR> p7 ;/| ]o3
<TD>row1, field1 value</TD> 8Dq;QH}
<TD>row1, field2 value</TD> z@0*QZ.y 1
</TR> /WJ*ro]Hd$
<TR> /8SQmh$+e
<TD>row2, field1 value</TD> # N.(ZP
<TD>row2, field2 value</TD> 2I#4jy/g
</TR> ' 'f07R
<TR> 8@|rB3J
</TABLE> _/_1:ivY8
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 d4#Q<!r
<% S3=M k~_&
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") PL#8~e;'
optSuffix = "</OPTION>" & vbNewLine [*j
C
valPrefix = "<OPTION Value='" _ G!lQ)1
valSuffix = "'>" .Y%)&
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) :Gh*
d)
' Next line is the key to it! d]OoJK9&&
opts = Left( opts, Len(opts)-Len(valPrefix) ) g<
cR/
Response.Write "<SELECT ...>" & vbNewLine 6EhRCl
Response.Write valPrefix & opts %:n1S]Vr
Response.Write "</SELECT>" K2TO,J3 E
%> q wu++9BM
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ aXyu%<@k
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： uj Zki.x
<% ]],6Fi+
Set RS = conn.Execute("SELECT * FROM table") %Yg;s'F>#q
tdSuffix = "</TD>" & vbNewLine & "<TD> jK#y7
E
trPrefix = "<TR>" & vbNewLine & "<TD>"
TR rO-
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine 0\g;^Zpi
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) 2#LcL
' Next line is the key to it! 5n r}5bum
opts = Left( opts, Len(opts)-Len(trPrefix) ) h:(Jes2
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine Phl't~k
Response.Write trPrefix & opts
D5)qmu
Response.Write "</TABLE>" & vbNewLine j4l e../N
%> 4x=rew>Ew
------------------------------------------------------------------------ A6}M F
再介绍一个完全不同的办法。。。（我看了快昏倒） T1;yw1/m5\
<% bK; -X cm
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" 1j6Z SE/*|
Set RS = conn.Execute(SQL) O{&5 /xBA
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" &6,GX7]Fo
%> [ X)+(-J
你用过吗。。。 z7M Jxj H
看到了吗？可以直接从查询中返回结果。
*D F5sY
再进一步，您可以这样做（ACCESS下我试过） WE4:Jy
<% OCo=h|qBp
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" u~Q0V J~
Set RS = conn.Execute(SQL) w@.E}%bwq
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" Q <^'v>~n
%> G?e,Q$
…………………… LcE!e%3
：（
nq8mz I
不多说了 f `p`c*
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
