top.asp

软件下载平台 软件下载平台

<%
' 乘风电影V3.5 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>


<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=98% style="BORDER-Bottom:8px">
  <TBODY>
    <TR> 
      <TD width="65%" height="30" valign="middle" class="td2_c">&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>|&nbsp;&nbsp;<a href="#"  onclick='this.style.behavior="url(#default#homepage)";this.setHomePage("http://www.qqcf.com")'"><span class=te1>设为首页</span></a>|&nbsp;&nbsp;<a href="javascript:window.external.AddFavorite('http://www.qqcf.com/','<%=RsSet("Title")%>')""><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="35%" class=td2_c 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="98%">
  <TBODY>
    <TR bgColor=#ffffff> 
      <TD colSpan=2 vAlign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="220" height="60"><a href="http://www.qqcf.com" target="_blank"><img src="<%=Path_Index%>qqcf_pic/logo.gif" border="0"></a></td>
            <td><%=GetAppSet(RsSet("AdCode"),"Ad_1")%></td>
          </tr>
        </table>

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

<table width="98%" border="0" align="center" 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%>qqcf_pic/menu_1.gif" height="24px"></td>
<td background="<%=Path_Index%>qqcf_pic/menu_2.gif" align="center"><a href="<%=Link%>">首　页</a></td>
<td width="3px" background="<%=Path_Index%>qqcf_pic/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%>qqcf_pic/menu_1.gif"></td>
<td background="<%=Path_Index%>qqcf_pic/menu_2.gif" align="center"><a href="<%=Link%>"><%=Rs("ClassName")%></a></td>
<td width="3px" background="<%=Path_Index%>qqcf_pic/menu_3.gif"></td>
<td width="3px"></td>
<%
Rs.MoveNext
Wend
%>
           </tr>

        </table>
		
<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=98%>
  <TBODY>
    <TR> 
      <TD bgColor=#21aade height=2></TD>
    </TR>
  </TBODY>
</TABLE>

        <table width="98%" 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>