news.asp

来自「多用户个人主页系统(ASP)」· ASP 代码 · 共 25 行

<table width="170" border="0" cellspacing="3" cellpadding="0">
              <tbody>
                <%
	 on error resume next
	 sql="select * from user where kt='是' order by regdate"
 	rs.open sql,Conntemp,1,3
	 rs.pagesize=20  //设定首页显示最新加入用户条数,系统默认20
     page=request("page")
     if page="" then
     page=1
     end if
	      rs.absoluteposition=rs.recordcount-(page-1)*rs.pagesize
          for ipag=1 to rs.pagesize
%>
                <tr> 
                  <td><IMG src="images/news_4.gif" width=9 
                  height=9 border="0"> <a href="<%=HPDIRName%>/<%=rs(i+1)%>" target="_blank"><%=rs("sitename")%></a></td>
                </tr>
                <%
          rs.moveprevious
          if rs.bof Then exit for
          next  
%>
              </tbody>
            </table>