<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"--> 
<title><%=webname%>--最新新闻--</title>
<meta name="description" content="网域电子商务网站,公司企业网站管理系统中英繁，仿阿里巴巴商贸通商务网,商城购物系统程序,源码下载，多用户商城,客隆电子商务网站管理系统,装饰,家具,旅社社旅游网站建设，程序开发,网站开发，网站推广,商城代码,系统销售,网络营销,企业商务,整站程序,ASP代码销售,企业电子商务平台,电子政务，官方站点：http://www.wygk.cn">
<meta name="keywords" content="网域电子商务网站,公司企业网站管理系统中英繁，仿阿里巴巴商贸通商务网,商城购物系统程序,源码下载，多用户商城,客隆电子商务网站管理系统,装饰,家具,旅社社旅游网站建设，程序开发,网站开发，网站推广,商城代码,系统销售,网络营销,企业商务,整站程序,ASP代码销售,企业电子商务平台,电子政务，官方站点：http://www.wygk.cn">
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/code43.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<%
Dim Intcatid,strOrder,strcat,strcategory
Intcatid = 0
Intcatid=SafeRequest("catid",1)
strcat = "<a href=chknews.asp>综合新闻</a>"
 set rs=server.CreateObject("adodb.recordset")
If Intcatid <> 0 Then
rs.open "select category from category where categoryid="&Intcatid&" ",conn,1,1 
strcategory = trim(rs("category"))
rs.close 
strcat = strcat &"－><a href=chknews.asp?catid="&Intcatid&" target=_blank>"& strcategory &"</a> "
Else

End If
%>
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
    <td rowspan="3" width="212" height="446" valign="top"> 
      <table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
        </tr>
        <tr> 
          <td background="image/images/left_02.gif" width="212" height="127"> 
            <!-- #include file="login.asp"-->
          </td>
        </tr>
        <tr> 
          <td width="212"  valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="4"></td>
              </tr>
            </table>
            <a href="procat.asp"><img src="img/CATAGORIES.gif" width="212" height="43" border="0"></a> 
            <table width="100%" align=center>
              <tbody> 
              <tr> 
                <td class=mm> 
                  <!--#include file="include/pronav.asp"-->
                </td>
              </tr>
              </tbody> 
            </table>
            <% if left1<>"" then %>
            <a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a> 
            <% end if %>
            <!--左侧-->
            <br>
            <% if left2<>"" then %>
            <a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a> 
            <% end if %>
            <!--左侧-->
          </td>
        </tr>
      </table>
      <table height=43 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/contact.gif 
border=0>
        <tbody> 
        <tr> 
          <td  valign=top> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table cellspacing=0 cellpadding=0 width="100%" 
                              border=0 height="35">
              <tbody> 
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top><img 
                                src="img/left_customer_01.gif" 
                                align=absMiddle width="21" height="14">020-34506590</td>
              </tr>
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top height=10><img 
                                src="img/left_customer_02.gif" 
                                align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
        <tbody></tbody> 
      </table>
      <table height=51 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/time.gif border=0>
        <form name=frmTime3><tbody>
          <tr> 
            <td style="PADDING-LEFT: 38px; PADDING-TOP: 28px" 
                            valign=top> 
              <input 
                              style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; FONT: 9pt 宋体; BORDER-LEFT: 0px; WIDTH: 150px; COLOR: #585858; BORDER-BOTTOM: 0px; HEIGHT: 18px; BACKGROUND-COLOR: transparent" 
                              readOnly name=disp>
            </td>
          </tr>
        </form>
        <script>TO=setTimeout('TOfunc()',1000);</script></TBODY>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table height=51 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/conter.gif 
                          border=0>
        <tbody> 
        <tr> 
          <td style="PADDING-LEFT: 38px; PADDING-TOP: 24px" 
                            valign=top> 
            <script src="count/index2.asp?tye=num"></script>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td rowspan="3" width="747" valign="top"> 
      <table width="747" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> 
            <!-- #include file="ad.asp"-->
          </td>
        </tr>
        <tr> 
          <td><img src="image/news.gif" width="747" height="57"></td>
        </tr>
      </table>
      <table width="50%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="3"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" border=0 height="702">
        <tbody> 
        <tr> 
          <td class=ml width="11"></td>
          <td class=ml width="1" background="image/line.gif"></td>
          <td class=ml width="27"></td>
          <td align=left width="615" valign="top"> 
            <TABLE width="100%" align=center>
              <TBODY> 
              <TR> 
                            
                <TD class=mm valign="top"> 
                  <%
				Const MaxPerPage=20
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    			if Not isempty(SafeRequest("page",1)) then
      				currentPage=Cint(SafeRequest("page",1))
   				else
      				currentPage=1
   				end if 
	If Intcatid = 0 Then
	rs.open "select newsid,newsname,newscontent,addname,adddate from news Order By adddate desc",conn,1,1
	Else
	rs.open "select newsid,newsname,newscontent,addname,adddate from news Where categoryid = "& Intcatid &" Order By adddate desc ",conn,1,1
	End If
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center' class='contents'> 您还没有添加新闻！</p>"
   				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
            			showContent
            			showpage totalput,MaxPerPage,"chknews.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"chknews.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"chknews.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0

			%>
                  <TABLE bordercolorlight="#cccccc" bordercolordark="#FFFFFF"  border=1 WIDTH="650"  CELLSPACING="0" CELLPADDING="0"  align="center">
                    <TR ALIGN="center" height=30> 
                            <TD width="50%" class=table-youxia height="32" background="image/bgfoot.gif"><b>新闻主题</b></TD>
                            <TD width="25%" class=table-youxia height="32" background="image/bgfoot.gif"><b>发布人</b></TD>
                            <TD width="25%" class=table-xia height="32" background="image/bgfoot.gif"><b>发布时间</b></TD>
                          </TR>
                          <%do while not rs.eof%>
                          <TR ALIGN="center" height=25> 
                            <TD class=table-youxia STYLE="PADDING-LEFT: 6px" align="left" height="35"> 
                              <img height=11 src="image/icon_notice.gif" 
                  width=17 align=absMiddle border=0><a href="news.asp?id=<% = rs("newsid") %>" target="_blank"> 
                              <% = rs("newsname") %>
                              </a> </TD>
                            <TD class=table-youxia height="35"> <%=trim(rs("addname"))%></TD>
                            <TD class=table-xia height="35"><%=rs("adddate")%></TD>
                          </TR>
                          <%i=i+1
			if i>=MaxPerPage then Exit Do
			rs.movenext
		  loop
		  rs.close
		  set rs=nothing%>
                          
                    <tr background="image/bgfoot.gif"> 
                      <td colspan="3" height="35"> 
                        <%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If %>
                        <form method=Post action= <% = filename %>>
                                
                          <p align='center'> 
                            <%
				If CurrentPage<2 Then  %>
                            首 页 上一页 
                            <%
				Else   %>
                            <a href=<% = filename %>?page=1>首 页</a> <a href=<% = filename %>?page=<% = CurrentPage-1 %>>上一页</a> 
                            <%
				End If	
				If n-currentpage<1 Then  %>
                            下一页 末 页 
                            <%
				Else   %>
                            <a href=<% = filename %>?page=<% = (CurrentPage+1) %>>下一页</a> 
                            <a href=<% = filename %>?page=<% = n %>>末 页</a> 
                            <%
				End If  %>
                            第 <b> 
                            <% = CurrentPage %>
                            </b> 页 共 <b> 
                            <% = n %>
                            </b> 页 共&nbsp;<b> 
                            <% = totalnumber %>
                            </b>&nbsp;条新闻　每页 <b> 
                            <% = maxperpage %>
                            </b> 条新闻 转到第： 
                            <input style="background-color: #FFFFFF;border-left: 1px ridge #C6DCDE; border-right: 1px ridge #C6DCDE; border-top: 1px ridge #C6DCDE; border-bottom:1px ridge #C6DCDE" type='text' name='page' size=2 maxlength=10 class=smallInput value=<% = currentpage %>>
                                  页 
                                  <input style="background-color: #FFFFFF;border-left: 1px ridge #C6DCDE; border-right: 1px ridge #C6DCDE; border-top: 1px ridge #C6DCDE; border-bottom:1px ridge #C6DCDE" type='submit'  class='contents' value='跳转' name='cndok'>
                              </form>
                              <%
				End Function  
			%>
                            </td>
                          </tr>
                        </TABLE>
                            </TD>
                          </TR>
                          </TBODY> 
                        </TABLE>
 </td>
          <td class=mr width="30"></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td rowspan="3" width="15">&nbsp; </td>
  </tr>
  <tr> 
    <td width="29" height="48">&nbsp; </td>
  </tr>
  <tr> 
    <td height="29"> 
      <p>&nbsp;</p>
      <p>&nbsp; </p>
    </td>
  </tr>
</table>

                  <!--#include file="include/footer.asp"-->
                  <script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script>
</BODY></HTML>
