allnews.asp

商品订单管理：商品分类管理 添加与修改商品 管理订单 投诉订单 反馈信息 商品留言管理 管理网站用户：管理用户 管理后台管理员 新闻公告管理：新闻添加（支持图片新闻） 修改删除 首页公告设置 网站常规

<!--#include file="top.asp"-->
<%
   const MaxPerPage=20
   dim totalPut    
   dim CurrentPage 
   dim TotalPages 
   dim i,j 
   if not isempty(request("page")) then 
      currentPage=cint(request("page")) 
   else 
      currentPage=1 
   end if  
%> 


          <div align="center">
            <center> 


          <table width="778" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
            <tr> 
                    <td width="0%" height="25" bgcolor="#DBC2B0" align="center">
                    <font color="#FFFFFF"><b>News</b></font></td>
                  </tr>
                  <tr> 
                    <td height="2"> 
                            <% 
sql="select * from news order by news_ID DESC" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
      response.write "No News！" 
   else 
	  totalPut=rs.recordcount 
      if currentpage<1 then 
          currentpage=1 
      end if 
      if (currentpage-1)*MaxPerPage>totalput then 
	   if (totalPut mod MaxPerPage)=0 then 
	     currentpage= totalPut \ MaxPerPage 
	   else 
	      currentpage= totalPut \ MaxPerPage + 1 
	   end if 
 
      end if 
       	       if currentPage=1 then 
                    showpages 
                    showContent 
		    showpages 		
	           else 
		         if (currentPage-1)*MaxPerPage<totalPut then 
		            rs.move  (currentPage-1)*MaxPerPage 
		            dim bookmark 
		            bookmark=rs.bookmark 
                    showpages 
                    showContent 
	            showpages 		
                  else 
			        currentPage=1 
                   showpages 
                    showContent 
                     showpages 
			      end if 
			   end if 
			
   end if 
sub showcontent
   %>
                            <%do while not rs.eof%>
                            <p style="word-spacing: 2; line-height: 120%; margin-top: 4; margin-bottom: 6"> 
                              <%i=0 %>
                              <%if len(rs("news_title"))>20 then         
                    news_title=left(rs("news_title"),20)         
                %>
                              <img src="img/new4.gif">&nbsp;<a href="javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',450,300)"><%=news_title%>……&nbsp;(<%=rs("news_date")%>)
                              </a> 
                              <%else%>
                              <img src="img/new4.gif">&nbsp;<a href="javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',450,300)"><%=rs("news_title")%>&nbsp;(<%=rs("news_date")%>)</a> 
                              <%end if%>
                              <br>
                              <% i=i+1 
	      if i>=MaxPerPage then exit do 
	      rs.movenext 
	   loop 
	 end sub%>
                              <% 
 
   sub showpages() 
          dim n 
	   if (totalPut mod MaxPerPage)=0 then 
	      n= totalPut \ MaxPerPage 
	   else 
	      n= totalPut \ MaxPerPage + 1 
	   end if 
  response.write "<center>" 
	 
       response.write "<br>"
 response.write "&nbsp;Total: "&totalput&" " 
	   dim k 
	   response.write " Page" 
    for k=1 to n 
	       if k=currentPage then 
	          response.write "["+Cstr(k)+"] " 
		   else 
		      response.write "[<b>"+"<a href='allnews.asp?page="+cstr(k)+"&user_province="&keyword&"'>"+Cstr(k)+"</a></b>]   " 
		   end if 
	next 
 response.write "</center>" 
   end sub %>
                          </td>
                        </tr>
                      </table>
            </center>
</div>
  <!--#include file="copy.asp"-->
</body>
</html>