top.asp

新世纪影院源码

<%'---------程序编写说明-------%> 
<%
'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: top.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:[e-mail]
'QQ:       249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<table border="0" cellpadding="0" cellspacing="0" width="770" height="22" bgcolor="#FF9900">
  <tr>
    <td width="770" height="22">
      <p align="center"><a href="../default.asp">站点首页</a> <a href="../news/default.asp">新闻文章</a>&nbsp;                                                             
      <a href="../download/default.asp">新世纪下载</a>&nbsp; <a href="../music/default.asp">新世纪音乐</a>&nbsp;                                                             
      <a href="../bbs/default.asp">新世纪论坛</a>&nbsp; <a href="../asp/default.asp">新世纪程序专区</a>&nbsp;&nbsp;                                                             
      <a href="aboutme.asp" target=_blank>关于我们</a>&nbsp;&nbsp; <a href="copyright.asp" target=_blank>版权声明</a>&nbsp;                                                             
      <a href="cookies.asp" target=_blank>隐私声明</a>&nbsp; <a href="mailto:[e-mail]">购买程序</a>&nbsp;     
      <a href="../guestbook/default.asp">本站留言</a></p>
    </td>
  </tr>
</table>

<table border="0" width="770" cellpadding="0" cellspacing="0">
  <tr>
    <td width="227"><img border="0" src="IMAGE/L0GO.jpg" width="227" height="100"></td>
    <td width="539"><img border="0" src="IMAGE/top_right.jpg" width="543" height="100"></td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="770" height="20">
  <tr>
    <td height="20" bgcolor="#FF9900" width="770" valign="middle" align="center" ><font 
                              style="FILTER:dropshadow(color=#000000, offx=1, offy=1); WIDTH: 100%; POSITION: relative"><a href=default.asp><font color="#FFFFFF">首页</font></a>  
      <font color="#FFFFFF">  
      |</font> 
      
      <%
      set rs=server.createobject("adodb.recordset")
      sql="select type from type"
      rs.open sql,conn,1,1
      if rs.eof or bof then
      response.write""
      else
      do while not rs.eof or bof
      %>
      <a href=classtype.asp?class=<%=rs("type")%>><font color="#FFFFFF"><%=rs("type")%></font></a><font color="#FFFFFF">  |</font>
      <%
      rs.movenext
      loop
      end if
      rs.close
      set rs=nothing
      %>
      <a href=classtype.asp><font color="#FFFFFF">全部电影</font></a>   
      <font color="#FFFFFF">  |</font> <a href=gold_movie.asp><font color="#FFFFFF">黄金电影</font></a>   
      </td>  
  </tr>
  </table>