top.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=980 style="BORDER-Bottom:8px">
  <TBODY>
    <TR> 
      <TD width="650" height="20" valign="middle" class="td2">&nbsp;&nbsp;<a href="<%=Path_Index%>Login.asp"><span class=te1>登陆</span></a>|&nbsp;&nbsp;<a href="<%=Path_Index%>Reg.asp"><span class=te1>注册</span></a></strong></TD>
<script language="JavaScript">
function filmsearchcheck()
{
 if ((document.filmsearch.keyword.value)=="")
 {
  window.alert ('请填写搜索关键字');
  document.filmsearch.keyword.focus();
  return false;
 }
return true;
}
</script>
<form name="filmsearch" method="post" action="<%=Path_Index%>Search/Search.asp" onsubmit="return filmsearchcheck()"><TD width="330" class=td2 align=right>
<font color=000000>电影搜索：</font><input name="keyword" type="text" size="12" style="height:20px">
          <select name="searchtype" style="height:16px">
            <option value="1" selected >电影名称</option>
            <option value="2">演员名称</option>
          </select>
          <input type="submit" name="Submit" value="搜索" style="height:20px">
        </TD></form>
    </TR>
  </TBODY>
</TABLE>
<TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=0 
            style="WORD-BREAK: break-all" width="980">
  <TBODY>
    <TR bgColor=#ffffff> 
      <TD colSpan=2 vAlign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="220" height="60"><img src="<%=Path_Index%>images/logo.gif" border="0"></td>
            <td><%=GetAppSet(RsSet("AdCode"),"Ad_1")%></td>
          </tr>
        </table>

         
        
      </TD>
    </TR>
  </TBODY>
</TABLE>


<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
	<table border="0" cellpadding="0" cellspacing="0">
<%
Link=""
If RsSet("HtmOpen")=-1 Then
 Link=Path_Index&"Index.htm"
Else
 Link=Path_Index&"Index.asp"
End IF
%>
<tr>

<td width="3px" background="<%=Path_Index%>images/menu_1.gif" height="24px"></td>
<td background="<%=Path_Index%>images/menu_2.gif" align="center">&nbsp;&nbsp;&nbsp;&nbsp;<a href="<%=Link%>">首　页</a>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td width="3px" background="<%=Path_Index%>images/menu_3.gif"></td>
<td width="3px"></td>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from CFFilm_Class Where MenuTaxis>0 order by MenuTaxis"
rs.open sql,conn,1,1
While Not Rs.Eof
Link=""
If RsSet("HtmOpen")=-1 Then
 Link=Path_Index&"Htm/List_"&Rs("ID")&"_1.htm"
Else
 Link=Path_Index&"List/List.asp?ClassID="&Rs("ID")
End IF
%>
<td width="3px" background="<%=Path_Index%>images/menu_1.gif"></td>
<td background="<%=Path_Index%>images/menu_2.gif" align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="<%=Link%>"><%=Rs("ClassName")%></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td width="3px" background="<%=Path_Index%>images/menu_3.gif"></td>
<td width="3px"></td>
<%
Rs.MoveNext
Wend
%>
           </tr>

        </table>
		</td>
  </tr>
</table>
		
<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=980>
  <TBODY>
    <TR> 
      <TD class="td7" height=2></TD>
    </TR>
  </TBODY>
</TABLE>

        <table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="100%"><%=GetAppSet(RsSet("AdCode"),"Ad_2")%><%=GetAppSet(RsSet("AdCode"),"Ad_8")%><br></td>
          </tr>
        </table>