<%
curname=request("name")
curname="威廉鸽舍"
sql="select * from geshetupian where geshename='"&curname&"' order by id desc"
Set rs=Server.CreateObject("ADODB.Recordset")
Set rss=Server.CreateObject("ADODB.Recordset")
rs.open sql,conntp,1
%>
<% if not rs.eof then
if not isnumeric(Request("Page")) then
Response.Write ""
Response.End
End If
Page =cint(Request("Page"))
rs.PageSize=16
if page="" then
page=1
else
if page >rs.pagecount then
page= rs.pagecount
end if
If Page < 1 Then
Page = 1
end if
end if
rs.AbsolutePage=page
%>
<%
else
%>
