top.asp

一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风格,是大家非常值得学习的一个网站.

<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************     商务链图文发布系统  ***************************
'程序名称：商务链图文发布系统1.0
'程序设计:银杏公子
'电子邮件:[e-mail]
'网站支持:http://www.35lian.com
'Q Q 支持:411655198
'版权所有:商务链 (www.35lian.com)
'版权声明:
'1、未经授权许可，不得将本程序用于盈利或非盈利性的商业用途。
'2、为适应实际的计算机应用环境或者改进其功能、性能，可以进行必要的修改，但不得去除商务链 (www.35lian.com)版权标示；未经终点书面授权许可，不得向任何第三方提供修改后的程序。
'3、使用本程序必须保留商务链的版权声明，将本程序从原有自然语言文字转换成另一自然语言文字的，仍应注明出处。
'**********************************************************************
'----------------------------------------------------------------------
-->

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="100" align="center" bgcolor="#FF6666"> 
      <p align="center"><br>
        <br>
      <h1 align="center"><font color="#FFFFFF" face="黑体">商 务 链 图 文 发 布 系 统</font></h1></td>
  </tr>
  <tr> 
    <td height="30"> <table width="100%" height="29" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td align="center" onmouseover="this.bgColor='#FFFFFF';"onmouseout="this.bgColor='#CCCCCC';"bgColor=#CCCCCC><a href="default.asp">新闻首页</a></td>
          <% sqlt="select * from bigclass order by BigClassID desc"
set rst=server.createobject("ADODB.Recordset")
rst.open sqlt,conn,1,1
do while not rst.eof
%>
          <td height="30" align="center"  onmouseover="this.bgColor='#FFFFFF';"onmouseout="this.bgColor='#CCCCCC';"bgColor=#CCCCCC><a href="dis_big.asp?b_soft_id=<%=rst("BigClassName")%>"><%=rst("BigClassName")%></a></td>
          <%
rst.movenext
loop
rst.Close
set rst=nothing
%>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="30" align="center"><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="760" height="100">
        <param name="movie" value="images/music.swf">
        <param name="quality" value="high"><param name="SCALE" value="noborder">
        <embed src="images/music.swf" width="760" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" scale="noborder"></embed></object></td>
  </tr>
</table>