<!--#include file="conn/conn.asp"-->
<!--#include file="head.asp"-->
<!--#include file="inc/classcount.asp"--> 
<!--#include file="inc/safe.asp"-->
<%
sql2="select user,name,ch from corporation where id="&session("id")&""
set rs2=conn.execute(sql2)
%>  
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 class=outborder> 
  <TBODY> 
    <TR> 
      <FORM name=searchForm action="select.asp" 
    onsubmit="javascript:if(doSearch()==false) return false;" method=post> 
        <TD width="350" height=40 class=searchbar><IMG height=21 src="images/img_search.gif" 
      width=86 align=absMiddle> 
          <INPUT size=25 name="keywords"> 
          <SELECT class=TEXT13 name="which"> 
            <OPTION value="all" selected>供求信息</OPTION> 
            <OPTION value="sale">供应信息</OPTION> 
            <OPTION value="buy">求购信息</OPTION> 
            <OPTION value="productshow">产品目录</OPTION> 
            <OPTION value="corporation">公司库</OPTION> 
            <OPTION value="news">行业资讯</OPTION> 
            <OPTION value="zsyz">招商引资</OPTION>
			<OPTION value="vipinfo">专项商机</OPTION> 
          </SELECT> </TD> 
        <TD width="107" align=middle class=searchbar><div align="left"> 
            <input name="imageField" type="image" src="images/serch.gif" align="top" width="65" height="22" border="0"> 
          </div></TD> 
      </FORM> 
      <TD width="301" class=searchbar><IMG height=19 src="images/icon_green_help.gif" 
      width=19 align=absMiddle border=0> <span class="C"><A 
      href="help/Search_Answer.asp" target="_blank">如何搜索</A> &nbsp;<IMG height=19 src="images/icon_green_help.gif" 
      width=19 align=absMiddle border=0> <A 
      href="help/Proc_G.asp" target="_blank">如何采购</A> &nbsp;<IMG height=19 src="images/icon_green_help.gif" 
      width=19 align=absMiddle border=0> <A 
      href="help/Offer_G.asp" target="_blank">如何销售</A></span></TD> 
    </TR> 
  </TBODY> 
</TABLE> 
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 class=searchdown> 
  <tr> 
    <TD height=24 
    align=middle 
    onclick="location.href='tradeinfo/index.asp'" onmouseover="this.style.cursor='hand'"> <SCRIPT language=JavaScript>
var strArray=new Array();
strArray[0]='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;供求信息总数 <font class="numberback"><%=formatnumber(allinfo_sale_buy,0)%></font> &nbsp;&nbsp;&nbsp;公司库总数 <font class="numberback"><%=formatnumber(allcorporation,0)%></font> &nbsp;&nbsp;&nbsp;供应信息总数 <font class="numberback"><%=formatnumber(allinfo_sale,0)%></font> &nbsp;&nbsp;&nbsp;求购信息总数 <font class="numberback"><%=formatnumber(allinfo_buy,0)%></font>'
strArray[1]='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;新增公司数 <font class="numberback"><%=today_corporation%></font> &nbsp;&nbsp;&nbsp;新增供应数 <font class="numberback"><%=todayinfo_sale%></font> &nbsp;&nbsp;&nbsp;新增求购数 <font class="numberback"><%=todayinfo_buy%></font> &nbsp;&nbsp;&nbsp;专项商机数 <font class="numberback"><%=formatnumber(zxshangji_all,0)%></font>'
showId=Math.floor(Math.random()*2);
tempStr=strArray[showId];
strArray[showId]=strArray[0];
strArray[0]=tempStr;
      </SCRIPT> 
      <SCRIPT>
document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>'
+'<tr><td width=120 align=right class=white><%=FormatDate(date(),1)%></td><td>'
+'<div id="icefable1" style="width:750;">'
+'<table width=600 border=0 cellspacing=0 cellpadding=0>'
+'<tr><td width=600 height=21 class="white">'+strArray[0]+'</td></tr>'
+'<tr><td width=600 height=21 class="white">'+strArray[1]+'</td></tr>'
+'</table>'
+'</div>'
+'<div id="icefable2" style="position:absolute;z-index:1;visibility:hidden"></div>'
+'</td></tr>'
+'</table>');

marqueesHeight=20;
stopscroll=false;
icefable1.scrollTop=0;

with(icefable1){
  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=0; stoptime=0;

function init_srolltext(){
  icefable2.innerHTML="";
  icefable2.innerHTML+=icefable1.innerHTML;    
  icefable1.innerHTML=icefable2.innerHTML+icefable2.innerHTML;
  setInterval("scrollUp()",50);
}
function scrollUp(){
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==22)
  {
  	stoptime+=1;
  	currentTop-=1;
  	if(stoptime==50) 
  	{
  		currentTop=0;
  		stoptime=0;
  	}
  }
  else {  	
	  preTop=icefable1.scrollTop;
	  icefable1.scrollTop+=1;
	  if(preTop==icefable1.scrollTop){
	    icefable1.scrollTop=icefable2.offsetHeight-marqueesHeight;
	    icefable1.scrollTop+=1;
	  }
  }

}
init_srolltext();
      </SCRIPT> </TD> 
  </tr> 
</table> 
<br> 
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0> 
  <TBODY> 
    <TR> 
      <TD width=430 height="672" vAlign=top> <table width="100%" border="0" cellpadding="0" cellspacing="0"> 
          <tr> 
            <td height=28px bgcolor="E7E7E7"  style="border-top:#BD0021 2 solid" class="smallleftpad c" colspan=2>              <table width="98%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><b>推荐<a href="vipinfo/list.asp"><font class="M NOL" style="color: #CE3F0F">最新专项商机</font></a>信息</b></td>
                  <td><div align="right"><span class=s>(最后更新时间 <%=hour(time)%>:<%=minute(time)%>)</span></div></td>
                </tr>
              </table></td> 
          </tr> 
        </table> 
        <table width="100%" border="0" cellpadding="0" cellspacing="0"> 
          <tr> 
            <td style="HEIGHT: 4px"></td> 
          </tr> 
          <tr> 
            <td width="50%"> <%sql="select top 3 vipinfo_id,viptype,vipshowname,dateandtime from vipinfo where viptype='采购项目' and tjhome=1 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='lh15'>["&left(rs("viptype"),2)&"]"&left(rs("vipshowname"),8)&"</a><span class='S'>("&month(rs("dateandtime"))&"/"&day(rs("dateandtime"))&")</span><br>"
			rs.movenext
			loop
			end if%> 
              <%sql="select top 3 vipinfo_id,viptype,vipshowname,dateandtime from vipinfo where viptype='供应项目' and tjhome=1 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='lh15'>["&left(rs("viptype"),2)&"]"&left(rs("vipshowname"),8)&"</a><span class='S'>("&month(rs("dateandtime"))&"/"&day(rs("dateandtime"))&")</span><br>"
			rs.movenext
			loop
			end if%></td> 
            <td width="50%"> <%sql="select top 3 vipinfo_id,viptype,vipshowname,dateandtime from vipinfo where viptype='合作项目' and tjhome=1 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='lh15'>["&left(rs("viptype"),2)&"]"&left(rs("vipshowname"),8)&"</a><span class='S'>("&month(rs("dateandtime"))&"/"&day(rs("dateandtime"))&")</span><br>"
			rs.movenext
			loop
			end if%> 
              <%sql="select top 3 vipinfo_id,viptype,vipshowname,dateandtime from vipinfo where viptype='代理项目' and tjhome=1 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='lh15'>["&left(rs("viptype"),2)&"]"&left(rs("vipshowname"),8)&"</a><span class='S'>("&month(rs("dateandtime"))&"/"&day(rs("dateandtime"))&")</span><br>"
			rs.movenext
			loop
			end if%> </td> 
          </tr> 
        </table> 
        <div class="smalltoppad"></div> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:1px solid #CDCDCD"> 
          <tr> 
            <td class="lh15 smallleftpad" height=28><b><a href="vipinfo/list.asp" class="M NOL">最新专项商机:</a></b></td> 
            <td width="73%" height=28> <marquee  onmouseout=this.start() onmouseover=this.stop() scrollAmount=3 scrollDelay=80 width=98%> 
              <%sql="select top 50 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><b>"&rs("vipshowname")&"</b><span class='S'>("&month(rs("dateandtime"))&"/"&day(rs("dateandtime" ))&" "&hour(rs("dateandtime" ))&":"&minute(rs("dateandtime" ))&")</span></a>&nbsp;&nbsp;"
			rs.movenext
			loop
			end if%> 
              </marquee></td> 
          </tr> 
        </table> 
        <div class="smalltoppad"></div> 
        <TABLE class=downborder cellSpacing=0 cellPadding=0 width="100%" 
        border=0>
          <TBODY>
            <TR>
              <TD class=buttonbar width=105><IMG height=20 
            src="images/icon_black_45down.gif" width=20 align=absMiddle 
            border=0><SPAN class=head> 商业机会</SPAN></TD>
              <TD class=midbar width=3>&nbsp;</TD>
              <td width="100" class="companybar" onMouseOver="this.style.cursor='hand'" OnClick="location.href='vipinfo/list.asp'">专项商机</td>
              <TD class=midbar width=3>&nbsp;</TD>
              <td width="100" class="companybar" onMouseOver="this.style.cursor='hand'" OnClick="location.href='corporation/index.asp'">公司库</td>
			  <TD class=midbar>&nbsp;</TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE class=blackborder cellSpacing=0 cellPadding=0 width="100%" 
border=0> 
          <TBODY> 
            <TR> 
              <TD colspan="2"> <TABLE width="100%" height="50" border=0 cellPadding=0 cellSpacing=0>
                <TBODY>
                  <TR>
                    <TD height="25" class=buttoncolor><A 
                  href="tradeinfo/index.html"><FONT 
                  class="NOL white">供应信息</FONT></A></TD>
                    
                <TD height="25" class=norightbuttonborder><A 
                  href="seller/trade/trade.asp?sortid=25" target="_blank">采购信息</A></TD>
                    
                <TD height="25" class=norightbuttonborder><A 
                  href="tradeinfo/trade/trade.asp?sortid=30%20" target="_blank">代理信息</A></TD>
                    
                <TD height="25" class=norightbuttonborder><a 
                  href="tradeinfo/trade/trade.asp?sortid=32">项目合作</a></TD>
                    
                <TD height="25" class=norightbuttonborder><a 
                  href="seller/trade/trade.asp?sortid=12">商务服务</a></TD>
                    
                <TD height="25" class=norightbuttonborder><a 
                  href="seller/trade/trade.asp?sortid=25">加工信息</a></TD>
                  </TR>
                  <TR>
                    <TD colspan="6"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="10"></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
key="通讯产品"
%> 
                <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
                  <TBODY> 
                    <TR>
									  <%j=1
do while not rssort.eof
%> 
                      <TD width="52%" class=padd><A href="tradeinfo/trade/trade.asp?sortid=<%=rssort("sortid")%>" class=M><%=replace(rssort("sort"),key,"<font color=cc3300>"&key&"</font>")%></A> <span class="S">(<%=yijicount_buy_sale%>)</span> 
                        <table width="100%"  border="0" cellspacing="0" cellpadding="0"> 
                          <tr> 
                            <td> <%
typesql="select * from class_2 where sortid="&rssort("sortid")&""
set rstype=conn.execute(typesql)
if rstype.eof or rstype.bof then
response.write"暂无行业小类"
else
for i=0 to 1
for i1=0 to 1
i=i+1
response.write"<A href='tradeinfo/offerlist/list.asp?typeid="&rstype("typeid")&"' class=S>"&rstype("typename")&"</A>&nbsp;"
rstype.movenext
next
i=i-1
next
end if
%></td> 
                          </tr> 
                        </table></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="52%" height="30"><div align="center"><IMG height=19 
            src="images/icon_point.gif" width=18 
            align=absMiddle> <A 
				  href="/tradeinfo/trade/36.html">本期主要推荐:<b><FONT color=#CE3F0F>招商引资</font></b></A></div></TD> 
              <TD width="48%" height="35"> <IMG height=19 src="images/icon_green_help.gif" 
      width=19 align=absMiddle border=0> <a href="help/CompanyDB_Answer.asp#6" class="S">找不到所属行业，怎么办？</a> </TD> 
            </TR> 
          </TBODY> 
        </TABLE></TD> 
      <TD width=15>&nbsp;</TD> 
      <TD width="322" vAlign=top>
	  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> 
                <TBODY> 
                  <TR> 
                    <TD><a href="login/register.asp" target="_blank"><img src="images/reg.gif" width="112" height="30" border="0" align="top"></a></TD> 
                    <TD><SPAN class=gray>| </SPAN><A 
            href="help/bin/index.asp" target="_blank">注册的好处</A></TD> 
                    <TD><SPAN class=gray>| </SPAN><A 
            href="help/bin/servlet/index.asp" target="_blank">新手上路</A></TD> 
                  </TR> 
                </TBODY> 
        </TABLE>
			  <br>
        <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
          <tr> 
            <td><TABLE width="100%" height="25" 
        border=0 cellPadding=0 cellSpacing=0 class=downborder> 
                <TBODY> 
                  <TR> 
                    <TD height=111 class="buttonbar white">
                      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="85%"><span class="HEAD"><strong>欢迎您！会员请登录</strong></span></td>
                          <td width="15%" class="s"><img src="image/point_black.gif" width="16" height="16" align="absmiddle"><a href="member/index.asp"><FONT color=#FFFFFF>登录</font></a></td>
                        </tr>
                      </table></TD> 
                  </TR> 
                </TBODY> 
              </TABLE> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0" class="blackborder"> 
                <tr> 
                  <td width="50%" height="25" class="nobianbuttonborder"> <a href='member/tradeinfo/add_info.asp' target="_parent">发布供求信息</a></td> 
                  <td width="50%" height="25" class="norightbuttonborder"> <a href='member/getprice/receivemessagelist.asp' target="_parent">查看最新留言</a></td> 
                </tr> 
                <tr> 
                  <td height="25" class="nobianbuttonborder"><a href='member/productshow/add_product.asp' target="_parent">发布产品信息</a></td> 
                  <td height="25" class="norightbuttonborder"> <a href='tradeinfo/todaylist.html' target="_parent">查看今日供应</a></td> 
                </tr> 
                <tr> 
                  <td height="25" class="nobianbuttonborder"><a href='member/corporation/company_edit.asp' target="_parent">修改公司信息</a></td> 
                  <td height="25" class="norightbuttonborder"> <a href='seller/todaylist.html' target="_parent">查看今日采购</a></td> 
                </tr> 
              </table> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
                <tr> 
                  <td height="30"><div align="center"><span class="S style2"><img src="images/icon_orange_arrow.gif" width="12" height="11" align="absmiddle"> </span><span class="style1 S" style="font-size: 12px"><a href='member/' target="_parent">想进行更多的操作？快进入<strong>“我的商务助手”</strong></a></span></div></td> 
                </tr> 
              </table></td> 
          </tr> 
        </table>
        <TABLE width="100%" height="51" border=0 cellPadding=0 cellSpacing=0> 
          <TBODY> 
            <TR> 
              <TD class=prmtopborder height=40><IMG height=33 
            src="images/img_trustpass_tm.gif" width=111 align=absMiddle><SPAN 
            class=M>会员专区</SPAN></TD> 
              <TD height="40" class=prmtopborder>&nbsp; </TD> 
            </TR> 
          </TBODY> 
        </TABLE>
        <TABLE class=prmbg cellSpacing=0 cellPadding=0 width="100%" border=0> 
          <TBODY> 
            <TR> 
              <TD class="lh15 middleleftpad smalltoppad"><div align="left"> 
                  <TABLE width="100%" height="25" border=0 cellPadding=0 cellSpacing=0> 
                    <TBODY> 
                      <TR> 
                        <TD width="31%" class=M1><a href="/seller/index.asp"><FONT class="M NOL" style="color: #CE3F0F">最新会员采购</FONT></a></TD> 
                        <TD width="69%" class=M1> <HR SIZE=1> </TD> 
                      </TR> 
                    </TBODY> 
                  </TABLE> 
				  <MARQUEE onmouseover=this.stop() onmouseout=this.start() 
            scrollAmount=3 scrollDelay=180 direction=up width=300 height=155 
            align="middle">
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0" class=prmbg> 
                    <tr> 
                      <TD class="lh15"> <%sql="select top 50 info_id,type,showname,dateandtime,sortid,typeid from info where type='买' and flag=1 and jinji=0 order by info_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"<tr><TD colspan='2' valign='middle' height='25'>·<a href='seller/offerdetail/info.asp?info_id="&rs("info_id")&"' target='_blank'>"&left(rs("showname"),20)&" </a><font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></td></tr>"
			rs.movenext
			loop
			end if%> </td> 
                    </tr> 
                  </table>
				  </MARQUEE> 
                  <HR width="100%"> 
                  <TABLE width="100%" height="30" border=0 cellPadding=0 cellSpacing=0> 
                    <TBODY> 
                      <TR> 
                        <TD class=M1 width="22%"><a href="/corporation/index.asp"><FONT class="M NOL" style="color: #CE3F0F">推荐企业</FONT></a></TD> 
                        <TD class=M1 width="78%"> <HR SIZE=1> </TD> 
                      </TR> 
                    </TBODY> 
                  </TABLE> 
                  <span class="C"> 
                  <%sql="select top 5 id,qymc,url,zycp,sf,city from corporation where tjbz like '%01%' order by 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"<tr><td height='23'>·<a href='"&rs("url")&"' target='_blank'>"&rs("qymc")&"</a> <font color='#666666' class='S'>区域："&rs("sf")&""&rs("city")&"</font></td></tr>"
			response.write"<tr><td class=s>&nbsp;&nbsp;主营产品/服务："
				zycp=rs("zycp")
				if zycp>"" then
				   if instr(zycp,",")>0 then
				      zcarry=split(rs("zycp"),",")
					  if ubound(zcarry)=1 then
				         response.write"<a href='/search/searchcor.asp?keywords="&zcarry(0)&"'>"&zcarry(0)&"</a>&nbsp;<a href='/search/searchcor.asp?keywords="&zcarry(1)&"'>"&zcarry(1)&"</a>"
				      elseif ubound(zcarry)=2 then
				         response.write"<a href='/search/searchcor.asp?keywords="&zcarry(0)&"'>"&zcarry(0)&"</a>&nbsp;<a href='/search/searchcor.asp?keywords="&zcarry(1)&"'>"&zcarry(1)&"</a>&nbsp;<a href='/search/searchcor.asp?keywords="&zcarry(2)&"'>"&zcarry(2)&"</a>"
                      elseif ubound(zcarry)>2 then
				         response.write"<a href='/search/searchcor.asp?keywords="&zcarry(0)&"'>"&zcarry(0)&"</a>&nbsp;<a href='/search/searchcor.asp?keywords="&zcarry(1)&"'>"&zcarry(1)&"</a>&nbsp;<a href='/search/searchcor.asp?keywords="&zcarry(2)&"'>"&zcarry(2)&"</a>"
                      end if
				   else
				         response.write"<a href='/search/searchcor.asp?keywords="&zycp&"'>"&zycp&"</a>"
				   end if
				end if
			response.write"</td></tr>"
			response.write"<tr><td height='5'></td></tr>"
			rs.movenext
			loop
			end if%> 
                  </span> </div></TD> 
            </TR> 
            <TR> 
              <TD> <HR width="100%"> </TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <TABLE class=prmbg cellSpacing=0 cellPadding=0 width="100%" border=0> 
          <TBODY> 
            <TR> </TR> 
            <TR> </TR> 
            <TR> 
              <TD class="prmleftpad M"><TABLE width="100%" height="30" border=0 cellPadding=0 cellSpacing=0> 
                  <TBODY> 
                    <TR> 
                      <TD width="23%" class=M1><a href="/tradeinfo/index.asp"><FONT class="M NOL" style="color: #CE3F0F">最新供应</FONT></a></TD> 
                      <TD width="76%" class=M1><marquee  onmouseout=this.start() onmouseover=this.stop() scrollAmount=3 scrollDelay=80 width="100%" align="middle"> 
                        <%sql="select top 50 info_id,type,showname,sortid,typeid from info where type='卖' and flag=1 order by info_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='tradeinfo/offerdetail/info.asp?info_id="&rs("info_id")&"' target='_blank' class=L><b>"&rs("showname")&"</b></a>&nbsp;&nbsp;"
			rs.movenext
			loop
			end if%> 
                        </marquee></TD> 
                      <TD width="1%" class=M1>&nbsp;</TD> 
                    </TR> 
                  </TBODY> 
                </TABLE></TD> 
            </TR> 
            <TR> 
              <TD><br> 
                <TABLE width="98%" 
        border=0 align="center" cellPadding=1 cellSpacing=0 bgColor=#d8c962> 
                  <TBODY> 
                    <TR> 
                      <TD> <TABLE width="100%" 
            border=0 cellPadding=0 cellSpacing=0 background="images/0802_buy.gif" bgColor=#ffffff> 
                          <TBODY> 
                            <TR> 
                              <TD width="120" height="113">&nbsp;</TD> 
                              <TD class=lh17 width="194">
                  <MARQUEE onmouseover=this.stop() onmouseout=this.start() 
            scrollAmount=5 scrollDelay=180 direction=up width=100% height=110 
            align="middle">
<%
typesql="select * from class_2 where sortid=12"
set rstype=conn.execute(typesql)
if rstype.eof or rstype.bof then
response.write"暂无行业小类"
else
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
<%
i=1
do while not rstype.eof%>
    <td>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class=lh15><A href=tradeinfo/offerlist/list.asp?typeid=<%=rstype("typeid")%> class=s target="_blank"><%=rstype("typename")%></A>&nbsp;</td>
        </tr>
      </table></td>
 <%if i mod 2 = 0 then %></TR><tr><%end if%>
 		  <%
rstype.movenext
i=i+1
loop
end if
%>
</tr>
</table>
</marquee>
</TD> 
                            </TR> 
                          </TBODY> 
                        </TABLE></TD> 
                    </TR> 
                  </TBODY> 
                </TABLE> 
                <br></TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <table width="100%"  border="0" cellspacing="0" cellpadding="0"> 
          <tr> 
            <td bgcolor="#F1F1F1"><HR width="100%"> 
            <img src="images/maijia.gif" width="310" height="32"> </td> 
          </tr> 
          <tr> 
            <td bgcolor="#F7F3F7"><div align="center"><a href="info/shownews.asp?newsid=749" target="_blank"><img src="images/banner_2.gif" width="320" height="50" border="0"></a> 
                <HR width="100%"> 
                <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="320" height="134"> 
                  <param name="movie" value="gg/swf/310x130_homepage_banner.swf"> 
                  <param name="quality" value="high"> 
                  <embed src="gg/swf/310x130_homepage_banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="320" height="134"></embed> 
                </object> 
              </div></td> 
          </tr> 
        </table></TD> 
    </TR> 
  </TBODY> 
</TABLE> 
<div align="center">
  <TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD width=180 rowspan="2" valign=bottom>
<img src="images/info_logo.gif" width="209" height="76" border=0 useMap="#Mapinfo"></TD>
<td height=18></td></tr><tr>
  <TD bgcolor=A80000 style="border:1px solid FF7300;border-width:1 1 0 0" height=25>
  <TABLE class=prmcontentborder width="99%"> 
            <TBODY> 
              <TR> 
                <TD class=M align=left>今日<BR> 
                  头条</TD> 
                <TD align=left><IMG height=19 
            src="images/icon_point.gif" width=18 
            align=absMiddle> </TD> 
                <TD><DIV id=oTransContainer style="FILTER: progid:DXImageTransform.Microsoft.Wipe(GradientSize=1.0,wipeStyle=0, motion='forward'); WIDTH: 460px; HEIGHT: 41px"> 
				<%sql="select top 5 newsid,title,picurl from news where homehot=1 and selectpic=1 order by dateandtime desc"
                    Set rs= Server.CreateObject("ADODB.Recordset") 
                    rs.open sql,conn,1,1
					if rs.eof then
			        response.write"暂无头条新闻推荐！"
					else
					Dim i
                    i=1
					do while not rs.eof
					%> 
				  <a href="info/shownews.asp?newsid=<%=rs("newsid")%>" target=_blank> <IMG src="info/pic/<%=rs("picurl")%>" width="460" height="40" border=0 id=oDIV<%=i%> <%if i>1 then response.write" style=""DISPLAY: none;"""%>></a> 
                  <%
				  i=i+1
				  rs.movenext
			      loop
				  end if%> 
				  <SCRIPT>
var NowFrame = 1;
var MaxFrame = 5;
var bStart = 0;

function fnToggle() {
	var next = NowFrame + 1;

	if(next == MaxFrame+1) 
	{
		NowFrame = MaxFrame;
		next = 1;
	}

	if(bStart == 0)
	{
		bStart = 1;
		
		setTimeout('fnToggle()', 500);

		return;
	}
	else
	{
	    oTransContainer.filters[0].Apply();

		document.images['oDIV'+next].style.display = "";
		document.images['oDIV'+NowFrame].style.display = "none"; 

		oTransContainer.filters[0].Play(duration=2);

		if(NowFrame == MaxFrame) 
			NowFrame = 1;
		else
			NowFrame++;
	}	setTimeout('fnToggle()', 3500);
}

fnToggle();
</SCRIPT>
				  </TD> 
              </TR> 
            </TBODY> 
        </TABLE>
</TD>
</TR></TABLE>
<map name="Mapinfo">
  <area shape="rect" coords="14,51,96,72" href="info/">
  <area shape="rect" coords="113,51,196,72" href="club/">
</map>
<TABLE class=searchdown cellSpacing=0 cellPadding=0 width=760 border=0> 
    <TBODY> 
      <TR> 
        <TD> <MARQUEE height=10 id=clubnews onmouseout=clubnews.start() onmouseover=clubnews.stop() scrollAmount=3 scrollDelay=90 width="100%" align="middle"> 
          <%sql="select top 25 * from news where dateandtime>=getdate()-1 order by NewsID Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
			if rs.eof then
			response.write"<FONT color=#ffffff>今日暂无新增资讯信息</font>"
			else
			do while not rs.eof
			response.write"<a href='info/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> 
  <br> 
</div> 
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0> 
  <TBODY> 
    <TR> 
      <TD vAlign=top width=409> <TABLE width="100%" height="35" border=0 cellPadding=0 cellSpacing=0> 
          <TBODY> 
            <TR> 
              <TD class=prmtopborder height=35><div align="left"><SPAN class=M>热点聚焦</SPAN></div></TD> 
              <TD height="35" align=right class="prmtopborder largerightpad"><IMG 
            src="images/icon_point.gif" width=18 height="19" 
            align=absMiddle heigh?=19> <A 
            href="info/index.asp">更多资讯<strong>(<FONT color=#CE3F0F><%=zixun_all%></font>)</strong>条</A></TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <br> 
        <TABLE width="100%" height="153" 
        border=0 cellPadding=0 cellSpacing=0> 
          <TBODY> 
            <TR> 
              <%sql="select top 1 newsid,title,picurl from news where tjhome=1 and selectpic=1 order by dateandtime desc"
                    Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
					if rs.eof then
			        response.write"暂无推荐新闻！"
					else%> 
              <td width="43%" rowspan="5" align=center class="largeleftpad lh15 M"><a href="info/shownews.asp?newsid=<%=rs("newsid")%>" target=_blank> <IMG src="info/pic/<%=rs("picurl")%>" width="155" height="165" border=1 style="border-color:#000000" vspace="1"><BR> 
                <%if len(rs("title"))>10 then
			response.write""&left(rs("title"),10)&""
			else
			response.write""&rs("title")&""
			end if%> 
              </A></TD> 
              <%end if%> 
              <TD width="57%" height="82"> <table width="90%"  border="0" align="center" cellpadding="2" cellspacing="0"> 
                  <tr> 
                    <%sql="select * from news where tjhome=1 and selectpic=0 order by NewsID Desc" 
			Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂无资讯"
			else%> 
                    <td> <%
			response.write"<tr><td><FONT color=#BD0021>★</font> <b><a target=_blank href='info/shownews.asp?newsid="&rs("newsid")&"'</b>"
			if len(rs("title"))>13 then
			response.write""&left(rs("title"),11)&"…"
			else
			response.write""&rs("title")&""
			end if
			response.write"</a></td></tr>"
			end if%></td> 
                  </tr> 
                  <tr> 
                    <td class="lh15 s textindex"><%=left(rs("content"),52)%>……</td> 
                  </tr> 
                  <%rs.movenext%> 
                </table></TD> 
            </TR> 
            <TR> 
              <TD><hr width=85%></TD> 
            </TR> 
            <TR> 
              <TD><table width="90%"  border="0" align="center" cellpadding="2" cellspacing="0"> 
                  <tr> 
                    <td><%
			response.write"<tr><td><FONT color=#BD0021>★</font> <b><a target=_blank href='info/shownews.asp?newsid="&rs("newsid")&"'</b>"
			if len(rs("title"))>13 then
			response.write""&left(rs("title"),11)&"…"
			else
			response.write""&rs("title")&""
			end if
			response.write"</a></td></tr>"
			%></td> 
                  </tr> 
                  <tr> 
                    <td class="lh15 s textindex"><%=left(rs("content"),52)%>……</td> 
                  </tr> 
                </table></TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <div class="smalltoppad"></div>
<TABLE width="100%" height="36" 
        border=0 cellPadding=0 cellSpacing=0 class=downborder> 
          <TBODY> 
            <TR> 
              <TD width="39%" height=33 class="buttonbar white"><div align="left" class="HEAD"><strong> 经营实务</strong></div></TD> 
              <TD width="61%" align=right class="buttonbar white largerightpad">&nbsp;</TD> 
            </TR> 
          </TBODY> 
        </TABLE>
        <TABLE class=blackborder cellSpacing=0 cellPadding=0 width="100%" 
      border=0> 
          <TBODY> 
            <TR> 
              <TD colspan="2" class="lh15 c"><div align="left"> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=8 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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
            sql="select top 1 title,picurl,dateandtime,newsid from news where typeid=10 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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                </div></TD> 
            </TR> 
            <TR> 
              <TD height="35" align="right"><div align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="images/icon_point.gif" width="18" height="19" align="absmiddle"> <a href=info/index.asp target=_blank class="S">更多商机资讯</a> </div></TD> 
              <TD align="center"><a href="member/myemail/orderbegin.asp" target="_blank"><img src="images/din.gif" width="95" height="22" border="0" align="absmiddle"></a></TD>
            </TR> 
          </TBODY> 
        </TABLE>
      </TD>
      <TD vAlign=top width=15>&nbsp;</TD> 
      <TD width="332" vAlign=top> <TABLE width="100%" height="25" 
        border=0 cellPadding=0 cellSpacing=0 class=downborder> 
          <TBODY> 
            <TR> 
              <TD class="buttonbar white" height=111><div align="left" class="HEAD"><strong> 今日资讯</strong></div></TD> 
              <TD align=right class="buttonbar white largerightpad">今日更新 <A 
            href="info/index.asp"><FONT color=#CE3F0F class="NOL"><B><%=zixun_datetime%></B></FONT></A> 条</TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <TABLE class=blackbordernobottom cellSpacing=0 cellPadding=0 width="100%" 
      border=0> 
          <TBODY> 
            <TR> 
              <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> 
                  <TBODY> 
                    <TR> 
                      <TD class=nobianbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=7');win.focus();" 
                onmouseout="this.className='nobianbuttonborder'">贸易</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=19');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">财经</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=8');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">创业</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=9');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">信用</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=10');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">管理</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=22');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">化工</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=25');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">纺织</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=1');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">机械</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=23');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">农业</TD> 
                    </TR> 
                    <TR> 
                      <TD class=nobianbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=24');win.focus();" 
                onmouseout="this.className='nobianbuttonborder'">冶金</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=26');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">服饰</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=28');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">轻工</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=27');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">食品</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=32');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">汽摩</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=29');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">电子</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=30');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">家电</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=31');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">通讯</TD> 
                      <TD class=norightbuttonborder 
                onmouseover="this.className='buttoncolor';this.style.cursor='hand'" 
                onclick="javascript:win=window.open('info/indexpro.asp?typeid=33');win.focus();" 
                onmouseout="this.className='norightbuttonborder'">建材</TD> 
                    </TR> 
                  </TBODY> 
                </TABLE></TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <TABLE class=blackbordernobottom cellSpacing=0 cellPadding=0 width="100%" 
      border=0> 
          <TBODY> 
            <TR> 
              <TD class=nobianbuttonborder 
          style="PADDING-RIGHT: 210px; PADDING-TOP: 3px" colSpan=10><IMG 
            height=20 src="images/icon_info_news.gif" width=20 align=absMiddle> <FONT class=M>行业资讯</FONT></TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <TABLE class="blackbordernobottom buttonbottomborder" cellSpacing=0 
      cellPadding=0 width="100%" border=0> 
          <TBODY> 
            <TR> 
              <TD class="lh15 middleleftpad smalltoppad"><div align="left"> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                  <% 
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='info/shownews.asp?newsid="&rs("newsid")&"' target='_blank'>"&left(rs("title"),17)&" <font color='#666666' class='S'>("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</font></a> "
			rs.movenext
			loop
			end if%> 
                  <BR> 
                </div> 
                <DIV class=smalltoppad></DIV></TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <TABLE width="100%" height="36" 
        border=0 cellPadding=0 cellSpacing=0 class=downborder> 
          <TBODY> 
            <TR> 
              <TD width="39%" height=33 class="buttonbar white"><div align="left" class="HEAD"><strong> 意见与建议</strong></div></TD> 
              <TD width="61%" align=right class="buttonbar white largerightpad">&nbsp;</TD> 
            </TR> 
          </TBODY> 
        </TABLE> 
        <table class=blackborder cellspacing=0 cellpadding=0 width="100%" 
border=0> 
          <tbody> 
            <tr> 
              <td align=left width="50%"> <table cellspacing=0 cellpadding=2 width="100%" border=0> 
                  <tbody> 
                    <tr> 
                      <% sqlguest="select top 6 id,content from guestbook where pass=1 order by id desc"
			  set rsguest=conn.execute(sqlguest)
			  if rsguest.eof or rsguest.bof then
			  response.write"暂无信息"
			  else
			  do while not rsguest.eof%> 
                      <td nowrap class=S>·<A 
                  href="feedback/index.asp" 
                  target=_blank><%=left(rsguest("content"),15)%></A></td> 
                    </tr> 
                    <tr> 
                      <%rsguest.movenext
			  loop
			  end if
			  %> 
                      <td height="30" align=right nowrap class=s><div align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img height=19 
                  src="images/icon_point.gif" width=18 
                  align=absMiddle> <a 
                  href="feedback/index.asp" 
                  target=_blank>更多建议</a></div></td> 
                    </tr> 
                  </tbody> 
                </table></td> 
              <td class=smalltoppad valign=top align=left><iframe id='feedback' src='feedback.asp' width='100%' height='119' frameborder='0' scrolling='no'></iframe></td> 
            </tr> 
        </table></TD> 
    </TR> 
  </TBODY> 
</TABLE> 
<!--#include file="end.asp"-->
<%
set rs2=nothing
conn.close
set conn=nothing
%> 