想给这个查询加个分页，可是水平太有限了。写不来。。

[复制链接]

草根

电梯直达

1^#

发表于 2010-1-7 02:42:22 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

想给一下这段查询做个分页。可是水平太有限了。。不知道怎么写
请高手帮忙。。

<%
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
%>

收藏0