shopnews.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"-->
<!--#include file="inc/UserChk.asp"-->
<TABLE width=778 border=0 align=center cellSpacing=0 cellPadding=0 >
  <TBODY>
    <TR> 
      <td width=182 valign=top>
           
               <!--#include file="center.asp"--></td><td class=line></td> 
      <TD align="center" vAlign=top> 
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 >
          <TBODY>
            <TR> 
              <TD class=main_title_bsf>新闻管理</TD> </TR>
            <TR> 
      <TD align="center" vAlign=top > 
          <%
dim sql,rs
set rs=server.createobject("adodb.recordset")
sql="select * from dd_new where user_id="&session("user_id")&""
rs.open sql,conn,1,3

%><SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>


 <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
                  <tr align="center"> 
                    <td width="15%" class="tablebody1" ><font class=font>新闻名称</font></td>
                    <td width="15%" class="tablebody1" ><font class=font>发布时间</font></td>
                    <td width="8%" class="tablebody1" ><font class=font>修改</font></td>
                    <td width="8%" class="tablebody1" ><font class=font>删除</font></td>
                  </tr>
                <%
	  IF not rs.eof and not rs.bof then
	  dim page_size
	  dim page_no
	  dim page_total
	  page_size=8
	  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 align="center" class="tablebody1" ><a href="shopnewsinfor.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a></td>
                    <td align="center" class="tablebody1" ><%=rs("date")%></td>
                    <td align="center" class="tablebody1" ><a href="shopnews_edit.asp?id=<%=rs("id")%>">修改</a></td>
                    <td align="center" class="tablebody1" ><a href="shopnews_del.asp?id=<%=rs("id")%>">删除</a></td>
                  </tr>
 <%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>         </table>
              </TD>
            </TR>
          </TBODY>
        </TABLE>
     <table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
              <tr>
                <td><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>


<!--#include file="bottom.asp"-->