• 當(dāng)前位置：創(chuàng)新互聯(lián) >> 常見問題 >> 網(wǎng)站建設(shè) >> 網(wǎng)站制作 >> 介紹一個(gè)制作下拉菜單完全不同的辦法

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

• 作者：創(chuàng)新互聯(lián) 文章來源：網(wǎng)站建設(shè)部 點(diǎn)擊數(shù)： 更新時(shí)間：2010-03-24
• 　　說道這個(gè)下拉菜單，小編是頭一回知道這個(gè)方法，以前從沒聽用過，以前如果我從數(shù)據(jù)庫(kù)里讀出內(nèi)容來制作下拉菜單的話都是用循環(huán)來做的，現(xiàn)在，讓我們來看一下老外的辦法。
  　　利用RecordSet.GetString來制作網(wǎng)站動(dòng)態(tài)下拉菜單。
  　　adodb.recordset的getstring方法有一些BUG，但是你使用得小心一點(diǎn)的話它可以為您工作的很好。
  　　先介紹一下GETSTRING的用法……如下：
  　　stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull )
  　　只要建立了RS對(duì)象，并且執(zhí)行了相應(yīng)操作，不管那是返回一條或者多條記錄，甚至是空記錄，getstring照樣工作，但是如果不加注意的話，這個(gè)結(jié)果可能就不大好玩了，：P（這個(gè)老外也夠幽默的）
  　　FORMAT參數(shù)只有一個(gè)合法值，而且是可選的，讓我們略過不管它，如果您想返回全部記錄的話，那么那個(gè)numrows參數(shù)也可以不管它了（可選），IFNULL……照我的理解就象TSQL里的isnull函數(shù)差不多，如果是NULL，則隨便搞個(gè)值替換它，所以也不管它。
  　　剩下兩個(gè)參數(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>
  　　這個(gè)也是老外口中說的那個(gè)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>"
  %>
  　　你用過這種方法么，實(shí)話，我可從沒見過，也沒聽有人說起，附帶一下，您如果想建立一個(gè)正確的表格的話，也就是我頭上說的那個(gè)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
  %>
  ------------------------------------------------------------------------
  　　再介紹一個(gè)完全不同的辦法……
  <%
  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>"
  %>
• 制作圖片上的滾動(dòng)效果 :上一篇
  什么網(wǎng)站算好站? :下一篇