|
|
|
<%rs.open "select * from wslb where bs='0' order by sl asc",conn,1,1
s=1
do while not rs.eof
if s-6=0 then
response.write " "
s=1
end if
%>
"><%=rs("bt")%> |
<%s=s+1
rs.movenext
if rs.eof then exit do
loop
rs.close
%>
|
|
|
<%pages=20
st=1
if bs="" and kes="" then
sql="select bh,ming,id,xh from cpzs order by id asc"
end if
if bs<>"" and kes="" then
sql="select bh,ming,id,xh from cpzs where bs='"&bs&"'order by id asc"
end if
if bs="" and kes<>"" then
sql="select bh,ming,id,xh from cpzs where xh like '%"&kes&"%'order by id asc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " Nothing.... | "
else
rs.pageSize = pages '姣忛〉璁板綍鏁?
allPages = rs.pageCount '鎬婚〉鏁?
page = Request("page") '浠庢祻瑙堝櫒鍙栧緱褰撳墠椤?
'if鏄熀鏈殑鍑洪敊澶勭悊
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page
do while not rs.eof and pages>0
if st-6=0 then
st=1
response.write""
end if
%>
|
<%
pages=pages-1
st=st+1
rs.movenext
if rs.eof then exit do
loop
end if
%>
|
|
|
|
|