<%
set conn=server.createobject("adodb.connection")
strcon="provider=microsoft.Jet.OLEDB.4.0;" & "DATA SOURCE=" & Server.MapPath("data/work.mdb")
conn.open strcon
set rs=server.createobject("adodb.recordset")
exec="select * from 土地交易 order by 入库日期 desc"
set rs=conn.execute(exec)
page=Request("page")
if page=0 then page=1
RecordCount = 0
do while not rs.eof
RecordCount=RecordCount+1
rs.movenext
loop
if RecordCount<>0 then rs.MoveFirst
pageCount=RecordCount/10
pageCount=int(pageCount)
if (RecordCount mod 10)>0 then PageCount=PageCount +1
%>
公告栏
海口市国土资源局建设用地信息
<%
do while pos<(page-1)*10
pos=pos+1
rs.moveNext
loop%>
<%
x=0
do while x<10 and not rs.eof
tempstr=Trim(RS(1))
count=1
Do while (count>0)
count=InStr(tempstr,"/")
If(count>0) Then tempstr=Mid(tempstr,count+1)
Loop
%>
