%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
---[开米新闻]---
<%set rs3=server.CreateObject("adodb.recordset")
sql3="select * from y_news order by y_id desc"
rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then
response.Write("当前没有新闻记录!")
response.End()
else
page=request.QueryString("page")
rs3.pagesize=10
total=rs3.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page > rs3.PageCount then
rs3.AbsolutePage = rs3.PageCount
elseif page <= 0 then
page = 1
else
rs3.AbsolutePage = page
end if
End if
page = rs3.AbsolutePage%>