qqcf_index_commend.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.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<TABLE width=134 height=200 border=0 cellPadding=0 cellSpacing=0>
  <TR> 
    <TD height="184" align=center background="qqcf_pic/e_bg_9.gif"> <%
If Rs("FilmPic")="-" Then
 Pic=Path_Index&"qqcf_filmpic/default.gif"
Else
 If Instr(Rs("FilmPic"),"http://")=0 Then
  Pic=Path_Index&Rs("FilmPic")
 Else
  Pic=Rs("FilmPic")
 End If
End If

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

Response.write "<a target=_blank href="&Link&"><img border=0 height=170 src='"&Pic&"' width=120></a>"
%> </td>
  <TR>
    <TD align=center><a target=_blank class=link1 href=<%=Link%>><%=Rs("FilmName")%></a></td>
</TABLE>