<%ConnectString = "dsn=wjj;uid=wjj;pwd=wjj789"
set con=server.createObject("AdoDb.connection")
Con.Open ConnectString
set rd=server.CreateObject("adodb.recordset")
sql="select * from zcfgs order by fwsj desc"
rd.open sql,con,1,1
xia=trim(request.querystring("xia"))
sha=trim(request.querystring("shang"))
ye=trim(request.form("ys"))
rd.pagesize=20
if ye="" then
ym=1
if xia="" and sha<>"" then
ym=cint(sha)
Else
if xia<>"" then
ym=cint(xia)
end if
End if
else
ym=cint(ye)
End if
if ym>rd.pagecount then
ym=rd.pagecount
else
if ym<1 then
ym=1
end if
end if
rd.AbsolutePage=ym
%>
