%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
newid=request("id")
set rs=server.createobject("adodb.recordset")
if newid="" then
sql = "select * from news order by id desc"
else
if newid=1 then
sql = "select * from news where newstypeid=1 order by id desc"
else
if newid=2 then
sql = "select * from news where newstypeid=2 order by id desc"
else
if newid=3 then
sql = "select * from news where newstypeid=3 order by id desc"
end if
end if
end if
end if
rs.open sql,objconn,1,1
rs.PageSize=6
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>