<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<HTML><HEAD><TITLE><%=webname%>--新闻中心</TITLE>
<meta name="description" content="免费建站 网上开店 免费网上开店 网上购物 电脑 网络 软件 随身视听 家用电器 音响 照相机 摄像机 数码产品 手机 电话 鲜花 玩具 礼品 游戏 汽车 摩托 服装 鞋帽 箱包 服饰 香水 彩妆 化妆品 保健品 珠宝首饰 影视 音乐 音像 动漫 办公用品 设备 耗材 运动休闲 户外野营 居家 日用 装饰 宠物 邮币 古董 字画 收藏 乐器 明星 工艺品 游戏卡 电话卡 邮箱卡 成人用品 情趣用品"> 
<meta name="keywords" content="免费建站,网上开店,免费网上开店,网上购物">
<META http-equiv=Content-Type content='text/html; charset=gb2312'>
<LINK href=imagess/shop.css type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {font-weight: bold}
.style2 {
	font-size: 11pt;
	font-weight: bold;
}
-->
</style>
</HEAD>
<NOSCRIPT><IFRAME SRC=*.html></IFRAME></NOSCRIPT>
<table width=900 border=0 align=center  cellpadding=0 cellspacing=0>
  <tr>
 <td ><!--#include file=top.asp--></td>
  </tr>
</table>
<table width=98%  border=0 align="center" cellpadding=0 cellspacing=0>
  <tr>
    <td height=30></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="4" rowspan="4" align="right" valign="bottom"><table width="900" border="0" cellpadding="0" cellspacing="1" bgcolor="#f1f1f1">
      <tr>
        <td align="center" valign="top" bgcolor="#FFFFFF">
		<img src="imagess/bannersub.jpg" width="900" height="115">
            <table width=100%  border=0 cellpadding=0 cellspacing=0>
              <tr>
                <td height=20><table width="650" align="center" border="0" cellspacing="0" cellpadding="0">
<tr><td colSpan="2">
<table width=900 align=center class=table-shang border=0 cellpadding=0 cellspacing=0 bgcolor=#f1f1f1>
<TR>
<TD bgColor=#ffffff colSpan=2 height=1 width="646"></TD>
<tr> 
<td width=324 height=26><span class="style2">　　　　产品资讯</span></td>
<td width=324 height=26><span class="style2">　　　　本站新闻</span></td>
</tr></table></td></tr>
<tr> 
<td width="50%" valign="top" class="table-you" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
        <%set rs=server.createobject("adodb.recordset")
		rs.open "select * from zhuanti  order by newsid desc",conn,1,1
		if rs.recordcount=0 then 
		%>
        <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr>
          <td align=center>暂无资讯</td>
        </tr>
        </table>
        <%
		else
	  		rs.PageSize =10 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>
        <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
          <%
			For i=1 To x
			%>
          <tr> 
            <td align=center height=24 width="10%" class="table-xia"><img src="images/ring01.gif"></td>
            <td height=24 class="table-xia"><a href=listzt.asp?id=<%=rs("newsid")%> > 
            <%=replace(trim(rs("title")),"<br>","")%></a></td>
            </tr>
          <%
			rs.movenext
		    next
			%>
        </table>
        <div align="left">
            <%
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#ffffff>" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=center height=35>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
               
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
  
      </div></td>
<td width="50%" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
        <%set rs=server.createobject("adodb.recordset")
		rs.open "select * from shop_News  order by adddate desc",conn,1,1
		if rs.recordcount=0 then 
		%>
        <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr><td align=center>暂无新闻</td></tr>
        </table>
        <%
		else
	  		rs.PageSize =10 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>
        <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
          <%
			For i=1 To x
			%>
          <tr> 
            <td align=center height=24 width="10%" class="table-xia"><img src="images/ring01.gif"></td>
            <td  height=24 class="table-xia"><a href=news.asp?id=<%=rs("newsid")%>><%=replace(trim(rs("newsname")),"<br>","")%></a></td>
            </tr>
          <%
			rs.movenext
		    next
			%>
        </table>
        <div align="left">
            <%
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#ffffff>" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=center height=35>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
            
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
        </div></td>
</tr>
</table></td>
              </tr>
            </table>
            <table width="670"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="30" height="41">
				<img src="imagess/top_search_r1_c1.gif" width="30" height="41"></td>

                  <td height="41" background="imagess/top_search_r1_c2.gif">
<table width="97%" height="15" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="searchinfo_99.asp"--></td>
    </tr>
</table>
              </td>

                <td width="10" height="41" align="left">
				<img src="imagess/top_search_r1_c3.gif" width="10" height="41"></td>
              </tr>
          </table>
            <table width=100%  border=0 cellpadding=0 cellspacing=0>
              <tr>
                <td height=20></td>
              </tr>
          </table></td>
      </tr>
    </table></td>
    <td height="5"></td>
  </tr>
  <tr>
    <td height="5" bgcolor="#CCCCCC"></td>
  </tr>
  <tr>
    <td height="20" bgcolor="#CCCCCC"></td>
  </tr>
  <tr>
    <td width="5" height="50" bgcolor="#CCCCCC"></td>
  </tr>
  <tr>
    <td width="60" height="3" bgcolor="#CCCCCC"></td>
    <td width="290" bgcolor="#CCCCCC"></td>
    <td width="349" bgcolor="#CCCCCC"></td>
    <td height="3" colspan="2" bgcolor="#CCCCCC"></td>
  </tr>
</table>
<table width=98%  border=0 align="center" cellpadding=0 cellspacing=0>
  <tr>
    <td height=20></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</html>





