<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="heade.asp"-->
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/classcount.asp"-->
<!--#include file="../inc/safe.asp"-->
<style type="text/css">
<!--
.S1 {	FONT-SIZE: 12px
}
.M1 {font-WEIGHT:bold;font-SIZE:14px;}
.gray-bar-border {border-top:4 solid #cc3300;background: #E7E7E7;vertical-align:middle;padding-left:15px;height:26px;border-left:1px solid #B8B8B8;border-right:1px solid #B8B8B8;}
.gray-border {border:1px solid #B8B8B8;border-width:0 1 1 1;padding-bottom:1px}
-->
</style>
<%
dim keyword
keyword=Replace_Text(request("title"))
title=Replace_Text(request("txtitle"))
if Chkrequest(request("typeid")) then
typeid=request("typeid")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if
if Chkrequest(request("page")) then
currentPage=request("page")
else
currentPage=1
end if
dim sql
dim rs
%>
<%
if typeid="0" then
set rs=server.createobject("adodb.recordset") 
sql ="select * from news where title like '%"&title&"%' order by NewsID Desc" 
rs.open sql,conn,1,1
else
end if
set rsjj=server.createobject("adodb.recordset") 
sqljj ="select * from newstype where typeid="&typeid&"" 
rsjj.open sqljj,conn,1,1
newstype=rsjj("type")
%>
<table width=750 border=0 align="center" cellPadding=0 cellSpacing=0 class=outborder>
  <tr>
    <td width="88" height=59 align="right" valign="top" class=searchbar><a href="index.asp"><img src="images/club_logo.gif" width="88" height="51" border="0"></a></td>
    <td valign="top" class=searchbar>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr align="center">
          <td height="22" colspan="3" valign="middle" class="S"> <a href="index.asp" class="black">首页</a> | <a href="indexpro.asp?typeid=7" class="black">贸易</a> | <a href="indexpro.asp?typeid=8" class="black">创业</a> | <a href="indexpro.asp?typeid=9" class="black">诚信</a> | <a href="indexpro.asp?typeid=10" class="black">管理</a> | <a href="indexpro.asp?typeid=22" class="black">化工</a> | <a href="indexpro.asp?typeid=23" class="black">农业</a> | <a href="indexpro.asp?typeid=24" class="black">冶金</a> | <a href="indexpro.asp?typeid=1" class="black">机械</a> | <a href="indexpro.asp?typeid=25" class="black">纺织</a> | <a href="indexpro.asp?typeid=26" class="black">服饰</a> | <a href="indexpro.asp?typeid=27" class="black">食品</a> | <a href="indexpro.asp?typeid=28" class="black">轻工</a> | <a href="indexpro.asp?typeid=29" class="black">电子</a> | <a href="indexpro.asp?typeid=30" class="black">家电</a> | <a href="indexpro.asp?typeid=35" class="black"><font class="black">医药</font></a> </td>
        </tr>
        <tr><FORM action="indexpro.asp" name=search_form onsubmit="javascript:if(doSearch()==false) return false;" method=post>
          <td width=125 height="25"  valign="bottom" background="images/title.gif">&nbsp;<font class=HEADWHITE><%if typeid="0" then response.write"所有信息" else response.write""&newstype&"资讯" end if%></font></td>
          <td width="391" class="S1">&nbsp;&nbsp;
            <input name=txtitle size=25>&nbsp;&nbsp;
            <select name="typeid" size="1" class=f11>
              <%dim rs2,sql2,sel
set rs2=server.createobject("adodb.recordset")
sql2="select * from newstype"
rs2.open sql2,conn,1,1
do while not rs2.eof
sel="selected" 
response.write "<option " & sel & " value="&rs2("typeID")&" name=typeid>"+rs2("type")+"</option>"+chr(13)+chr(10)
rs2.movenext
loop
rs2.close
%>
              <option selected value="0">全部</option>
            </select>&nbsp;&nbsp;
            <input 
name=I9 type=image src="../images/serch.gif" align=top width="65" height="22" border=0 >
</td>
          <td width="138" class="S1" align="left"><img src="images/club_index_22.gif" width="18" height="19" align="absmiddle"> <a href="/search/search.asp" class="c black">高级搜索</a></td>
        </FORM></tr>
    </table></td>
  </tr>
</table>
<SCRIPT LANGUAGE='JavaScript' SRC='../js/infosearch.js' TYPE='text/javascript'></script>
<table width=750 border=0 align="center" cellPadding=0 cellSpacing=0 class=searchdown>
  <tr>
    <td class="white" align=center height="27">
      <table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="86%">
		<MARQUEE height=10 id=infonews onmouseout=infonews.start() onmouseover=infonews.stop() scrollAmount=3 scrollDelay=90 width="100%" align="middle">		<%sql="select top 25 * from news where tjnews=1 order by NewsID Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂无资讯"
			else
			do while not rs.eof
			response.write"<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class=white><font color='#FFFFFF'>"&rs("title")&"</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			rs.movenext
			loop
			end if%>
        </MARQUEE>
		  </td>
        </tr>
    </table></td>
  </tr>
</table>
<br>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
    <TR>
      <TD vAlign=top width=222>
        <TABLE class=buttonbar cellSpacing=0 cellPadding=0 width="100%" 
        border=0>
          <TBODY>
            <TR>
              <TD><SPAN class=HEAD>热门资讯排行榜</SPAN></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE class=blueborder cellSpacing=0 cellPadding=0 width="100%" 
        border=0>
          <TBODY>
            <TR>
              <TD>
                <TABLE width="100%" border=0 cellPadding=2 cellSpacing=0 bgcolor="#F7F7F7">
                  <TBODY>
                    <TR>
                      <TD class="s wordbreak">
                      <%sql="select top 30 * from news order by hits Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			do while not rs.eof
			response.write"·<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='lh15'>"&left(rs("title"),16)&"</a><br>"
			rs.movenext
			loop
			%></TD>
                    </TR>
                  </TBODY>
                </TABLE>
              </TD>
            </TR>
          </TBODY>
        </TABLE>
      </A></TD>
      <TD width=13>&nbsp;</TD>
      <TD vAlign=top>
	
        <TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
          <TBODY>
            <TR>
              <TD class=orangeborder width=144> <div align="left"><IMG height=17 src="images/club_index_21.gif" width=17> <font class=HEADWHITE>
                        <%if typeid="0" then response.write"所有信息" else response.write""&newstype&"资讯" end if%>
              </font></div></TD>
              <TD class=orangeborder width=234><span class=S>[<font 
            color=red><b>全部</b></font>资讯话题]</span></TD>
              <TD width="107" align=right vAlign=bottom class=orangeborder><IMG 
            src="../images/icon_point.gif" width="18" height="19" align=absMiddle> <A class=s href="/member/myemail/orderbegin.asp" 
            target=_blank>订阅社区杂志</A></TD>
            </TR>
            <TR bgColor=#f4f4f4>
              <TD height=35 colspan="2" class=blackborder>
                <TABLE width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
                  <TBODY>
                    <TR>
                      <TD><font color=red><b>推荐</b></font> ·<B><%sql="select top 1 * from news where typeid="&typeid&" and tjnews=1 order by NewsID Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			if rs.eof then
			response.write" 暂无此栏目推荐资讯"
			else
			do while not rs.eof
			response.write"<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class=white><FONT class=S1 color=#3D362B>"&rs("title")&"</font></a>"
			rs.movenext
			loop
			end if%></B></A></TD>
                    </TR>
                  </TBODY>
              </TABLE></TD>
              <TD class="S blackbordernoleft M" 
            background=images/bg1.gif><div align="right"><span class=S>今日更新(<font color=red><%=zixun_datetime_erji%></font>)条</span></div></TD>
            </TR>
            <TR>
            </TR>
          </TBODY>
      </TABLE>
	    <%
const MaxPerPage=20'每页显示信息数目 
dim totalPut 
dim CurrentPage
dim TotalPages
dim i,j
if Chkrequest(request("page")) then
currentPage=request("page")
else
currentPage=1
end if
%>
<%
if typeid="0" then
set rs=server.createobject("adodb.recordset") 
sql ="select * from news where title like '%"&title&"%' order by NewsID Desc" 
rs.open sql,conn,1,1
else
set rs=server.createobject("adodb.recordset") 
sql ="select * from news where title like '%"&title&"%' and typeid="&typeid&" order by NewsID Desc" 
rs.open sql,conn,1,1
end if
set rsjj=server.createobject("adodb.recordset") 
sqljj ="select * from newstype where typeid="&typeid&"" 
rsjj.open sqljj,conn,1,1
newstype=rsjj("type")
if rs.eof and rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('对不起，此栏目暂无资讯信息！');"
response.write"javascript:history.go(-1)</SCRIPT>"
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
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
else 
currentPage=1 
showContent
end if 
end if 
rs.close 
end if 
set rs=nothing
sub showContent
%>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="100%" border=0 cellpadding=4 cellspacing=0 bordercolor="#111111" style="border-collapse: collapse">
                <tbody>
                  <%do while not rs.eof%>
                  <tr <%if icolor=0 then response.write"bgColor=#f9f9f9" else response.write"bgColor=#ffffff" end if%>>
                    <td width="84%" class=s><IMG 
                  src="images/club_index_15.gif" width=12 height=14 align="absmiddle">&nbsp;<a href="shownews.asp?newsid=<%=rs("newsid")%>" target=_blank><%=left(rs("title"),28)%></a></td>
                    <td width="16%" align=right>
                      <p align="left" class=s>[<%=FormatDate(rs("dateandtime"),2)%>] 
                    </td>
                  </tr>
                  <tr>
                    <td colspan="2" align=center>
<% i=i+1 
if i>=MaxPerPage then exit do 
icolor=icolor+1
if icolor>1 then icolor=0
rs.movenext 
loop 
%>
                    </td>
                  </tr>
                </tbody>
              </table>
              <TABLE width=100% border=0 align="center" cellPadding=1 cellSpacing=0 bgColor=#fcdfb4>
                <TBODY>
                  <TR>
                    <TD>
                      <TABLE cellSpacing=0 cellPadding=4 width="100%" bgColor=#fef8e2 
        border=0>
                        <TBODY>
                          <TR>
                            <TD class=M noWrap align=middle><div align="center"><br>
                                    <span class="m" style="font-size: 13; font-weight: bold;">
                                    <%showpage totalput,MaxPerPage,"indexpro.asp"%>
                                    <%
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 
response.write "<form method=Post action="&filename&"?newtypeid="&newtypeid&">" 
if CurrentPage<2 then 
response.write "【←最前页&nbsp;&nbsp;上一页&nbsp;" 
else 
response.write "【<a href="&filename&"?page=1&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">←最前页</a>&nbsp;" 
response.write "&nbsp;<a href="&filename&"?page="&CurrentPage-1&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">上一页</a>&nbsp;" 
end if 
if n-currentpage<1 then 
response.write "&nbsp;下一页&nbsp;&nbsp;&nbsp;最后页→】" 
else 
response.write "&nbsp;<a href="&filename&"?page="&(CurrentPage+1)&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">" 
response.write "下一页</a>&nbsp;&nbsp;<a href="&filename&"?page="&n&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">最后页→</a>】" 
end if 
response.write "</form>" 
end function
%>
【当前显示每页(<font color=red><%=MaxPerPage%></font>)条&nbsp;&nbsp;<font color=red><%if typeid="0" then response.write"所有信息" else response.write""&newstype&"资讯" end if%></font>共有话题(<font color=red><%=zixun_erji%></font>)条&nbsp;&nbsp;今日更新(<font color=red><%=zixun_datetime_erji%></font>)条】</span></div></TD>
                          </TR>
                        </TBODY>
                    </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></td>
          </tr>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
<div align="center"><br>
  <a href="/search.asp" target="_blank"><img src="../help/images/tpbuyer_cstop.jpg" width="750" height="112" border="0"></a>
</div>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" vAlign=top><TABLE class=buttonbar cellSpacing=0 cellPadding=0 width=100% border=0>
      <TBODY>
        <TR>
          <TD><SPAN class=HEAD>相关图片资讯</SPAN></TD>
        </TR>
      </TBODY>
    </TABLE>
	       <table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3" class=blueborder>
             <tr>
               <td align="center"><br><% 
            sql="select top 1 * from news where typeid="&typeid&" and tjnews=0 and homehot<>1 and tjhome<>1 and selectpic=1 order by NewsID desc" 
            Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			if rs.eof then
			response.write" <br><br>暂无相关图片资讯信息"
			else
			do while not rs.eof
			response.write"<DIV align=center><a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='s'><img src='pic/"&rs("picurl")&"' width='170' height='142' hspace='5' vspace'5' class='porductborder'><br>"
			response.write"<br>"&left(rs("title"),13)&"</a></div>"
			rs.movenext
			loop
			end if
			%></td>
             </tr>
      </table>	</td>
    <td width="13">&nbsp;</td>
    <td width="200" vAlign=top><TABLE class=buttonbar cellSpacing=0 cellPadding=0 width=100% border=0>
      <TBODY>
        <TR>
          <TD><SPAN class=HEAD>推荐图片资讯</SPAN></TD>
        </TR>
      </TBODY>
    </TABLE>
    <table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3" class=blueborder>
      <tr>
        <td align="center"><br><% 
            sql="select top 1 * from news where typeid="&typeid&" and tjnews=1 and selectpic=1 order by NewsID desc" 
            Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			if rs.eof then
			response.write" <br><br>暂无推荐图片资讯信息"
			else
			do while not rs.eof
			response.write"<DIV align=center><a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='s'><img src='pic/"&rs("picurl")&"' width='170' height='142' hspace='5' vspace'5' class='porductborder'><br>"
			response.write"<br>"&left(rs("title"),13)&"</a></div>"
			rs.movenext
			loop
			end if
			%></td>
      </tr>
    </table></td>
    <td width="13">&nbsp;</td>
    <td vAlign=top><TABLE class=buttonbar cellSpacing=0 cellPadding=0 width="100%" 
        border=0>
      <TBODY>
        <TR>
          <TD><SPAN class=HEAD><%if typeid="0" then response.write"所有信息" else response.write""&newstype&"资讯" end if%>热门排行榜</SPAN></TD>
        </TR>
      </TBODY>
    </TABLE>
      <TABLE class=blueborder cellSpacing=0 cellPadding=0 width="100%" 
        border=0>
        <TBODY>
          <TR>
            <TD>
              <TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
                <TBODY>
                  <TR>
                    <TD bgcolor="#F7F7F7" class="s wordbreak">
                      <%sql="select top 10 * from news where typeid="&typeid&"order by hits Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			do while not rs.eof
			response.write"·<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='lh15'>"&rs("title")&"</a> ("&rs("hits")&"人浏览)<br>"
			rs.movenext
			loop
			%></TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
</table>
<br>
<div align="center">
    <table width="750" border="0" cellpadding="0" cellspacing="0" class="gray-bar-border">
    <tr>
      <td class=M1>友 情 联 接</td>
    </tr>
  </table>
  <TABLE class=gray-border cellSpacing=0 cellPadding=0 width=750 border=0>
    <TR>
      <TD>
        <table width="100%" border="0" cellspacing="0" cellpadding="10">
          <tr>
            <TD>
              <div align="center"><a href="http://www.gfoodii.com/" target="_blank"><img src="images/0.gif" width="140" height="60" border="0"></a> </div></TD>
            <TD><div align="center"><a href="http://www.dajingmao.com/" target="_blank"><img src="images/1.gif" width="140" height="60" border="0"></a> </div></TD>
            <TD><div align="center"><a href="http://www.chinafairs.org/" target="_blank"><img src="images/2.gif" width="140" height="60" border="0"></a> </div></TD>
            <TD><a href="http://www.lawperson.cn/" target="_blank"><img src="images/3.gif" width="140" height="60" border="0"></a></TD>
          </tr>
        </table></TD>
    </TR>
  </TABLE>
</div>
</div> 
<!--#include file="../inc/end.asp"-->

