news_list.asp

一个较好的网上购物系统 是基于ASP的多用户网上商城

<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->

<strong><font color="#00009c">
<SCRIPT language=JavaScript>
function CheckInput(){

	if(input.username.value==''){
		alert("用户帐号不能为空！");
		input.username.focus();
		return false;
	}
	if( input.password.value =="") {
                alert("密码不能为空!")
		input.password.focus();
        return false;
    }
	
	return true;
}
</SCRIPT>
</font></strong>
<TABLE width=760 border=0 align=center cellSpacing=0 cellPadding=0>
  <TBODY>
    <TR> 
     <TD vAlign=top  width=176><!--#include file="left.asp"-->
         </TD><td bgcolor="#59be48" width="1"></td>
      <TD vAlign=top>
<%
dim strsql,rs
set rs=server.CreateObject("adodb.recordset")
strsql="Select * From news Order By news_id Desc"
rs.open strsql,conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>
         <div align="center">

        <TABLE cellSpacing="1" cellPadding=0 width="570" border=0  bgcolor="#E4F4E1">
          <TBODY>
          
                    <TR> 
                      <TD align="left" height=21 bgcolor="#E4F4E1">
						&nbsp;<img border="0" src="images/news.gif" width="15" height="15">
						新闻列表</TD>
                 
            </TR>
            <TR>               <TD> <table width="100%" border="0" cellpadding="2" cellSpacing="1">
 <%
	  IF not rs.eof and not rs.bof then
	  dim page_size
	  dim page_no
	  dim page_total
	  page_size=20
	  if request.QueryString("page_no")="" then
	  page_no=1
	  else
	  page_no=cint(request.QueryString("page_no"))
	  end if
	  rs.pagesize=page_size
	  page_total=rs.pagecount
	  rs.absolutepage=page_no
	  dim I,J
	  I=0
	  J=page_size
	  do while not rs.eof and J>0
	  J=J-1
	  I=I+1
      %>
            
            
                  <tr> 
                    <td height=18 bgcolor="#FFFFFF" >&nbsp; ·<a href="news_info.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=rs("news_title")%></a></td>
                    <td align="right" bgcolor="#FFFFFF" ><font color="#999999">(<%=rs("news_date")%>)</font></td>
                   
                  </tr>
             
         <%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>
        </TABLE> 
<table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
              <tr>
                <td bgcolor="#E4F4E1"><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一页</a>]
              <%if int(page_no)>1 then%>
              [<a href="?page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
              <%elseif int(page_no)<=1 then%>
              [<a href="?page_no=1">前一页</a>]
              <%end if%>
              <%if int(page_no)<int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
              <%elseif int(page_no)>=int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_total))%>">后一页</a>]
              <%end if%>
              [<a href="?page_no=<%=page_total%>">最后一页</a>] 转到
              <input name="page" type="text" value="<%=page_no%>" size="5">页
			<input type="button" class=input name="Submit" value="转到" onclick="GoPage()"></div></td>
              </tr>
</table>
     
</TD>
            </TR>
          </TBODY>
        </TABLE>
      </div>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"-->      </TD>
    </TR>
  </TBODY>
</TABLE>
<%
conn.Close
Set conn=Nothing
%>