作者bhnddowinf (bhnddowinf)
看板Web_Design
标题Re: [问题] ASP网页表格问题
时间Thu Aug 22 15:58:29 2013
※ 引述《TM1 ( )》之铭言：
: ASP 程式中用 VBscript 画表格，如：
: <%
: response.write("<tr><td>xxxxx</td></tr>")
: %>
: xxxxx 是连结资料库读出的内容
: 因为需要挑选前 10 笔资料且表格排序方式为：
: ┌─┬─┐
: │1 │6 │
: ├─┼─┤
: │2 │7 │
: ├─┼─┤
: │3 │8 │
: ├─┼─┤
: │4 │9 │
: ├─┼─┤
: │5 │10│
: └─┴─┘
先写好 function
注：n=第几笔
function fun1(n)
str1=""
connStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath( "data.mdb" )
set conn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")
conn1.Open connStr1
sql="select * from data1"
rs1.Open sql, conn1, 1, 3
rs1.requery
i=0
while not rs1.eof
i=i+1
if i = n then
str1=rs1("conetnt")
end if
rs1.movenext
wend
rs1.close
set rs1 = nothing
conn1.close
set conn1 = nothing
fun1 = str1
end function
再用网页去叫
<table>
<%for i =1 to 5%>
<tr>
<td><%=fun1(i)%></td> <td><%=fun1(i+5)%></td>
</tr>
<%next%>
</table>
: 请问该如何办到? 因为是用回圈跑的关系现在只能作到：
: ┌─┬─┐
: │1 │2 │
: ├─┼─┤
: │3 │4 │
: ├─┼─┤
: │5 │6 │
: ├─┼─┤
: │7 │8 │
: ├─┼─┤
: │9 │10│
: └─┴─┘
: 希望有大大可以教教我方法.....谢谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.46.223.67