<% call TyOnly("news_class",CatID,"mo") %>
现在位置:首页新闻资讯<% call TyOnly("news_class",CatID,"mo") %>
<% set rs0=server.CreateObject("adodb.recordset") sql="select news_id,news_title,format(news_date,'yyyy-mm-dd') as nDate from news where cat_id="&CatID&" order by news_id desc" rs0.open sql,conn,1,1 %>
<%
rs0.pagesize=10
curpage=request.QueryString("curpage")
if curpage="" then
curpage=1
elseif isNumeric(curpage) then
rs0.absolutepage=curpage
else
curpage=1
end if
%>
<%
for x=1 to rs0.pagesize
if rs0.eof then
exit for
end if
%>
- " target="_blank"><%=rs0("news_title")%>
- <%=rs0("nDate")%>
<% if rs0.recordcount>0 then %>
<% if curpage=1 then %>
首页
<% else %>
首页
<% end if %>
<% if curpage=1 then %>
上一页
<% else %>
上一页
<% end if %>
<% if rs0.pagecount
下一页
<% else %>
下一页
<% end if %>
<% if rs0.pagecount
尾页
<% else %>
尾页
<% end if %>
当前页:<%=curpage%>/<%=rs0.pagecount%>页
<% else %>
信息还没有添加,资料还在整理中...
<% end if %>
<%
rs0.close
set rs0=nothing
%>