<%filenames = "xwzx.asp"%>
<%page=request("page")
lookpage=12
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
sql="select newsid,newstitle,bigid,tupian from news order by newsid asc"
rs.open sql,conn,1,1
if rs.eof then%>
暫無信息
<%else
rs.pagesize=lookpage
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize%>
<%for j=1 to rs.PageSize%>
<%rs.movenext
if rs.eof then exit for
next%>
<%end if
rs.close
set rs=nothing%>
