<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}
.style6 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<!--#include file="head.asp"-->
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/classcount.asp"-->
<!--#include file="../inc/safe.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
const Max=6
const Max1=8
const TjMax=18
const PicMax=1
%>
<span class="searchbar">
<%
set rssort=server.createobject("adodb.recordset")
sql="select * from newstype "
rssort.open sql,conn,1,1
%>
</span>
<CENTER>
  <TABLE class=outborder cellSpacing=0 cellPadding=0 width=750 border=0>
    <TBODY>
      <TR>
        <TD vAlign=top align=middle height=59><a href="/info/index.asp"><IMG src="images/club_index_01.gif" width=98 
      height=60 border="0"></a></TD>
        <TD class=searchbar height=60>
          <TABLE width="100%" border="0" cellpadding="0" cellspacing="0">
        <TR>   
          <%j=1
          do while not rssort.eof
          %>
          <td class=S1 vAlign=center align=middle width=636 height=20>&nbsp;<a href="#<%=rssort("typeid")%>" class=black><%=rssort("type")%></a> |</td>
          <%if j mod 15 = 0 then %></tr><tr bgColor=#ffffff> <%end if%>
          <% rssort.movenext
             j=j+1
             loop
             rssort.close
             set rssort=nothing
          %>
      </TABLE></TD>
      </TR>
    </TBODY>
  </TABLE>
  <TABLE class=searchdown height=27 cellSpacing=0 cellPadding=0 width=750 
border=0>
    <TBODY>
      <TR>
        <TD vAlign=bottom align=right height=30>
          <TABLE width="98%" height="30" border=0 cellPadding=2 cellSpacing=0>
            <SCRIPT LANGUAGE='JavaScript' SRC='../js/infosearch.js' TYPE='text/javascript'></script>
<FORM action="indexpro.asp" name=search_form onsubmit="javascript:if(doSearch()==false) return false;" method=post>
<TBODY>
              <TR>
                <TD width="25%" vAlign=center><INPUT name=txtitle size=28>                  </TD>
                <TD width="12%" vAlign=center><select name=title>
                  <option selected 
value=title>标题检索</option>
                  <option 
value=content>全文检索</option>
                </select></TD>
                <TD width="10%" vAlign=center><a href="javascript:searchInCommunity()">
                  <select name="typeid" size="1" class=f11 style="width: 60; height: 20">
                    <option selected value="0">全部</option>
                    <%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
if typeID=cstr(rs2("typeID")) then
sel="selected"
else
sel=""
response.write "<option " & sel & " value='" + Cstr(rs2("typeID")) + "'>" + rs2("type") + "</option>"
rs2.movenext
end if 
loop
rs2.close
%>
                  </select>
                </a></TD>
                <TD width="13%" vAlign=center><input name="imageField" type="image" src="images/search.gif" width="65" height="22" border="0"></TD>
                <TD width="15%" vAlign=center><span class="style6">◆</span> <a 
            href="/search.asp"><font 
            color=#ffffff>高级搜索</font></a> <span class="style6">◆</span></TD>
                <TD width="25%" vAlign=center><span class="C"><font 
            color=#ffffff>友情链接：</font></span><a 
            href="http://www.sohu.net/" target="_blank"><font 
            color=#ffffff>搜狐商务会员 </font></a></TD>
            </FORM>
        </TABLE>
</TD>
      </TR>
    </TBODY>
  </TABLE>
  <br>
  <TABLE cellSpacing=0 cellPadding=0 width=750 border=0>
    <TBODY>
      <TR>
        <TD vAlign=top width=420>
          <TABLE cellSpacing=0 cellPadding=0 width=420 border=0>
            <TBODY>
              <TR>
                <TD width=143 background=""><IMG height=29 
            src="images/club_index_04.gif" width=143></TD>
                <TD vAlign=center width=276 background=images/club_index_05.gif>
                  <MARQUEE height=10 id=clubnews onmouseout=clubnews.start() onmouseover=clubnews.stop() scrollAmount=3 scrollDelay=90 width="100%" align="middle">
                  <SPAN class=S1>
				  <%sql="select top 5 * from news where wzgg=0 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>"&rs("title")&"</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			rs.movenext
			loop
			end if%>
				  </SPAN>
                </MARQUEE></TD>
                <TD align=right width=3 background=images/club_index_05.gif><IMG 
            height=29 src="images/club_index_06.gif" 
      width=6></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE class=lh13 
      style="BORDER-RIGHT: #B0B0B0 1px solid; BORDER-LEFT: #B0B0B0 1px solid; BORDER-BOTTOM: #B0B0B0 1px solid" 
      cellSpacing=0 cellPadding=7 width=420 border=0>
            <TBODY>
              <TR>
			  <%
sql="select * from news where selectpic=1 and tjnews=1 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%>
                <TD vAlign=top align=middle width=141 bgColor=#F5F5F5 height=155><a href="shownews.asp?newsid=<%=rs("newsid")%>" target="_blank">
<img src="pic/<%=rs("picurl")%>" width=125 height=139 style="border: 0px solid #000000"></a></TD>
                <TD vAlign=top width=282 bgColor=#F5F5F5>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR>
                        <TD class=lh15><IMG height=20 
                  src="images/club_index_07.gif" width=20 align=absMiddle> <a href="shownews.asp?newsid=<%=rs("newsid")%>" target="_blank"><% if len(rs("title"))>14 then%><strong><%=left(rs("title"),13)%>..</strong><% else%><strong><%=rs("title")%></strong><%end if%></a> </TD>
                      </TR>
                      <TR>
                        <TD 
                  class="S lh15">　　<%=mid(rs("content"),1,90)%>……</TD>
                      </TR>
                      <TR>
                        <TD vAlign=bottom align=right><IMG height=19 
                  src="images/club_index_09.gif" width=18 align=absMiddle> <A 
                  class=S1 
                  href="shownews.asp?newsid=<%=rs("newsid")%>" target="_blank">详细信息</A> </TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              </TR>
            </TBODY>
          </TABLE>
          <BR>
          <TABLE class=downborder cellSpacing=0 cellPadding=0 width="100%" 
        border=0>
            <TBODY>
              <TR>
                <TD class=buttonbar vAlign=center width=115><IMG height=20 
            src="../images/icon_black_45down.gif" width=20 align=absMiddle><SPAN 
            class=head>商业机会</SPAN></TD>
						<TD class=midbar width=3>&nbsp;</TD>
              <td width="110" class="companybar" onMouseOver="this.style.cursor='hand'" OnClick="location.href='/vipinfo/list.asp'">专项商机</td>
			<td class=midbar width=9>&nbsp;</td>
                <TD class=companybar onmouseover="this.style.cursor='hand'" 
          onclick="location.href='/corporation/index.asp'" 
          width=110>公司库</TD>
                <TD class=midbar width=153>&nbsp;</TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE class=blackborder cellSpacing=0 cellPadding=0 width="100%" 
border=0>
            <TBODY>
              <TR>
                <TD colspan="3">
                  <TABLE width="100%" height="50" border=0 cellPadding=0 cellSpacing=0>
          <TBODY>
            <TR>
              <TD height="25" class=buttoncolor><FONT 
                  class="NOL white">供应信息</FONT></TD>
                  <TD height="25" class=norightbuttonborder><a 
                  href="../seller/trade/trade.asp?sortid=1" target="_blank">采购信息</a></TD>
                  <TD height="25" class=norightbuttonborder><a 
                  href="../tradeinfo/trade/trade.asp?sortid=30" target="_blank">代理信息</a></TD>
                  <TD height="25" class=norightbuttonborder><a 
                  href="../seller/trade/trade.asp?sortid=32">项目合作</a></TD>
                  <TD height="25" class=norightbuttonborder><a 
                  href="../tradeinfo/trade/trade.asp?sortid=12">商务服务</a></TD>
                  <TD height="25" class=norightbuttonborder><a 
                  href="../tradeinfo/trade/trade.asp?sortid=25">加工信息</a></TD>
            </TR>
            <TR>
              <TD colspan="6"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="11"></td>
                </tr>
              </table>
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><%
sortsql="select * from class_1"   
set rssort=conn.execute(sortsql)
if rssort.eof then
response.write"暂无行业分类"
else
%>
                  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <TBODY>
                      <TR>
					  					  				  <%j=1
do while not rssort.eof
%>
                        <TD height="25" class=paddleft><A href="/tradeinfo/trade/trade.asp?sortid=<%=rssort("sortid")%>" class=M><%=rssort("sort")%></A> <span class="S">(<font color=#CE3F0F><%=yijicount_buy_sale%></font>条供求)</span> </TD>
            <%if j mod 2 = 0 then %></TR><tr><%end if%>
                  <%
rssort.movenext
j=j+1
loop
end if
%>
                    </TBODY>
                  </TABLE>
              </td>
                  </tr>
                </table></TD>
              </TR>
          </TBODY>
        </TABLE>
<TR>
                <td width="5%" height="40" style='color:#FF9900;'>&nbsp;&nbsp;&nbsp;</td>
                <TD width="95%"><div id=dealScroll style='width:100%;line-height:20px;'>
				<%sql="select top 6 vipinfo_id,viptype,vipshowname,dateandtime from vipinfo order by vipinfo_id 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='../vipinfo/info.asp?vipinfo_id="&rs("vipinfo_id")&"' target='_blank' class=L>"&left(rs("vipshowname"),23)&"<span class='S'>("&month(rs("dateandtime"))&"/"&day(rs("dateandtime" ))&" "&hour(rs("dateandtime" ))&":"&minute(rs("dateandtime" ))&")</span></a>&nbsp;&nbsp;<br>"
			rs.movenext
			loop
			end if%></div>		
			<script LANGUAGE='JavaScript'>
marqueesHeight=20;
stopscroll=false;
dealScroll.scrollTop=0;

with(dealScroll){
style.width=0;
style.height=marqueesHeight;
style.overflowX="visible";
style.overflowY="hidden";
noWrap=true;
onmouseover=new Function("stopscroll=true");
onmouseout=new Function("stopscroll=false");
}

preTop=0; currentTop=marqueesHeight; stoptime=0;
dealScroll.innerHTML+=dealScroll.innerHTML;

function init_srolltext(){
dealScroll.scrollTop=0;
setInterval("scrollUp()",30);
}init_srolltext();

function scrollUp(){
if(stopscroll==true) return;
currentTop+=1;
if(currentTop==marqueesHeight+1)
{
stoptime+=1;
currentTop-=1;
if(stoptime==30)
{
currentTop=0;
stoptime=0;
}
}
else {
preTop=dealScroll.scrollTop;
dealScroll.scrollTop+=1;
if(preTop==dealScroll.scrollTop){
dealScroll.scrollTop=marqueesHeight*2;
dealScroll.scrollTop+=1;
}
}
}
</script></TD>
</TR>
            </TBODY>
          </TABLE></TD>
        <TD vAlign=top width=15>&nbsp;</TD>
        <TD vAlign=top width=315>
            <TABLE cellSpacing=0 cellPadding=0 width=315 border=0>
              <TBODY>
                <TR>
                  <TD class=buttoncolor vAlign=center>
                    <TABLE height=17 cellSpacing=0 cellPadding=0 width="95%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=white14 width="61%">今日推荐资讯 </TD>
                          <TD class=white align=right width="39%">今日更新 <%=zixun_datetime%> 条</TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE class=blackbordernobottom cellSpacing=0 cellPadding=0 width=315 
      border=0>
              <TBODY>
                <TR>
                  <TD vAlign=top bgColor=#ffffff>
                    <TABLE class="lh15 buttonbottomborder" cellSpacing=0 cellPadding=4 
            width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=lh15 background=images/club_index_20.gif height=25>
			<%sql="select top 2 * from news where tjnews=1 and selectpic=0 and homehot=0 and tjhome=0 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'><b>"&rs("title")&"</b></a><br>"
			rs.movenext
			loop
			end if%>
						</TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=nobianbuttonborder vAlign=top colSpan=10> <div align="left">&nbsp;                         <IMG height=22 
                  src="images/club_index_18.gif" width=24 align=absMiddle> <FONT class=M>经营实务</FONT></div></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <TABLE class="lh15 buttonbottomborder" cellSpacing=0 cellPadding=5 
            width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=lh15 style="LINE-HEIGHT: 160%">[<A class=black 
                  href="#7">贸易</A>] 
                            <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=7 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#9">信用</A>] 
                            <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=9 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#10">管理</A>] 
                            <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=29 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                          [<A class=black 
                  href="#8">创业</A>] 
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=24 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><br>                            
                          [<A class=black 
                  href="#14">投资</A>] 
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=27 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=nobianbuttonborder vAlign=top colSpan=10> <div align="left">&nbsp;<IMG height=22 
                  src="images/club_index_19.gif" width=21 align=absMiddle> <FONT class=M>行业资讯</FONT></div></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <TABLE class="lh15 buttonbottomborder" cellSpacing=0 cellPadding=5 
            width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=lh15 style="LINE-HEIGHT: 160%">[<A class=black 
                  href="#25">纺织</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=25 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#26">服饰</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=26 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#29">电子</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=29 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#24">冶金</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=24 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#27">食品</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=27 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#23">农业</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=23 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#22">化工</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=22 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#32">汽摩</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=32 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#30">家电</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=30 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#1">机械</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=1 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#31">通讯</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=31 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                            [<A class=black 
                  href="#28">轻工</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=28 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR>
                          [<A class=black 
                  href="#33">建材</A>] <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=33 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%><BR></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD class=nobianbuttonborder vAlign=top align=left 
                  colSpan=10> <div align="left">&nbsp;<IMG height=22 
                  src="images/club_index_19.gif" width=21 align=absMiddle> <FONT class=M>财经 | 投资 | 营销</FONT></div></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                  </TD>
                </TR>
              </TBODY>
            </TABLE>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><TABLE cellSpacing=0 cellPadding=5 width="100%" border=0 class=blackborder>
                  <TBODY>
                    <TR>
                      <TD class=lh15 style="LINE-HEIGHT: 160%" vAlign=top><% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=19 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%>
                          <BR>
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=14 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%>
                          <BR>
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=12 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%>
                          <BR>
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=20 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%>
                          <BR>
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=18 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%>
                          <br>
                          <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=4 and tjhome=0 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'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font> "
			rs.movenext
			loop
			end if%>
                          <BR>
                    </TR>
                  </TBODY>
                </TABLE></td>
              </tr>
            </table></TD>
      </TR>
    </TBODY>
  </TABLE>
  <br>
  <table width="750" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><img src="images/chenxin01.gif" width="750" height="90"></td>
    </tr>
  </table>
  <TABLE class=searchdown cellSpacing=0 cellPadding=0 width=750 border=0>
    <TBODY>
      <TR>
        <TD>
<MARQUEE height=10 id=infonews onmouseout=infonews.start() onmouseover=infonews.stop() scrollAmount=3 scrollDelay=90 width="100%" align="middle">		
            <%sql="select top 6 * from news 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;&nbsp;&nbsp;&nbsp;"
			rs.movenext
			loop
			end if%>
        </MARQUEE>
	    </TD>
      </TR>
    </TBODY>
  </TABLE>
</div>
<br>
  <TABLE width=750 height="788" border=0 cellPadding=0 cellSpacing=0>
    <TBODY>
      <TR>
        <TD width=200 align=middle vAlign=top bgcolor="#F1F1F1" class=blueborder>
          <TABLE class=buttonbar cellSpacing=0 cellPadding=0 width=200 border=0>
            <TBODY>
              <TR>
                <TD><SPAN class=HEAD>48小时热门文章</SPAN></TD>
              </TR>
            </TBODY>
          </TABLE>
        
		  <table width="100%"  border=0 cellspacing="1" cellpadding="1" class="lh13">
            <tr>
              <td align="left" style="word-break:break-all;" class="S"><%sql="select top 10 * from news order by hits 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='s'>"&rs("title")&"</a> ("&rs("hits")&"人浏览)<br>"
			rs.movenext
			loop
			end if%></td>
            </tr>
          </table>
		  <BR>
          <TABLE class=buttonbar cellSpacing=0 cellPadding=0 width=200 border=0>
            <TBODY>
              <TR>
                <TD><SPAN class=HEAD>图片资讯</SPAN></TD>
              </TR>
            </TBODY>
          </TABLE>
          <BR>
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td class='s'> 
<% 
sql="select top 8 * from news where homehot=0 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" 暂无最新资讯信息"
			else
			do while not rs.eof
			response.write"<DIV align=center><a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank'><img src='pic/"&rs("picurl")&"' width='150' height='150' hspace='5' vspace'5' class='porductborder'></a></div>"
			response.write"<DIV align=center><a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='lh15'>"&left(rs("title"),13)&"</a></div><br> "
			rs.movenext
			loop
			end if%>
			  
			  
			  
			  
			  
			  
			  
			  </td>
            </tr>
          </table>        </TD>
        <TD vAlign=top align=middle width=10>&nbsp;</TD>
        <TD vAlign=top width=560>
		
			<%
sql="select * from newstype"
set rstype=conn.execute(sql)
if rstype.eof then
response.write"暂无分类"
else
%> 
		  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR>
<%
j=1
do while not rstype.eof%>
                <TD width=278 vAlign=top>
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><TABLE width="100%" height="25" border=0 cellPadding=3 cellSpacing=0>
                    <TBODY>
                      <TR>
                        <TD height=28 bgcolor="E5E5E5">
                          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td width="73%"><IMG height=12 src="images/dom_11.gif" 
                  width=12 align=absMiddle> <A name=<%=rstype("typeid")%>></a><a class="black M" href="indexpro.asp?typeid=<%=rstype("typeid")%>"><%=rstype("Type")%>资讯</a></td>
                              <td><IMG height=16 
                  src="../image/icon_point_16.gif" width=16 align=absMiddle><A 
                  class=s 
                  href="indexpro.asp?typeid=<%=rstype("typeid")%>">更多资讯</A></td>
                            </tr>
                          </table></TD>
                      </TR>
                      <TR>
                        <TD bgColor=#CE3F0F height=3></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
                    <TBODY>
                      <TR>
                        <TD align=left bgColor=#fafafa height=30>
                          <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                            <TBODY>
                              <TR>
                                <TD class=S align=left><font color=red><b>[推荐]</b></font> 
                                <%sql="select top 1 * from news where typeid="&rstype("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>"&rs("title")&"</a>"
			rs.movenext
			loop
			end if%></TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                      <TR>
                        <TD bgColor=#e8e8e8 height=1></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR>
                        <TD style="PADDING-TOP: 5px" height=5>
                          <TABLE cellSpacing=0 cellPadding=2 width="100%">
                            <TBODY>
                              <TR>
                                <TD>
<% 
sql="select top 10 title,picurl,dateandtime,newsid from news where typeid="&rstype("typeid")&" and tjhome=0 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
%>
<% 
sql="select top 10 title,picurl,dateandtime,newsid from news where typeid="&rstype("typeid&")&" and tjhome=0 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='lh15'>"&left(rs("title"),14)&"</a> <FONT class=S1 color=#666666>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font><br> "
			rs.movenext
			loop
			end if%></TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                      <TR>
                        <TD height=1 bgColor=#d5d5d5></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
                <TD width=1 bgColor=#d5d5d5></TD>
                    </tr>
                </table>
				<DIV style="PADDING-TOP: 15px"></DIV>
				</TD>
<%if j mod 2 = 0 then %></TR><tr><%end if%>
 		  <%
rstype.movenext
j=j+1
loop
end if
%>
              </TR>
            </TBODY>
          </TABLE>

	    </TD>
      </TR>
    </TBODY>
  </TABLE>
  <br>
  <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>
</CENTER>
<!--#include file="../inc/end.asp"-->