%
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
id=request("id")
if len(id)=0 then
id=1
end if
dim spring
sql="select * from news where rootcl='供求信息' order by timein desc"
Set rs = Server.CreateObject("ADODB.Recordset")%>