[精]分页的问题。。。
我加???的那地方是应该那么改吗,改完也无法分页啊,是不是还有别的问题<%
news=Request.Form("news")
strconn="provider=microsoft.jet.oledb.4.0;data source=C:\Inetpub\wwwroot\lb\db1.mdb;persist security info=false"
set strrs=Server.CreateObject("adodb.recordset")
strrs.Open"select * from lxr where 地址 like '%"&news&"%'",strconn,adOpenstatic
strrs.pagesize=1
page=10????????????????
if not strrs.EOF then
Response.Write "<a href='"&strrs("url")&"'>"&strrs("名字")&"</a><br>"
strrs.MoveNext
end if
if page<1 then
page=1
end if
if page<>1 then
Response.Write"<a href='search.asp?page="&page+1&"'>下一页 "
Response.Write"<a href='search.asp?page="&strrs.pagecount&"'>最后一页 "
end if
if page<>strrs.pagecount then
page=strrs.pagecount
Response.Write"<a href='search.asp?page="&page-1&"'>上一页 "
Response.Write"<a href='search.asp?page="&page=1&"'>第一页 "
end if
strrs.Close
set strrs=nothing
%>