<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn2.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>百易物流网</title>
<link href="../css/zhwl.css" rel="stylesheet" type="text/css" />
</head>

<body>
<!--#include file="../inc/head2.asp"-->
<table width="960" align="center" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="30">&nbsp;<img src="../images/gif-0257.gif" />&nbsp;您当前位置：首页&nbsp;&gt;&gt;&nbsp;<a href="wlnews.asp?spic=2">物流资讯</a></td>
      </tr>
    </table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0" class="margin5">
  <tr>
    <td width="696" valign="top">
	
		<table width="100%" border="0" cellspacing="0" cellpadding="0" class="nye_kj_three">
      <tr>
        <td valign="top" style="padding-top:15px; padding-left:9px; padding-right:15px;">
		<ul class="floaright2">
		<%
		if NClassID="" then
dim NClassID
set rs=server.CreateObject("adodb.recordset")
sql="select * from News_NClass where NClassName like '"&news_lists&"'"
rs.open sql,conn,1,1
if not rs.eof then
NClassID=rs("NClassID")
end if
rs.close
set rs=nothing
else
NClassID=trim(request.QueryString("NClassID"))
end if
dim sfilename,strUnit
strUnit=""
	dim rssum,maxpage,thepages,viewpage,i
	maxpage=20	
	
	if news_keyword="" and NClassID="" then
	Sql="select * from NewsData"
	sfilename="news_search.asp?spic=2"
	
	elseif NClassID<>"" and news_keyword="" then	
	Sql="select * from NewsData where NClassID = "&NClassID&" order by NewsID desc"
	sfilename="news_search.asp?spic=2&NClassID="&NClassID&"&ne_li="&server.URLEncode(news_lists)&""
	
	elseif news_keyword<>"" and NClassID<>"" then	
	Sql="select * from NewsData where NClassID = "&NClassID&" and Title like '%"&news_keyword&"%' order by NewsID desc"
	sfilename="news_search.asp?spic=2&NClassID="&NClassID&"&news_lists="&server.URLEncode(news_lists)&"&news_keyword="&server.URLEncode(news_keyword)&""
	
	elseif news_keyword<>"" and NClassID="" then	
	Sql="select * from NewsData where Title like '%"&news_keyword&"%' order by NewsID desc"
	sfilename="news_search.asp?spic=2&news_keyword="&server.URLEncode(news_keyword)&""
	end if
	
	Set Rs=server.createobject("Adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	    response.write "<p align=""center"">没有内容</p>"
	else
	    rssum=rs.recordcount
        if rssum mod maxpage > 0 then
            thepages=rssum\maxpage+1
        else
            thepages=rssum\maxpage
        end if

        viewpage=trim(request("page"))
        if viewpage="" or isnull(viewpage) or not(isnumeric(viewpage)) then
            viewpage=1
        elseif cint(viewpage)<1 then
            viewpage=1
        else
            if cint(viewpage)>thepages then
                viewpage=1
            end if
       end if
       i=1
       if viewpage<>"1" then
           rs.move (viewpage-1)*maxpage
       end if
	   for i=1 to maxpage
           if rs.eof then exit for
	   %>
	   
	<li><a href="wlnews_show.asp?spic=2&NewsID=<%=rs("NewsID")%>">·<%=rs("Title")%></a><span>(<%=rs("CopyFrom")%>,<%=Month(rs("Regtime"))%>月<%=Day(rs("Regtime"))%>日)</span></li>
<%
           rs.movenext
       next
%>

	</ul>
<%
call showpage (strUnit,sfilename,10,"#ff0000")
end if
rs.close
set rs=nothing

%>
		</td>
      </tr>
    </table>
	
	</td>
    <td width="264" valign="top" class="padding_seven">
	
<!--#include file="Left_tuijian.asp"-->
	

	
	</td>
  </tr>
</table>



<!--#include file="../inc/bottom2.asp"-->
</body>
</html>
	<%
	conn.close
	set conn=nothing
	%>
