|
|
|
<%if trim(request.QueryString("cname"))="" then %>
<%="信息中心"%>
<% else %>
<%=trim(request.QueryString("cname"))%>
<% end if %>
<%id=request.QueryString("id")
dim nTotalNumber,nMaxPerPage,nCurrentPage,j
if request("page")="" or not isnumeric(request("page")) then
nCurrentPage=1
else
nCurrentPage=request("page")
end if
nMaxPerPage=25
if id="" then
sql="select count(*) from web_news where mn_id=95"
set rs=conn.execute(sql)
nTotalNumber=rs(0)
sql="select * from web_news where mn_id=95 order by id desc"
else
sql="select count(*) from web_news where nclass="&id
set rs=conn.execute(sql)
nTotalNumber=rs(0)
sql="select * from web_news where nclass="&id&" order by id desc"
end if
set rs=conn.execute(sql)
if rs.eof then
response.Write "暫無最新信息 "
else
rs.move (nCurrentPage-1)*nMaxPerPage
do while not rs.eof and j
- "><%=rs("ntitle")%> <%=rs("ntime")%>
<%if i>3 then
response.Write("")
i=0
end if
rs.movenext
loop
end if
%>
<%call ShowPage("news.asp"&"?id="&id&"", nTotalNumber, nMaxPerPage, nCurrentPage, true, true, "頁") %>
|