<%@ Language=VBScript %>
<%
Per = 20
page = Request("page")
if len(page)<0 or page<1 then
page = 1
end if
prevp=page-1
if page=1 then
prevp=1
end if
nextp=page+1
sqltext = "select newsid,title,fbDate from news where typeid=4 and useid=2 order by fbDate desc"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open sqltext,conn,1,1
For i=0 to Per*(page-1)-1
if rs1.EOF then
Exit For
end if
rs1.MoveNext
Next
%>
：：华侨城控股 - 山水家园俱乐部：：
