农村交友、征婚
<%
exec="select * from love where wg=1 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,db,1,1
rs.PageSize=10
pagecount=rs.PageCount
if pagecount=0 then
response.write "暂无相关信息"
else
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
%>
<%n=1
while not rs.eof and n<=rs.pagesize %>
【<%=rs("id")%>】<%=rs("wb")%>※我的网名是<%=rs("wa")%>，<%=unHtml(rs("ba"))%> 【QQ号：<%=rs("wc")%>】
<%
n=n+1
rs.movenext '显示页面的数据
wend
%>
<%if page=1 and not page=pagecount then%>
第<%=page%>页 <%for i=1 to pagecount%>
<%=i%> <%next%>
下一页
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页 <%for i=1 to pagecount%>
<%=i%> <%next%>
上一页
<%elseif page>pagecount then%>
<%elseif page=1 and page=pagecount then%>
<%else%>
<%end if%>
<%
rs.close
set rs=nothing
end if
%>
