阿七
级别: 未验证会员
精华:
0
发帖: 909
威望: 0 点
金钱: 2161 RMB
贡献值: 0 点
在线时间:512(小时)
注册时间:2006-03-29
最后登录:2008-08-07
|
介绍一个制作下拉菜单完全不同的办法。
介绍一个制作下拉菜单完全不同的办法。 9^7z"*@#
出处 &o]fBdn
MxOI e|=&
介绍一个制作下拉菜单完全不同的办法。 @HE<\Z{ KI
作者: 未知 [9d\WPLC
}{}?mQ
…… yU>ucuF
我是头一回知道这个方法，以前从没听用过，以前如果我从数据库里读出内容来制作下拉菜单的话都是用循环来做的，现在，让我们来看一下老外的办法。 ;6$W-W _
利用RecordSet.GetString来制作动态下拉菜单。 L |8&9F\
adodb.recordset的getstring方法有一些BUG，但是你使用得小心一点的话它可以为您工作的很好。 p7W9? b9
先介绍一下GETSTRING的用法……如下： X
MzQ8|]
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull ) JkI|Ojmm/
只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作，但是如果不加注意的话，这个结果可能就不大好玩了，：P（这个老外也够幽默的） 'U,\5jj'Y
FORMAT参数只有一个合法值，而且是可选的，让我们略过不管它，如果您想返回全部记录的话，那么那个numrows参数也可以不管它了（可选），IFNULL……照我的理解就象TSQL里的isnull函数差不多，如果是NULL，则随便搞个值替换它，所以也不管它。 Wo Z@
剩下两个参数了。。。。不多说废话了，先看他们的例子 qOAP_\@T
<TABLE Border=1> cSj X/%*!m
<TR><TD> "pO** z$Z
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> r ?9".H
</TABLE> i|0!yID0@
这样写的HTML结果如下： G.r =fNP
<TABLE Border=1> J3XG?'
}
<TR> %jJIR88
<TD>row1, field1 value</TD> 0K
Z$v/m
<TD>row1, field2 value</TD> WHqw=! G
</TR> Ce~Pms]
<TR> Tkn8W j
<TD>row2, field1 value</TD> 9I}Uh#]k<
<TD>row2, field2 value</TD> ! ?sB=qo
</TR> <?:h(IZe[
<TR> lR/Ubo
yy
</TABLE> {b-SK5%]L
这个也是老外口中说的那个BUG了，让我们看一下具体怎么做的 aU/y>Y <k
<% MShcZtN
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText") P~V ^E fz{
optSuffix = "</OPTION>" & vbNewLine &XW ~l>!+
valPrefix = "<OPTION Value='" >QPCYo<E
valSuffix = "'>" 3N dO3-~)
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) #bCUI*N"P
' Next line is the key to it! '@zMZc !
opts = Left( opts, Len(opts)-Len(valPrefix) ) >;#rK@*&
Response.Write "<SELECT ...>" & vbNewLine ERIF#EY
Response.Write valPrefix & opts 'Hgk
$Im+
Response.Write "</SELECT>" 0X$2~jV>
%> >[~`rOU*|Y
你用过这种方法么，实话，我可从没见过，也没听有人说起，：（ 9? ^0pR p
附带一下，您如果想建立一个正确的表格的话，也就是我头上说的那个BUG，只要这样做就可以了： \w&R`;b8w
<% ZXf&
pqmG
Set RS = conn.Execute("SELECT * FROM table") s) {VU2.ra
tdSuffix = "</TD>" & vbNewLine & "<TD> ?
m9=Me
trPrefix = "<TR>" & vbNewLine & "<TD>" uL:NWgN
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine gQ|?~hYYv
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) ~mZ[@ Z
' Next line is the key to it! 69t6lB#;!
opts = Left( opts, Len(opts)-Len(trPrefix) ) 3Vk\iJ
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine ma/<# l^}
Response.Write trPrefix & opts sQ&<cBs2
Response.Write "</TABLE>" & vbNewLine 7W+{U0 2O
%> s7\Ee-x)s
------------------------------------------------------------------------ Z`Jt6QgW
再介绍一个完全不同的办法。。。（我看了快昏倒） nITkgN:s
<% , #9i=g p
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text" "*TP@X?@f
Set RS = conn.Execute(SQL)
e@ 5w?QzW
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" #iRd2Qj%
%> z uo:yaO
你用过吗。。。 z~i>GN_
看到了吗？可以直接从查询中返回结果。 \5 a;_N[Ed
再进一步，您可以这样做（ACCESS下我试过） aU$8 0
<% K_;?Sr=
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text" zFY$^Oz"_
Set RS = conn.Execute(SQL) ]; eJ'#
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>" 9)n3f^,Oj*
%> dIA1\;@
…………………… IK8" 3+(
：（ M"Z/E>ne
不多说了 _UbyhBl
希望能对你有所帮助
|
|
|
|
[楼 主]
|
Posted: 2006-04-03 13:59 |
| |
常州五颜六色网络技术有限公司 -> 网站建设 -> 介绍一个制作下拉菜单完全不同的办法。
