www.gusucode.com > 绿色环保工作企业网站源码程序 > index.asp

    <!--#include file="Inc/SysProduct.asp" -->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>

<!--#include file="head.asp" -->




<DIV id=index_container>
<DIV id=index_left>

<!--#include file="searchinc.asp" -->


<DIV id=index_prolist>
<DIV id=index_prolist1></DIV>
<DIV id=index_prolist2>
<DIV id=elem-FrontProductCategory_slideTree-001 name="商品分类">
<LINK href="imgbyy/css2.css" type=text/css rel=stylesheet>

<DIV class=FrontProductCategory_slideTree-default 
id=FrontProductCategory_slideTree-001>
<DIV class=left_bottom>
<DIV class=right_bottom>
<DIV class=left_top>
<DIV class=right_top>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>


<% call ShowSmallClass_Tree() %>



</td>
  </tr>
</table>
 <table width="100" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="10"></td>
  </tr>
</table>

  
</DIV></DIV></DIV></DIV></DIV>
</DIV></DIV>
<DIV id=index_prolist3></DIV></DIV>
<DIV id=index_contact>
<DIV id=index_contact1></DIV>
<DIV id=index_contact2>
<DIV id=elem-FrontSpecify_show-001 name="联系我们说明页">
<LINK href="imgbyy/css3.css" type=text/css rel=stylesheet>
<DIV class=FrontSpecify_show-default id=FrontSpecify_show-001>
<DIV class=content>
<DIV class=style1>

<!--#include file="qq.asp" -->

</DIV></DIV></DIV></DIV></DIV></DIV></DIV>
<DIV id=index_right>
<DIV id=index_news1>
<DIV id=index_news1_1>
<DIV class=index_news_title>企业新闻</DIV>
<DIV class=index_more1><A href="NewsClass.asp?BigClass=企业新闻">
<IMG src="imgbyy/btn_more.gif" border=0></A></DIV>
</DIV>
<DIV id=index_news1_2>
<DIV >
<DIV class=FrontInfo_listByAsync-05 >
<table width="90%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="7"></td>
  </tr>
</table>

                                      <table width="95%" border=0 align="center" cellpadding=0 cellspacing=0>
                                        <tbody>
                                          



<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='企业新闻' order by id desc"
rs_news.open sqltext4,conn,1,1				 	
%>
<%i=0
do while not rs_news.eof%>
                                          <tr>
                                            <td width="7%" height="25" valign="middle"><img src="imgbyy/dot1.gif"  width="11" height="7" /></td>
                                            <td width="23%" valign="middle"><span style="color: #87888A"><%=FormatDateTime(rs_news("AddDate"),2)%></span></td>
                                            <td width="70%" valign="middle">
						<a href="shownews.asp?id=<%=rs_news("id")%>" class="linknews1"><%=cutstr(rs_news("title"),15)%></a>
					    </td>
                                          </tr>

<%rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>

                                          
                                          


                                          
                                        </tbody>
            </table>
</DIV></DIV></DIV>
<DIV id=index_news1_3></DIV></DIV>
<DIV id=index_news2>
<DIV id=index_news2_1>
<DIV class=index_news_title>业内资讯</DIV>
<DIV class=index_more1><A href="NewsClass.asp?BigClass=业内资讯">
<IMG src="imgbyy/btn_more.gif" border=0></A></DIV>
</DIV>
<DIV id=index_news2_2>
<DIV id=elem-FrontInfo_listByAsync-气体知识 name="信息列表"><LINK href="imgbyy/css1.css" type=text/css rel=stylesheet>
<DIV class=FrontInfo_listByAsync-05>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="7"></td>
  </tr>
</table>

                                      <table width="95%" border=0 align="center" cellpadding=0 cellspacing=0>
                                        <tbody>
                                          
                                          <%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='行业新闻' order by id desc"
rs_news.open sqltext4,conn,1,1				 	
%>
<%i=0
do while not rs_news.eof%>
                                          <tr>
                                            <td width="7%" height="25" valign="middle"><img src="imgbyy/dot1.gif"  width="11" height="7" /></td>
                                            <td width="23%" valign="middle"><span style="color: #87888A"><%=FormatDateTime(rs_news("AddDate"),2)%></span></td>
                                            <td width="70%" valign="middle">
						<a href="shownews.asp?id=<%=rs_news("id")%>" class="linknews1"><%=cutstr(rs_news("title"),15)%></a>
					    </td>
                                          </tr>

<%rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>
                                          
                                        </tbody>
            </table>

</DIV></DIV></DIV>
<DIV id=index_news2_3></DIV></DIV>
<DIV id=index_hotproduct>
<DIV id=index_hotproduct_1></DIV>
<DIV id=index_hotproduct_2><span id="tb_A101">
              <!--------------------显示最新产品的子程序开始--------------------->
                            </span>
  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="10"></td>
    </tr>
  </table>
  <span>
        <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
  



<%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 8 * from Product where Passed=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>   
          <tr align="center">
<%
           If rs_Product.eof and rs_Product.bof then
           response.write "<td><p align='center'><font color='#ff0000'>还没任何产品</font></p></td>"
           else

                          row_count=1
			  Do While Not rs_Product.EOF%> 















        

            
            <td><table width="1%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#E9E9E9">
                        <tr>
                          <td width="130" height="106" bgcolor="#FFFFFF"><table width="100"  border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E9E9">
                              <tr>
                                <td width="100" height="100" align="center" valign="middle" bgcolor="#FFFFFF">
<a href="ProductShow.asp?ID=<%=rs_Product("id")%>"><img src="<%=rs_Product("DefaultPicUrl")%>" width="111" height="100" border=0 ></a></td>
                              </tr>
                          </table></td>
                        </tr>
                  </table></td>
                  <td valign="bottom"><img src="Img/yyri2.gif" width="7" height="112" /></td>
                </tr>
                <tr>
                  <td colspan="2"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                        <tr>
                          <td height="20" align="center"><a href="ProductShow.asp?ID=<%=rs_Product("id")%>"><%=rs_Product("title")%></a></td>
                        </tr>
                  </table></td>
                </tr>
            </table></td>
            
           

<% if row_count mod 4 =0 then%>
                                            </tr>
                                            <tr align="center">
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
end if
rs_Product.close
%>







            
          </tr>
        </table>
        <!--------------------显示最新产品的子程序结束--------------------->
        </span></DIV>
</DIV>
<DIV class=clear></DIV>
<DIV id=index_hotproduct_3></DIV></DIV></DIV>
<DIV class=clear></DIV>

<!--#include file="foot.asp" -->