新微赢技术网

标题: 想给这个查询加个分页，可是水平太有限了。写不来。。 [打印本页]

作者: 草根 时间: 2010-1-7 02:42
标题: 想给这个查询加个分页，可是水平太有限了。写不来。。
想给一下这段查询做个分页。可是水平太有限了。。不知道怎么写
请高手帮忙。。

<%
dim Conn, sqlstr,key
key=request("t1")
key2=request("t2")
key3=request("t3")
set Conn=server.CreateObject ("adodb.connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("customer.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from customer where customername='"&key&"'"
rs.Open sqlstr, conn,1,1

do while not rs.eof
<table align="center" border="1" bordercolor="black" >
<tr>
<td width=100 height=50>客户姓名：<%=rs("customername")%></td>
<td width=100 height=50>做货样式：<%=rs("goodstype")%></td>
<td width=100 height=50>LOGO：<%=rs("LOGO")%></td>
<td width=100 height=50>签单日期：<%=rs("singsdate")%></td>
<td width=100 height=50>预约提货时间：<%=rs("tgdate")%></td>
<td width=100 height=50>报价：<%=rs("bprice")%></td>
<td width=100 height=50>成交单价：<%=rs("sjprice")%></td>
</tr>
</table>

rs.movenext
loop
%>

作者: 陈君 时间: 2010-1-7 02:42
哦谢谢老大我找找看

作者: Yaci 时间: 2010-1-7 02:42
论坛里有很多关于分页的帖子，LZ先搜下

作者: 潇洒人 时间: 2010-2-9 01:05
一定要回贴，因为我是文明人哦

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)