Re: [問題] Table讀資料庫的問題
※ 引述《joyce2267 (章魚)》之銘言:
: <%
: response.charset = "Big5"
: set conn = Server.CreateObject("ADODB.Connection")
: conn.open "Driver={Microsoft ODBC for
: Oracle};server=cark;uid=web;pwd=gjp4u4"
: SQLScript = "select t.StoreNo,t.StoreAlias,substr(t.storeaddress,1,3)
: AreaName from car_004 t "&_
: "where t.recommandflag='N' order by SORT2 "
: set rs = Server.CreateObject("ADODB.Recordset")
: rs.open SQLScript,conn,3,3,1
: response.write "<ul>"
TableColumn = 2 '每行可顯示筆數
: while not rs.eof
'此筆的column值 0表示該行最後一筆 1,2,3,4表示第n筆
NC = rs.BookMark mod TableColumn
: StoreNo = rs("StoreNo")
: StoreName = rs("StoreAlias")
: AreaName = rs("AreaName")
: Counter = 11-(len(StoreName) + len(AreaName))
If nc = 1 then Response.Write "<table><tr>" '第一筆開始表格
:%>
: <td class="advertiser_box"><a
: href="showstore.asp?storeno=<%=StoreNo%>"><%=StoreName %></a></td>
: <%
: rs.MoveNext
'最後一筆結束表格
If nc = 0 or rs.Eof then Response.Write "</tr></table>"
: wend
: response.write "</ul>"
: rs.close
: conn.close
: set rs = nothing
: set conn = nothing
: %>
: (全部程式是這樣)
: 請問如果我想把原本一列一個資料的方式變成一列2個該怎麼讓資料庫可以照順序讀成兩行?
: 直接多設一個td會變成兩行都讀成一樣的東西而不是把所有的資料分兩行顯示
: 想問的是該怎麼讓資料庫可以讀成兩行~謝謝。
2改成3變顯示3個, 4顯示4個, 以此類推.
這樣畫會變成很多個table下有n個欄位, 可以把table放在while外變成一個表格.
--
+ . . ◤◤▃▃▃▃◥ARIA ◤▃▃▃▃◥◥ .. . ‥ ◢▊ ∵
◣ . . . ▉◢◢◣▏カンパニー▊ │ ││▎▎ . ‥ .. ≡
▏ ◥ ◤ ︵ ︵ ◣ ▂◢ ▆— —▆ + ◤▎ ╱
▍▅▄▃▄▃▂◤ ◣_ _◢ ▲"▆"` ◣_□_◢ ▂▄▅▆▇◢ .
◣ █▆ ◥▲▲▲◤【OωO】 ▲▲▲ ▅▇▇ ◢
◣ ▲◎▲ ◤▲ ● ▲◎▲ ◢ 鱻ψ
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.70.29.66
→
02/05 14:14, , 1F
02/05 14:14, 1F
※ 編輯: whelp 來自: 203.70.29.66 (02/05 14:19)
→
02/05 14:19, , 2F
02/05 14:19, 2F
推
02/05 14:39, , 3F
02/05 14:39, 3F
推
02/05 16:52, , 4F
02/05 16:52, 4F
→
02/05 16:52, , 5F
02/05 16:52, 5F
推
02/05 16:55, , 6F
02/05 16:55, 6F
→
02/05 16:55, , 7F
02/05 16:55, 7F
推
02/05 17:46, , 8F
02/05 17:46, 8F
→
02/05 18:13, , 9F
02/05 18:13, 9F
推
02/05 19:33, , 10F
02/05 19:33, 10F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇):