<%
'打开数据库
set re=server.createobject("adodb.Recordset")
re.open "select * from text1 ",conn,3,3
set rs=server.createobject("adodb.Recordset")
rs.open "select * from t ",conn,3,3
rs.PageSize = 1
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
if rs.eof and rs.bof then
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "" & Chr(13)
else
end if
%>
鹤山市国土资源局
