阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 rgVRF44X{
出处 Wz' !stcp
L6_%SGY_iE
介绍一个制作下拉菜单完全不同的办法。 /X_ L >or
作者: 未知 m:h6J''<Z*
4tCM 2it%
…… I*N"_uKU
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 vQ*[tp#qU
利用RecordSet.GetString来制作动态下拉菜单。 FJZ'P;3
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 Dq<la+VlO
先介绍一下GETSTRING的用法……如下： .1[.f}g$J
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) S#M8}+ZD,
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） b$DiDm
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 m&gd<rt/
剩下两个参数了。。。。不多说废话了，先看他们的例子 ?\8aT "o
<TABLE Border=1> >Y08/OAI.2
<TR><TD> <ZSXOh,'
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> HMF2sc$N
</TABLE> 1 .+O2qB
这样写的HTML结果如下： M
v (Pp
<TABLE Border=1> o08g]a
<TR> |,,#DSe
<TD>row1, field1 value</TD> h,Hr0^?
<TD>row1, field2 value</TD> X0
|U?Ib?
</TR> u"qu!EY2
<TR> "a[;{s{{.
<TD>row2, field1 value</TD> ,<L4tp+y0
<TD>row2, field2 value</TD> )58O9b
</TR> h7+"*fN
<TR> ; 9j ]P56
</TABLE> o Unb-,8n
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 F)cCaE;
<% i$] :Y`3h
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") xK6`|/e
optSuffix = "</OPTION>" & vbNewLine hhPQ.{]>
valPrefix = "<OPTION Value='" t}R!i-D|HB
valSuffix = "'>" q.
=Q
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) "~ID.G|
<
' Next line is the key to it! nq H[
y0
opts = Left( opts, Len(opts)-Len(valPrefix) ) \L(jNN0_R
Response.Write "<SELECT ...>" & vbNewLine T@ESMPeU:X
Response.Write valPrefix & opts q+9^r Q
Response.Write "</SELECT>" y 0p=E^Q M
%> sX6\AYF1M
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ ^4`x:6m
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： g
sm%4>sc
<% 0 8L;u7u
Set RS = conn.Execute("SELECT * FROM table") #D_Ti%.^}
tdSuffix = "</TD>" & vbNewLine & "<TD> liYsUmjZ=
trPrefix = "<TR>" & vbNewLine & "<TD>" Kq")
|9=d
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine
J y:*GW6
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) O83J[YuzjN
' Next line is the key to it! k+{ ~#@
opts = Left( opts, Len(opts)-Len(trPrefix) ) JYNn zgd
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine gWHY7r v
Response.Write trPrefix & opts (QIU 3EN
Response.Write "</TABLE>" & vbNewLine 1 0zM8<bl
%> 8*8 Y\"
------------------------------------------------------------------------ 6?}|@y^fb
再介绍一个完全不同的办法。。。（我看了快昏倒） 1.p ?1"4\u
<% m>Wt'C c
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" 7Q{&L#;
Set RS = conn.Execute(SQL) $ xW9))
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" C4E}.``Hm
%> ^) s6`:
你用过吗。。。 gAvNm[=wD2
看到了吗？可以直接从查询中返回结果。 JGq9RB]D$
再进一步，您可以这样做（ACCESS下我试过） G?F!Z"S
<% '2l[~T$*
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" R
|Bi%q|4P
Set RS = conn.Execute(SQL) "
AvEo
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" A* qR<cp[
%> YH^U "\}i
…………………… _Rj bm'kC
：（ Se??E+aX
不多说了 m6
M/G
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
