简单分页函数一 常用(2)

      else
      response.write "bgcolor=#f6f6f6"
      end if
      %>>
          <td height="20"><div align="center"><%=a%></div></td>
          <td><div align="center">
            <%add=rs("add1")
        substring add,4
        %>
          </div></td>
          <td>
          <a href="displaynews.asp?id=<%=rs("id")%>" target="_blank">          
         <%
        if rs("isred")=True then
        %>
        <font color="red">
        <%title=rs("title")
        substring title,20
        %></font>
        <%else
        title=rs("title")
        substring title,20
        %>
        <%
        end if
        %>        
        </a></td>
          <td><div align="center"><%=rs("cartype")%></div></td>
          <td><div align="center">
              <%thetime=rs("enterdate")
                    themon=datepart("m",thetime)
                    if len(themon)<2 then themon="0"&themon
                    theday=datepart("d",thetime)
                    if len(theday)<2 then theday="0"&theday