<%
dim conn,rs
currentpage=cint(request.QueryString("pcount"))
if(currentpage=0) then
currentpage=1
else
currentpage=CInt(Request.QueryString("pcount"))
end if
set conn=server.CreateObject("ADODB.Connection")
conn.Open application("constr")
set rs = server.CreateObject("ADODB.Recordset")
rs.Open "select * from admin_news order by news_date desc",conn,3,2
if not rs.EOF then
arrfields=rs.GetRows
else
arrfields=0
end if
if isarray(arrfields) then
flag=true
rs.Pagesize = 25
totpage=rs.PageCount
rs.AbsolutePage=currentpage
'Response.Write "WWW" & currentpage &"/"& totpage &"/"& rs.AbsolutePage
else
flage=false
end if
%>
<%if flag=true then
j=0
do until rs.EOF
if j=25 then
exit do
else
dim a
a=formatdatetime(rs("news_date"),1)
b=split(a,",")
c = b(1)&","& b(2)
%>
- <%=rs("news_title")&" - "%><%= c %>
<%
end if
j=j+1
rs.MoveNext
loop
end if
%>
|
