📄 show.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.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>
<%
response.expires= -1
response.addheader "pragma","no-cache"
response.AddHeader "cache-control","no-store"
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../QQCF_MyFunction.asp"-->
<!--#Include File="../QQCF_GetCookie.asp"-->
<%
PathLayer=2
If PathLayer=1 Then
Path_Index=""
ElseIf PathLayer=2 Then
Path_Index="../"
End If
%>
<%
ID=CInt(ChkStr(Request("ID"),2))
Sql="Select a.FilmName,a.FilmOtherName,a.ClassID,a.Player,a.PorduceArea,a.PorduceYear,a.FilmPic,a.FilmIntro,a.AddTime,a.CommendLevel,a.ClickTotal,a.OnlineState,a.OnlineSpendCount,a.OnlineLevel,a.OnlineNum,a.DownState,a.DownSpendCount,a.DownLevel,a.DownNum,b.ClassName From CFFilm_Film a Left Join CFFilm_Class b On a.ClassID=b.ID Where a.ID="&ID
Set Rs=Conn.Execute(Sql)
If Rs.Eof And Rs.Bof Then Call AlertUrl("此电影不存在","Index.asp")
FilmName=Rs("FilmName")
FilmOtherName=Rs("FilmOtherName")
ClassID=Rs("ClassID")
Player=Rs("Player")
PorduceArea=Rs("PorduceArea")
PorduceYear=1'防止FilmTop.asp为空参数，1为所有年数
PorduceYear_2=Rs("PorduceYear")
ClassName=Rs("ClassName")
FilmPic=Rs("FilmPic")
FilmIntro=Rs("FilmIntro")
Player=Rs("Player")
AddTime=Rs("AddTime")
CommendLevel=Rs("CommendLevel")
ClickTotal=Rs("ClickTotal")
OnlineState=Rs("OnlineState")
OnlineSpendCount=Rs("OnlineSpendCount")
OnlineLevel=Rs("OnlineLevel")
OnlineNum=Rs("OnlineNum")
DownState=Rs("DownState")
DownSpendCount=Rs("DownSpendCount")
DownLevel=Rs("DownLevel")
DownNum=Rs("DownNum")
Rs.Close()
PorduceAreaStr=GetPorduceArea(PorduceArea)
%>
<html>
<head>
<title><%=FilmName%>-<%=ClassName%>-<%=PorduceAreaStr%>-<%=Rsset("Title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../QQCF_Style.asp"-->
</head>
<body>
<!--#include file="../Top.asp"-->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="0" style="border-collapse: collapse">
<tr>
<td width="188" align="center" valign="top">
<!--#include file="../QQCF_FilmArea.asp"-->
<!--#include file="../QQCF_FilmYear.asp"-->
<!--#include file="../QQCF_FilmCommend.asp"-->
<!--#include file="../QQCF_FilmTop.asp"-->
</td>
<td valign="top">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD class=td1> </TD>
<TD class=td2 width=640></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><strong> </strong>
<div align="center">
<table width=98% border=0 align="left" cellpadding=0 cellspacing=6>
<tr>
<td width=135 rowspan=2 valign=top><TABLE width=134 height=184 border=0 cellPadding=0 cellSpacing=0 background=../qqcf_pic/e_bg_9.gif>
<TR>
<TD align=center> <%
If FilmPic="-" Then
Pic=Path_Index&"qqcf_filmpic/default.gif"
Else
If Instr(FilmPic,"http://")=0 Then
Pic=Path_Index&FilmPic
Else
Pic=FilmPic
End If
End If
Response.write "<img border=0 height=170 src='"&Pic&"' width=120>"
%> </td>
</TABLE></td>
<td width="232"><span class=te1><%=FilmName%></span></td>
<td width="50%" rowspan="2"><%=GetAppSet(RsSet("AdCode"),"Ad_4")%></td>
</tr>
<tr>
<td width="200">
<img src=../qqcf_pic/fang.gif width=15 height=15>别名：<%=FilmOtherName%><br>
<img src=../qqcf_pic/fang.gif width=15 height=15>类别：<%=ClassName%><br>
<img src=../qqcf_pic/fang.gif width=15 height=15>主演：<%=Player%><br>
<img src=../qqcf_pic/fang.gif width=15 height=15>地区：<%=GetPorduceArea(PorduceArea)%><br>
<img src=../qqcf_pic/fang.gif width=15 height=15>年份：<%If PorduceYear_2>0 Then Response.write PorduceYear_2&"年"%><%If PorduceMonth>0 Then Response.write PorduceMonth&"月"%><br>
<img src=../qqcf_pic/fang.gif width=15 height=15>上传：<%=AddTime%><br>
<img src=../qqcf_pic/fang.gif width=15 height=15>推荐：<%Response.write "<img src=../qqcf_pic/STAR"&CommendLevel&".GIF>"%> <br>
<img src=../qqcf_pic/fang.gif width=15 height=15>浏览：<span id="clicktotal_<%=ID%>"></span>
</td>
</tr>
<tr height=5 >
<td colspan=3 ><b>在线播放</b>
[权限:
<%
If OnlineLevel=1 Then
Response.write "免费观看"
ElseIf OnlineLevel=2 Then
Response.write "会员观看"
Response.write " 每集花费:"& OnlineSpendCount &"点"
End If
%>
]
</td>
</tr>
<tr height=5 >
<td colspan=3 >
<%=GetAppSet(RsSet("AdCode"),"Ad_5")%><br>
<%
If OnlineState=0 Then
Response.write "无"
Else
Sql="Select * From CFFilm_Link where Assort=1 And FilmID="&ID&" Order by PartNum"
Set Rs=Conn.Execute(Sql)
I=1
While Not Rs.Eof
Response.write "<a class=CommonImageTextButton href='../Play.aspx?ID="&ID&"&PartNum="&Rs("PartNum")&"' target=_'blank'>"&Rs("PartNum")&"</a> "
If I Mod 10=0 Then Response.write "<br>"
I=I+1
Rs.MoveNext
Wend
Rs.Close()
End If
%>
</td>
</tr>
<tr height=5 >
<td colspan=3 ><b>下载地址</b>
[权限:
<%
If DownLevel=1 Then
Response.write "免费下载"
ElseIf DownLevel=2 Then
Response.write "会员下载"
Response.write " 每集花费:"& OnlineSpendCount &"点"
End If
%>
]
(注意：请使用迅雷软件下载）</td>
</tr>
<tr height=5 >
<td colspan=3 >
<%=GetAppSet(RsSet("AdCode"),"Ad_6")%><br>
<%
If DownState=0 Then
Response.write "无"
Else
Sql="Select * From CFFilm_Link where Assort=2 And FilmID="&ID&" Order by PartNum"
Set Rs=Conn.Execute(Sql)
I=1
While Not Rs.Eof
If Rs("DownLevel")=1 Then'不花费点数的电影
If CInt(GetMySet("NoDotFilmImmDown"))=1 Then'不花费点数的电影直接下载不需转向后下载
DownRe=0
Else
DownRe=1
End If
ElseIf Rs("DownLevel")=2 Then'点数的电影
DownRe=1
End If
If DownRe=1 Then
Response.write "<a class=CommonImageTextButton href='../Down.aspx?ID="&ID&"&PartNum="&Rs("PartNum")&"' target=_'blank'>"&Rs("PartNum")&"</a> "
Else
Response.write "<a class=CommonImageTextButton href='"&Rs("Link")&"' target=_'blank'>"&Rs("PartNum")&"</a> "
End If
If I Mod 10=0 Then Response.write "<br>"
I=I+1
Rs.MoveNext
Wend
Rs.Close()
End If
%>
</td>
</tr>
<tr height=5 >
<td colspan=3 ><b><%=FilmName%> 简介</b></td>
</tr>
<tr height=5 >
<td colspan=3 >
<%=GetAppSet(RsSet("AdCode"),"Ad_7")%><br>
<%
If FilmIntro="-" Then
Response.write "无"
Else
Response.write FilmIntro
End If%></td>
</tr>
</table>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD class=td4></TD>
<TD class=td5_d></TD>
<TD class=td6></TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table>
<!--#include file="../Bottom.asp"-->
<%
Response.write "<script src='../CF.aspx?Action=clickshow&AllID="&ID&"'></script>"
Response.write "<script src='../CF.aspx?Action=clickstat&ID="&ID&"'></script>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -