<!--#include file="inc/config.asp"-->
<!--#include file="inc/ListPager.asp"-->
<%
newsbj=1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<!--#include file="top.asp"-->
<table width="950" height="28" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="left"><%=W_title%> - 新闻中心</td>
  </tr>
</table>
<table width="950" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="728" align="left" valign="top">
	
	<table width="715" height="230" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="275"><table width="275" border="0" cellpadding="0" cellspacing="1" bgcolor="#FDC33C">
          <tr>
            <td bgcolor="#FFFFFF"><div align="center"><script type="text/javascript">
//<![CDATA[
//Author：小鑫　QQ：304606599
var interval_time=0; //图片停顿时间，单位为秒，为0则停止自动切换
var focus_width=275;
var focus_height=200;
var text_height=24;
var text_align="center" //标题文字对齐方式(left、center、right)
var swf_height=focus_height+text_height; //相加之和最好是偶数,否则数字会出现模糊失真的问题
var pics="<%
			sql="select top 10 * from H_news where h_pic<>'""' and tuijian=2  order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						do while not rs.eof  
						%>/uploaduc/<%=rs("H_pic")%>|<%
		rs.movenext 
				loop
				rs.close
				%>";
var links="<%
			sql="select top 10 * from H_news where h_pic<>'""' and tuijian=2  order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						do while not rs.eof  
						%>news_show.asp?id=<%=rs("id")%>|<%
		rs.movenext 
				loop
				rs.close
				%>";
var texts="<%
			sql="select top 10 * from H_news where h_pic<>'""' and tuijian=2  order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						do while not rs.eof  
						%><%=left(rs("H_title"),10)%>|<%
		rs.movenext 
				loop
				rs.close
				%>";
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain" /><param name="movie" value="/images/focus.swf" /><param name="quality" value="high" /><param name="bgcolor" value="#F0F0F0">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="/images/focus.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
//]]>
</script></div></td>
          </tr>
        </table></td>
        <td width="440"><table width="430" height="226" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
		  <%
		  set rs=server.createobject("adodb.recordset")
sql="select top 1 *  from H_news where tuijian=3 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
top_biaoti="暂无头条新闻"
top_jianjie="暂无头条新闻"
else
top_biaoti=rs("H_title")
top_jianjie=rs("H_char")
topid=rs("id")
end if
		  %>
            <td height="26" align="center" valign="middle"><a href="news_show.asp?id=<%=topid%>" target="_blank"><strong><%=top_biaoti%></strong></a></td>
          </tr>
          <tr>
            <td height="60" align="left" valign="top"><a href="news_show.asp?id=<%=topid%>" target="_blank"><%=left(top_jianjie,75)%></a></td>
          </tr>
          <tr>
            <td height="140" valign="top">
			
			<%
			sql="select top 5 id,H_title,Rdate from H_news where  tuijian=4  order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有商机</div>"
						else
						do while not rs.eof  
						%>
			<table width="426" height="25" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="325" align="left">·<a href="news_show.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),16)%></a></td>
                <td width="101"><%=year(rs("Rdate"))&"-"&month(rs("Rdate"))&"-"&day(rs("Rdate"))%></td>
              </tr>
            </table>
				<%
		rs.movenext 
				loop
				rs.close
				end if
				%>			
			
			</td>
          </tr>
        </table></td>
      </tr>
    </table>

				
	<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0" bgcolor="#FDC33C">
      <tr>
        <td width="562"></td>
      </tr>
    </table>
	<table width="100" height="10" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="562"></td>
      </tr>
    </table>
	<%set rs=server.createobject("adodb.recordset")
			set rs1=server.createobject("adodb.recordset")
sql="select *  from H_newssort order by H_px desc"
rs.open sql,conn,1,1
if not rs.eof then%>
		  
		  
		  
		  <table width="98%" height="30" border="0" align="left" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
        <tr>
			<%
n=0
do while not rs.eof
n=n+1
%>

          <td align="left" valign="top"><table width="350" height="300" border="0" cellpadding="0" cellspacing="1" bgcolor="#CDCDCD">
  <tr>
    <td align="left" valign="top" bgcolor="#FFFFFF">
      <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" background="images/global_caption_bg.gif">
        <tr>
          <td width="5%">&nbsp;</td>
          <td width="29%" align="center" bgcolor="#FFFFFF" style="border-left: #CDCDCD 1px solid; border-right: #CDCDCD 1px solid;"><a href="news_list.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_name"),4)%></a></td>
          <td width="66%" align="right" style="padding-right:20px;"><a href="news_list.asp?id=<%=rs("id")%>" target="_blank">更多</a></td>
        </tr>
      </table>
	  
	  <%
			sql="select top 10 id,H_title,Rdate from H_news where H_newssort="&rs("id")&"  order by id desc "
						set rs1=server.createobject("adodb.recordset")                     
						rs1.open sql,conn,1,1 
						if rs1.eof then
						response.Write"<div align=center>没有新闻</div>"
						else
						do while not rs1.eof  
						%>
			<table width="350" height="25" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="325" align="left">·<a href="news_show.asp?id=<%=rs1("id")%>" target="_blank"><%=left(rs1("H_title"),16)%></a></td>
                <td width="101"><%=year(rs1("Rdate"))&"-"&month(rs1("Rdate"))&"-"&day(rs1("Rdate"))%></td>
              </tr>
            </table>
				<%
		rs1.movenext 
				loop
				rs1.close
				end if
				%>			
			
			
      </td>
  </tr>
  
</table>
</td>
		  <%
	if n mod 2=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
	%>
        </tr>
      </table>
	  
	  
	  <%else%>
	  没有分类
	  <%end if%>
	  
	  
	  
	</td>
    <td width="222" valign="top"><table width="222" height="31" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td background="images/reght.gif" class="lv" style="padding-left:20px; padding-top:2px;">根据分类选择</td>
      </tr>
    </table>
      <table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#FADCA4">
        <tr>
          <td bgcolor="#FFFFFF">
		  <%set rs=server.createobject("adodb.recordset")
			set rs1=server.createobject("adodb.recordset")
sql="select *  from H_newssort order by H_px desc"
rs.open sql,conn,1,1
if not rs.eof then%>
		  
		  
		  
		  <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
        <tr>
			<%
n=0
do while not rs.eof
n=n+1
sql1="SELECT COUNT(*) AS Expr1 FROM H_news where H_newssort="&rs("id")&""
rs1.open sql1,conn,1,1
hiloucount=rs1("Expr1")
rs1.close
%>

          <td width="138"><table width="100" height="28" border="0" cellpadding="0" cellspacing="1" bgcolor="#EAEAEA">
  <tr>
    <td align="left" bgcolor="#FFFFFF" style="padding-left:5px;"><a href="news_list.asp?id=<%=rs("id")%>"><%=left(rs("H_name"),4)%></a><font color="#FF0000">(<%=hiloucount%>)</font></td>
  </tr>
</table>
</td>
		  <%
	if n mod 2=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
	%>
        </tr>
      </table>
	  
	  
	  <%else%>
	  没有分类
	  <%end if%>
	  
	  
	  </td>
        </tr>
    </table>
      <table width="100" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="562"></td>
        </tr>
      </table>
      <table width="222" height="31" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td background="images/reght.gif" class="lv" style="padding-left:20px; padding-top:2px;">新闻排行榜</td>
        </tr>
      </table>
      <table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#FADCA4">
        <tr>
          <td height="300" valign="top" bgcolor="#FFFFFF"><%
			sql="select top 50 id,H_title,Rdate from H_news  order by htc desc "
						set rs1=server.createobject("adodb.recordset")                     
						rs1.open sql,conn,1,1 
						if rs1.eof then
						response.Write"<div align=center>没有新闻</div>"
						else
						do while not rs1.eof  
						%>
			<table width="222" height="25" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td align="left">·<a href="news_show.asp?id=<%=rs1("id")%>" target="_blank"><%=left(rs1("H_title"),16)%></a></td>
              </tr>
            </table>
				<%
		rs1.movenext 
				loop
				rs1.close
				end if
				%>      </td>
        </tr>
      </table></td>
  </tr>
</table>
	<%
Set myListPager = nothing
conn.close()
Set conn = nothing
%>
<!--#include file="end.asp"-->
</body>
</html>
