<%=daohang("title")%> 您所在的位置：首页 > -1.html"><%=daohang("title")%>
-
<%
rs.PageSize =""&TD_newsclass&""
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=b
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
dim url,color,img
if IsNull(rs("url")) or trim(rs("url")&"")="" then
url="/ShowNews/?"&rs("id")&"-1.html"
else
url=""&rs("url")&""
end if
if IsNull(rs("color")) or trim(rs("color")&"")="" then
color="#000000"
else
color=""&rs("color")&""
end if
if IsNull(rs("img")) or trim(rs("img")&"")="" then
img="/images/pic.GIF"
else
img=""&rs("img")&""
end if
%>
-
- " >
" />
-
" class="news_title"><%=i5808(rs("title"),50)%> <% if rs("zhiding")=1 then response.Write("[置顶]") else end if %><%=year(rs("data"))&"-"&month(rs("data"))&"-"&day(rs("data"))%><%=i5808(rs("body"),100)%>" >【更多详情】
<%
rs.movenext
next
end if
%>
- " >
- <%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","
") rs.close set rs=nothing %>