qqcf_filmcommend.asp

免费电影程序:系统做免费

<%
' 乘风电影V3.3 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.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<TABLE cellPadding=0 cellSpacing=0 width="98%">
  <TBODY>
    <TR> 
      <TD vAlign=top> <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
          <TBODY>
            <TR> 
              <TD class=td1>&nbsp;</TD>
              <TD class=td2><span class=te1><%=ClassName%>-<%=PorduceAreaStr%>推荐</span></TD>
              <TD class=td3></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE align=center bgColor=#cccccc cellPadding=5 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
          <TBODY>
            <TR bgColor=#ffffff> 
              <TD class=tablebody1 colSpan=2 vAlign=top width=778>
                  
 

<%
Response.write "<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"
Sql="Select Top 16 ID,FilmName From CFFilm_Film Where CommendLevel=6 And ClassID="&ClassID

If PorduceArea>0 Then Sql=Sql&" And PorduceArea="&PorduceArea

If PorduceYear<>1 Then Sql=Sql&" And PorduceYear="&PorduceYear

Sql=Sql&" Order By ClickTotal Desc"

Set Rs_FilmCommend=Conn.Execute(Sql)

FilmCommend=0
While Not Rs_FilmCommend.Eof And FilmCommend<20

Link=""
If RsSet("HtmOpen")=-1 Then
 Link=Path_Index&"Htm/Show_"&Rs_FilmCommend("ID")&".htm"
Else
 Link=Path_Index&"Show/Show.asp?ID="&Rs_FilmCommend("ID")
End IF

 Response.write "<tr><td height=22><a target=_blank class=link1 href="&Link&">"&Rs_FilmCommend("FilmName")&"</a></td></tr>"
FilmCommend=FilmCommend+1
Rs_FilmCommend.MoveNext
Wend
Rs_FilmCommend.Close()
Response.write "</table>"
%>         
                </TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
          <TBODY>
            <TR> 
                  <TD class=td4></TD>
                  <TD class=td5_c></TD>
                  <TD class=td6></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>