home.asp

一个不错的企业网站源代码！

<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="dsnroot.asp" -->
<!-- #include file="links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
menu="21111111"
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td bgcolor="#66cc00" width="1"></td>
    <td width="490" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="490" height="210">
              <param name=movie value="images/home_m.swf">
              <param name=quality value=high>
              <embed src="images/home_m.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="490" height="210">
              </embed> 
            </object></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/tp_hotnews_home.gif" width="160" height="39"></td>
        </tr>
      </table>
        <%sqltext="select top 4 id,pid,name from cdanwei where enable=1 and flag=1 and ppid=2 order by creatdate desc"
          rs.Open sqltext,cn,1,1
          do while not rs.EOF %>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2" height="10"></td>
        </tr>
        <tr> 
          <td width="20" class="font3" valign="top">※</td>
          <td><a href="<%=linknewsdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>" class="anews"><%=trim(rs("name"))%></a></td>
        </tr>
      </table>
        <%rs.MoveNext 
          loop
          rs.Close %>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td width="60"><a href="<%=linknews%>" class="more">更多新闻&gt;&gt;</a></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="8"></td>
        </tr>
      </table>
      
    </td>
    <td background="images/line_v.gif" width="1"></td>
    <td valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="170">
        <tr> 
          <td height="50" valign="bottom"><img src="images/search_tp.jpg" width="285" height="39"></td>
        </tr>
        <tr>
          <td background="images/search_bg.jpg">
            <table width="72%" border="0" cellspacing="0" cellpadding="0" align="center">
		  <form name="form" method="post" action="<%=linkproducts%>" autocomplete = "off">
              <tr>
                <td class="font3" width="50">分 类:</td>
                <td> 
                  <select name="select" class="input">
                    <option value=0>产品分类...</option>
                    <%sqltext="select id,name from danwei where enable=1 and pid=6 order by pl"
                      rs.Open sqltext,cn,1,1
                      do while not rs.EOF %>
                         <option value=<%=rs("id")%>><%=trim(rs("name"))%></option>
                      <%rs.MoveNext 
                        loop
                        rs.Close %>   
                  </select>
                </td>
                <td>&nbsp;</td>
              </tr>
            </table>
            <table width="70%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr>
                <td height="10"></td>
              </tr>
            </table>
            <table width="72%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr>
                <td class="font3" width="50">关键字:</td>
                <td>
                  <input type="text" name="qtxt" size="13" class="input">
                </td>
                <td>
                  &nbsp;&nbsp;<input type="image" border="0" name="imageField" src="images/bt_search.gif" width="47" height="18">
                </td>
              </tr>
          </form>  
            </table>
          </td>
        </tr>
        <tr>
          <td height="57" valign="top"><img src="images/search_bot.jpg" width="285" height="42"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/line_h.gif" height="1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/video_bg.jpg" style="background-repeat: repeat-x; background-position: top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="36">&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center"><a class="anews" href="Javascript:playrm('tihongvideo.ram')"><img src="images/banner_video.gif" width="152" height="52" border=0></a></td>
              </tr>
              <tr>
                <td align="center" height="50"><a href="http://www.zhenghonghb.com" target=_blank><img src="images/logo_zh.gif" width="150" height="38" border=0></a></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center" height="30"><img src="images/tp_department_home.gif" width="105" height="22"></td>
              </tr>
              <tr>
                <td align="center"> 
                  <select name="select2" class="input2" onChange="Javascript:load(this)">
                    <option value="">安徽天宏集团下属企业</option>
                    <%sqltext="select id,name from danwei where enable=1 and pid=5 order by pl"
                      rs.Open sqltext,cn,1,1
                      do while not rs.EOF %>
							<option value="<%=linkdepartment%>?id=<%=rs("id")%>"  target=_top><%=trim(rs("name"))%></option>
					<%rs.MoveNext 
					  loop
					  rs.Close %>		
                  </select>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
  </td>
    <td bgcolor="#66cc00" width="1"></td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td bgcolor="#66cc00" width="1"></td>
    <td width="490" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="center"><img src="images/title_newproducts_home.jpg" width="482" height="18"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <%sqltext="select top 3 * from cdanwei where enable=1 and ppid=6 and dateenable=1 order by creatdate desc"
            rs.Open sqltext,cn,1,1
            i=0
            do while not rs.EOF %>
          <td width="180"> 
            <table width="160" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#339900" height="1"></td>
              </tr>
            </table>
            <table width="160" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#339900" width="1"></td>
                <td width="158" height="100"><a href="<%=linkproducstdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>"><img src="./admin/jpg.asp?id=<%=rs("id")%>&tabname=cdanwei" width="158" height="90" border=0></a></td>
                <td bgcolor="#339900" width="1"></td>
              </tr>
            </table>
            <table width="160" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#339900" width="1"></td>
                <td width="158"><img src="images/new_products_t_top_p.gif" width="158" height="9"></td>
                <td bgcolor="#339900" width="1"></td>
              </tr>
            </table>
            <table width="160" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#339900" width="1"></td>
                <td width="158" bgcolor="#006600" height="13" align="center"><a href="<%=linkproducstdetail%>?id=<%=rs("id")%>&pid=<%=rs("pid")%>" class="anews2"><font color="#FFFFFF"><%=trim(rs("name"))%></font></a></td>