<%text1=Request("text1") %>
<%text2=Request("text2") %>
<%text3=Request("text3") %>

<%
set conn=server.createobject("adodb.connection")
conn.open="driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=tjphone"
set rs=conn.execute("tianjin")
%>

<%
if text1<>""or text2<>"" or text3<>"" then
sql="select * from tianjin where chanpin like " & "'%" &text1& "%'" & " and xingzhi like " & "'%" &text2& "%'" &"and lxdd like " & "'%" &text3& "%'"
set rs=conn.execute(sql)

while not rs.eof

row="<tr align=middle>"
for i=0 to rs.fields.count-1
row=row&"<td>"&rs(i)&"</td>"
next
Response.Write row&"</tr>"
rs.movenext
wend
rs.close

else
Response.Write("没有找到相关数据")
end if
%>
请帮我加个分页好吗,谢谢

<% sub showonepage(rs,page) %>
<table>
<% rs.absolutepage=page %>
<% for kpage=1 to rs.pagesize %>


<% rs.movenext %>
<% if rs.eof then exit for %>
<% next %>
</table>
<% end sub %>




<% rs.pagesize=5
page=1
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
showonepage rs,page
%>
<% if page<>1 then%>
<a href="分页.asp?page=1">第一页</a><a href="分页.asp?page=<%=(page-1)%>">上一页</a>
<% end if%>
<% if page<>rs.pagecount then%>
<a href="分页.asp?page=<%=(page+1)%>">下一页</a><a href="分页.asp?page=<%=rs.pagecount%>">最后一页</a>
<% end if%>

这是分页的一部份代码,我就是不会组合一起去.谢谢大家.

谢谢大家