阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 > ;zQ.2*
出处 !xo; $4
TBp$S=_**
介绍一个制作下拉菜单完全不同的办法。 @E@5/N6M
作者: 未知 [_,Gk]F=
NamO5(1C
…… tOf18V{a
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 ? v$kq}Rg
利用RecordSet.GetString来制作动态下拉菜单。 /QK H30E
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 { WW !P,w
先介绍一下GETSTRING的用法……如下： }m0h q+p^
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) gm}[`GMU
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） Da 8{==
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 "T,^
>xD
剩下两个参数了。。。。不多说废话了，先看他们的例子 p s wEIa
<TABLE Border=1> ? IHa>f:
<TR><TD> 6} 9`z8
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> #3m7`}c
</TABLE> n:d7 Tv1Z8
这样写的HTML结果如下： .8K ~ h
<TABLE Border=1> mrvPzoF,]
<TR> Kgw_c:/'
<TD>row1, field1 value</TD> xp<p(y8e1d
<TD>row1, field2 value</TD> y~AF|Dk=
</TR> tQ >
IJ
<TR> :0)n L
<TD>row2, field1 value</TD> }qhNz0 *
<TD>row2, field2 value</TD> ttaY tV]]
</TR> +W -,74A
<TR> +S3r]D3v/
</TABLE> .]\+JTm
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 b=-LQkcZhK
<% <h"*"q|9
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") r-+S^mOE]
optSuffix = "</OPTION>" & vbNewLine N=X(G(
valPrefix = "<OPTION Value='" Q:4euhz *
valSuffix = "'>"
MJ+]\(
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) `mfN3Q *[c
' Next line is the key to it! $_P *Bk)
opts = Left( opts, Len(opts)-Len(valPrefix) ) ' Oe}Ja
Response.Write "<SELECT ...>" & vbNewLine 7P2?SW^
Response.Write valPrefix & opts AX= 4{b'
Response.Write "</SELECT>" 1-=zSWm yK
%> o/U"'FP
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ NpIx\\d
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： V u`O%[Q/
<% w u
Set RS = conn.Execute("SELECT * FROM table") =!RlU)w
tdSuffix = "</TD>" & vbNewLine & "<TD> W r%E}mX-
trPrefix = "<TR>" & vbNewLine & "<TD>" z^q ~|7
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine HP
/@ _qk
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) )Z2 l*fV
' Next line is the key to it! 0y"Ra%Y
opts = Left( opts, Len(opts)-Len(trPrefix) ) %Z"I=;=nxI
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine _qPd)V6yb
Response.Write trPrefix & opts B-<H8[GkG1
Response.Write "</TABLE>" & vbNewLine r3hUa4^9 7
%> cS'|c0 6
------------------------------------------------------------------------ XA$Z 7_gu3
再介绍一个完全不同的办法。。。（我看了快昏倒） f0 ^DsP
<% f_&bwfbo
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" "s6O|=^*
Set RS = conn.Execute(SQL) d4h,
+OU
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" tyH*epa nw
%>
`qjiC>9
你用过吗。。。 FE`:1
看到了吗？可以直接从查询中返回结果。 rdFeDZo&Z)
再进一步，您可以这样做（ACCESS下我试过） Rr#vv
<% p&:(D=pIu
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" Gj.u /l
Set RS = conn.Execute(SQL) "0lC:Wu]
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" Puu O2TZ
%> ?E@ 9Nvr
…………………… 5df~] -=0Y
：（ 7h4"5GlO0
不多说了 Cyw
Q
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
