主题:[讨论]讓資料能夠分列顯示,而不是只顯示一列
各位大大小弟又有問題了,
小弟在資料庫中取出資料,
但想要讓他能夠分列顯示,而不是只顯示一列
例如資料內有 : A B C D E F
我想讓他顯示成 :A B C
D E F
我寫的一段源碼如下:
function ChildSort()
dim ParentID
ParentID=request.QueryString("SortID")
if ParentID="" or (not isnumeric(ParentID)) then exit function
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_ProductSort where ViewFlag"&LangData&" and ParentID="&ParentID&" order by ID desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
exit function
else
Response.Write "<tr>" & vbCrLf
response.write "<td height='22'></td><td class='ListTitle' align='center'>"
while not rs.eof
response.write " <img src='Images/Arrow_04.gif' align='absmiddle'> <a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a> "
rs.movenext
wend
response.write "</td>"
response.write "</tr>"
end if
rs.close
set rs=nothing
end function
這樣只會顯示一列~
該如何加上迴圈呢?
小弟在資料庫中取出資料,
但想要讓他能夠分列顯示,而不是只顯示一列
例如資料內有 : A B C D E F
我想讓他顯示成 :A B C
D E F
我寫的一段源碼如下:
function ChildSort()
dim ParentID
ParentID=request.QueryString("SortID")
if ParentID="" or (not isnumeric(ParentID)) then exit function
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_ProductSort where ViewFlag"&LangData&" and ParentID="&ParentID&" order by ID desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
exit function
else
Response.Write "<tr>" & vbCrLf
response.write "<td height='22'></td><td class='ListTitle' align='center'>"
while not rs.eof
response.write " <img src='Images/Arrow_04.gif' align='absmiddle'> <a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a> "
rs.movenext
wend
response.write "</td>"
response.write "</tr>"
end if
rs.close
set rs=nothing
end function
這樣只會顯示一列~
該如何加上迴圈呢?