<%
dim Nconn,rs
set Nconn=application("wgzx_data")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select news_id,news_title,convert(char(12), news_date, 101) as news_time from y_news where news_type=4 order by news_date desc",NConn,adOpenStatic
%>
<%
rs.PageSize=12
if Request.QueryString("Move")="Next"and Session("CurrentPage")1 then
Session("CurrentPage")=Session("CurrentPage")-1
end if
if Request.QueryString("Move")="" then
if Request.Form("text3")="" then
Session("CurrentPage")=1
elseif CInt(Request.Form("text3"))<=rs.PageCount then
dim p
p=Request.Form("text3")
Session("CurrentPage")=p
end if
end if
rs.AbsolutePage=Session("CurrentPage")
%>
