<%=daohang("title")%> 当前位置 ：<%=TD_home%> > 首页 > -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="" else color="color:"&rs("color")&"" end if if IsNull(rs("img")) or trim(rs("img")&"")="" then img="/images/pic.GIF" else img=""&rs("img")&"" end if %>

"> ## <%=i5808(rs("title"),50)%> | <% if rs("zhiding")=1 then response.Write("[置顶]") else end if %> <% set daohang=server.createobject("adodb.recordset") exec="select * from news_fl where id="&rs("ssfl")&"" daohang.open exec,conn,1,1 %> -1.html" title="<%=daohang("title")%>"><%=daohang("title")%> |
<%=i5808(rs("body"),250)%>

<% rs.movenext next end if %>

<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %>