日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

介紹一個制作下拉菜單完全不同的辦法

介紹一個制作下拉菜單完全不同的辦法

更新時間:2022-05-08 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

我是頭一回知道這個方法,以前從沒聽用過,以前如果我從數(shù)據(jù)庫里讀出內(nèi)容來制作下拉菜單的話都是用循環(huán)來做的,現(xiàn)在,讓我們來看一下老外的辦法。

利用RecordSet.GetString來制作動態(tài)下拉菜單。

adodb.recordset的getstring方法有一些BUG,但是你使用得小心一點的話它可以為您工作的很好。
先介紹一下GETSTRING的用法……如下:

stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull )

只要建立了RS對象,并且執(zhí)行了相應(yīng)操作,不管那是返回一條或者多條記錄,甚至是空記錄,getstring照樣工作,但是如果不加注意的話,這個結(jié)果可能就不大好玩了,:P(這個老外也夠幽默的)

FORMAT參數(shù)只有一個合法值,而且是可選的,讓我們略過不管它,如果您想返回全部記錄的話,那么那個numrows參數(shù)也可以不管它了(可選),IFNULL……照我的理解就象TSQL里的isnull函數(shù)差不多,如果是NULL,則隨便搞個值替換它,所以也不管它。

剩下兩個參數(shù)了。。。。不多說廢話了,先看他們的例子

<TABLE Border=1>
<TR><TD>
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %>
</TABLE>
這樣寫的HTML結(jié)果如下:
<TABLE Border=1>
<TR>
    <TD>row1, field1 value</TD>
    <TD>row1, field2 value</TD>
</TR>
<TR>
    <TD>row2, field1 value</TD>
    <TD>row2, field2 value</TD>
</TR>
<TR>
</TABLE>

這個也是老外口中說的那個BUG了,讓我們看一下具體怎么做的

<%
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText")

optSuffix = "</OPTION>" & vbNewLine
valPrefix = "<OPTION Value='"
valSuffix = "'>"
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(valPrefix) )

Response.Write "<SELECT ...>" & vbNewLine
Response.Write valPrefix & opts
Response.Write "</SELECT>"
%>

你用過這種方法么,實話,我可從沒見過,也沒聽有人說起,:(

附帶一下,您如果想建立一個正確的表格的話,也就是我頭上說的那個BUG,只要這樣做就可以了:
<%
Set RS = conn.Execute("SELECT * FROM table")

tdSuffix = "</TD>" & vbNewLine & "<TD>
trPrefix = "<TR>" & vbNewLine & "<TD>"
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(trPrefix) )

Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine
Response.Write trPrefix & opts
Response.Write "</TABLE>" & vbNewLine
%>
------------------------------------------------------------------------
再介紹一個完全不同的辦法。。。(我看了快昏倒)

<%
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
%>

你用過嗎。。。

看到了嗎?可以直接從查詢中返回結(jié)果。
再進(jìn)一步,您可以這樣做(ACCESS下我試過)

<%
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
%>
……………………

:(

不多說了

希望能對你有所幫助

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 精品久久久久久中文字幕 | 国产精品美女久久久久久 | 久久精品国产99国产精偷 | 四虎永久在线视频 | 韩国xxxx色视频在线观看 | 2022国产精品福利在线观看 | 日本三级黄色片网站 | 中文字幕成人免费高清在线 | 午夜在线播放免费人成无 | 成人免费观看视频久爱网 | 一本久道久久综合婷婷五 | 国产成人夜色影视视频 | h网站免费在线观看 | 天天爱夜夜 | 香蕉eeww99国产在线观看 | 色多网站免费视频 | 免费超爽大片黄网站 | 日本免费视频观看 | 日本不卡免费高清一级视频 | yy4138殇情理论片一级毛片 | 日韩a| 最近高清中文在线国语视频 | 夜夜女人国产香蕉久久精品 | 国产成人在线影院 | 尤物天堂 | 久久爱噜噜噜噜久久久网 | 色天天综合| jjzz亚洲亚洲女人 | 美女教师在办公室做爰网站 | 91一区二区三区四区五区 | 久久精品视频热 | 国产精品第一 | 国产91素人搭讪系列天堂 | 天天做夜夜爱 | 国产福利在线网址成人 | 国产精品免费精品自在线观看 | 国产精品九九免费视频 | 狠狠躁夜夜躁人人爽天天不 | 国产日韩第一页 | 女人18毛片特级一级免费视频 | 日韩欧美精品在线 |