foot.asp

破解版的企业网站源码！！ 绝对好用 适合各种企业应用 其中包包含产品展示 企业介绍等等内容 可供二次开发

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from Bs_SysData where code='5062942'"
rs.Open sql,conn,1,1
%>
<TABLE  width="850" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF"> 
    <TR> 
      <TD height="5"></TD>
    </TR>    
    <TR> 
      <TD> <TABLE Class=FootBg  cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            
            <TR> 
              
            <TD width="12%"> 
              <DIV align=center>友情链接</DIV></TD>
              
            <TD width="88%">
<% call ShowFriendLinks(2,10,10,2) '文字链接
'call ShowFriendLinks(1,10,10,2) '图片链接
%>
            </TD>
            </TR>          
         
        </TABLE></TD>
    </TR>    
    <TR> 
      
    <TD> 
      <DIV align=center> 
          
        <p>版权所有:<%=rs("BsCompanyName")%></p>
      </DIV></TD>
    </TR>
  </TBODY>
</TABLE>
<table  width="850" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><div align="center">
      <p>地址:<%=rs("BsAddress")%> 邮编:<%=rs("BsZipcode")%></p>
    </div></td>
  </tr>
</table>
<table  width="850" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><div align="center">
      <p>联系电话:<%=rs("BsPhone")%></p>
    </div></td>
  </tr>
</table>

<table  width="850" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><div align="center">
      <p><a href="http://www.miibeian.gov.cn/" target="_blank"><%=rs("BsBeian")%></p>
    </div></td>
  </tr>
</table>
<!--#include file="../QQ/QQShow.asp"-->