| <%=daohang("title")%> news |
<%=TD_News_fl_list%>
| <% rs.PageSize =""&config("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 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 %>
| <%=i5808(rs("title"),50)%> | 浏览
<% rs.movenext next end if %> |
| <%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center"," ") rs.close set rs=nothing %> |