<%
exec="select * from ly where rt=0 order by id desc"
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.Open exec, Conn, 1, 2
page=Request("page")
if page=0 then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/15
pageCount=int(pageCount)
if (RecordCount mod 15)>0 then
PageCount=PageCount +1
end if
%>
左其亭—水文学及水资源（Qiting Zuo - Hydrology and Water Resources）
