📄 list.asp
字号:
<%
' 乘风电影V3.3 Access版
' 制 作：乘 风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 功 能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>
<%
response.expires= -1
response.addheader "pragma","no-cache"
response.AddHeader "cache-control","no-store"
%>
<%
PathLayer=2
If PathLayer=1 Then
Path_Index=""
ElseIf PathLayer=2 Then
Path_Index="../"
End If
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../CF_MyFunction.asp"-->
<!--#Include File="../CF_GetCookie.asp"-->
<%
ClassID=CInt(ChkStr(Request("ClassID"),2))
PorduceArea=CInt(ChkStr(Request("PorduceArea"),2))
Px=Lcase(ChkStr(Request("Px"),1))
If ChkStr(Request("PorduceYear"),2)="" Or CInt(ChkStr(Request("PorduceYear"),2))=1 Then
PorduceYear=1
PorduceYearStr="全部年份"
Else
PorduceYear=CInt(ChkStr(Request("PorduceYear"),2))
If PorduceYear=0 Then
PorduceYearStr="未知年份"
Else
PorduceYearStr=PorduceYear&"年"
End If
End If
If PorduceArea>0 Then
PorduceAreaStr=GetPorduceArea(PorduceArea)
Else
PorduceAreaStr="全部地区"
End If
If Px="" Then Px="addtime"
Call PxFilter(Px,"CommendLevel,PorduceYear,ClickTotal,AddTime")
Sql="Select * From CFFilm_Class Where ID="&ClassID
Set Rs=Conn.Execute(Sql)
ClassName=Rs("ClassName")
Rs.Close()
%>
<html>
<head>
<title><%=ClassName%>-<%=PorduceAreaStr%>-<%=Rsset("Title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../CF_Style.asp"-->
</head>
<body>
<!--#include file="../Top.asp"-->
<table width="980" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="0" style="border-collapse: collapse">
<tr>
<td width="208" valign="top">
<!--#include file="../CF_FilmArea.asp"-->
<!--#include file="../CF_FilmYear.asp"-->
<!--#include file="../CF_FilmCommend.asp"-->
<!--#include file="../CF_FilmTop.asp"-->
</td>
<td width="772" valign="top">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD class=td1> </TD>
<TD class=td2><font color="#990000"><b><%=ClassName%>-<%=PorduceAreaStr%>-<%=PorduceYearStr%></b></font>
排序：
<a href="<%=Path_Index%>List/List.asp?ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&PorduceYear=<%=PorduceYear%>&Px=AddTime">按上传时间</a>
<a href="<%=Path_Index%>List/List.asp?ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&PorduceYear=<%=PorduceYear%>&Px=PorduceYear">按生产时间</a>
<a href="<%=Path_Index%>List/List.asp?ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&PorduceYear=<%=PorduceYear%>&Px=CommendLevel">按推荐级别</a>
<a href="<%=Path_Index%>List/List.asp?ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&PorduceYear=<%=PorduceYear%>&Px=ClickTotal">按浏览总数</a></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><strong> </strong>
<%
Sql="Select * From CFFilm_Film Where ClassID="&ClassID
If PorduceArea>0 Then Sql=Sql & " And PorduceArea="&PorduceArea
If PorduceYear<>1 Then Sql=Sql&" And PorduceYear="&PorduceYear
Sql=Sql & " Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1,1
If Not Rs.Eof Then
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize=10
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
Else
Response.Write "没有记录"
End If
%>
<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
<%
I=1
While Not Rs.Eof And MyPagesize>0%>
<tr>
<td colspan="6"> </td>
</tr>
<tr>
<td width="371" valign=top>
<table width=330 border=0 cellspacing=0 cellpadding=2>
<tr>
<td width=135 rowspan=2 valign=top><TABLE width=134 height=184 border=0 cellPadding=0 cellSpacing=0 background=../images/e_bg_9.gif>
<TR>
<TD align=center>
<%
AllID=AllID&Rs("ID")&","
If Rs("FilmPic")="-" Then
Pic=Path_Index&"upload/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>
</TABLE></td>
<td><a target=_blank class=link2 href=<%=Link%>><%=Rs("FilmName")%></a></td>
</tr>
<tr>
<td>
<img src=../images/fang.gif width=15 height=15>别名：<%=Rs("FilmOtherName")%><br>
<img src=../images/fang.gif width=15 height=15>类别：<%=ClassName%><br>
<img src=../images/fang.gif width=15 height=15>主演：<%=Rs("Player")%><br>
<img src=../images/fang.gif width=15 height=15>地区：<%=GetPorduceArea(RS("PorduceArea"))%><br>
<img src=../images/fang.gif width=15 height=15>年份：<%If Rs("PorduceYear")>0 Then Response.write Rs("PorduceYear")&"年"%><%If Rs("PorduceMonth")>0 Then Response.write Rs("PorduceMonth")&"月"%><br>
<img src=../images/fang.gif width=15 height=15>上传：<%=Rs("AddDate")%><br>
<img src=../images/fang.gif width=15 height=15>推荐：<%Response.write "<img src=../images/STAR"&Rs("CommendLevel")&".GIF>"%><br>
<img src=../images/fang.gif width=15 height=15>浏览：<span id="clicktotal_<%=Rs("ID")%>"></span>
</td>
</tr>
<tr height=5 >
<td colspan=2 background=images/eimages_dotlined.gif ><img src=../images/1px.gif width=5 height=5></td>
</tr>
</table>
<%
Rs.MoveNext
MyPagesize=MyPagesize-1
%>
</td>
<td width="372" valign=top>
<%If Not Rs.Eof Then%>
<table width=330 border=0 cellspacing=0 cellpadding=2>
<tr>
<td width=135 rowspan=2 valign=top><TABLE width=134 height=184 border=0 cellPadding=0 cellSpacing=0 background=../images/e_bg_9.gif>
<TR>
<TD align=center>
<%
AllID=AllID&Rs("ID")&","
If Rs("FilmPic")="-" Then
Pic=Path_Index&"upload/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>
</TABLE></td>
<td><a target=_blank class=link2 href=<%=Link%>><%=Rs("FilmName")%></a></td>
</tr>
<tr>
<td>
<img src=../images/fang.gif width=15 height=15>别名：<%=Rs("FilmOtherName")%><br>
<img src=../images/fang.gif width=15 height=15>类别：<%=ClassName%><br>
<img src=../images/fang.gif width=15 height=15>主演：<%=Rs("Player")%><br>
<img src=../images/fang.gif width=15 height=15>地区：<%=GetPorduceArea(RS("PorduceArea"))%><br>
<img src=../images/fang.gif width=15 height=15>年份：<%If Rs("PorduceYear")>0 Then Response.write Rs("PorduceYear")&"年"%><%If Rs("PorduceMonth")>0 Then Response.write Rs("PorduceMonth")&"月"%><br>
<img src=../images/fang.gif width=15 height=15>上传：<%=Rs("AddDate")%><br>
<img src=../images/fang.gif width=15 height=15>推荐：<%Response.write "<img src=../images/STAR"&Rs("CommendLevel")&".GIF>"%><br>
<img src=../images/fang.gif width=15 height=15>浏览：<span id="clicktotal_<%=Rs("ID")%>"></span>
</td>
</tr>
<tr height=5 >
<td colspan=2 background=images/eimages_dotlined.gif ><img src=../images/1px.gif width=5 height=5></td>
</tr>
</table>
<%
Rs.MoveNext
MyPagesize=MyPagesize-1
I=I+1
End If
%>
</td>
</tr>
<%Wend%>
</table>
<table align="right" cellpadding="0" cellspacing="1" class="tableborder5">
<tr align="center">
<td class="tabletitle1" title="电影数"> <%=TotalRs%> </td>
<td class="tabletitle1" title="本页电影"> <%=I%> </td>
<td class="tabletitle1"> <%=Page%>/<%=TotalPage%>页 </td>
<%
Link=""
If RsSet("HtmOpen")=-1 And Px="addtime" Then
Link=Path_Index&"Htm/List_"&ClassID&"_1.htm"
Else
Link="?ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&PorduceYear="&PorduceYear&"&Px="&Px&"&Page=1"
End IF
If Page>1 Then
FirstPageStr="<a href="&Link&"><img src="&Path_Index&"images/First.gif alt=首页 width=9 height=8 border=0></a>"
Else
FirstPageStr="<img src="&Path_Index&"images/First.gif alt=首页 width=9 height=8 border=0>"
End If
%>
<td class="tablebody1"> <%=FirstPageStr%> </td>
<%
If Page Mod 10=0 Then
BeginPage=(Page/10-1)*10+1
Else
BeginPage=Int(Page/10)*10+1
End If
EnnPage=BeginPage+9
Link=""
If RsSet("HtmOpen")=-1 And Px="addtime" Then
Link=Path_Index&"Htm/List_"&ClassID&"_"&BeginPage-1&".htm"
Else
Link="?ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&PorduceYear="&PorduceYear&"&Px="&Px&"&Page="&BeginPage-1
End IF
%>
<%If Page>10 Then%>
<td class="tablebody1"> <a href="<%=Link%>" target=""><img src="<%=Path_Index%>images/Previous.gif" border="0" alt="上10页" /></a> </td>
<%End If%>
<%For I=BeginPage To EnnPage%>
<%If I<=TotalPage Then%>
<%
Link=""
If RsSet("HtmOpen")=-1 And Px="addtime" Then
Link=Path_Index&"Htm/List_"&ClassID&"_"&I&".htm"
Else
Link="?ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&PorduceYear="&PorduceYear&"&Px="&Px&"&Page="&I
End IF
If Page=I Then
tdclass="tablebody2"
tdstr= "<FONT class=normalTextSmall><U><B>"&I&"</B></U></FONT>"
Else
tdclass="tablebody1"
tdstr= "<A href="&Link&">"&I&"</A>"
End If
%>
<td class="<%=tdclass%>"> <%=tdstr%> </td>
<%End If%>
<%Next%>
<%
Link=""
If RsSet("HtmOpen")=-1 And Px="addtime" Then
Link=Path_Index&"List/List_"&ClassID&"_"&EnnPage+1&".htm"
Else
Link="?ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&PorduceYear="&PorduceYear&"&Px="&Px&"&Page="&EnnPage+1
End IF
If Page<Int(TotalPage/10)*10+1 Then
%>
<td class="tablebody1"> <a href="<%=Link%>"><img src="<%=Path_Index%>images/Next.gif" border="0" alt="下10页"></a> </td>
<%End If%>
<%
Link=""
If RsSet("HtmOpen")=-1 And Px="addtime" Then
Link=Path_Index&"Htm/List_"&ClassID&"_"&TotalPage&".htm"
Else
Link="?ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&PorduceYear="&PorduceYear&"&Px="&Px&"&Page="&TotalPage
End IF
If Page<TotalPage Then
LastPageStr="<a href="&Link&"><img src="&Path_Index&"images/Last.gif border=0 alt=尾页></a>"
Else
LastPageStr="<img src="&Path_Index&"images/Last.gif border=0>"
End If
%>
<td class="tablebody1"> <%=LastPageStr%> </td>
<form name="form1" method="post" action="jczx.asp"><td class="tablebody1">
转到第<select name="page" size="1" class=smallselsect id="select" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
Link=""
If RsSet("HtmOpen")=-1 And Px="addtime" Then
Link=Path_Index&"Htm/List_"&ClassID&"_"&I&".htm"
Else
Link="?ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&PorduceYear="&PorduceYear&"&Px="&Px&"&Page="&I
End IF
response.write "<option value="&Link
if page=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
%>
</select>页
</td></form>
</tr>
</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_d></TD>
<TD class=td6></TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table>
<!--#include file="../Bottom.asp"-->
<%
If Len(AllID)>0 Then AllID=Left(AllID,Len(AllID)-1)
Response.write "<script src='../CF.aspx?Action=clickshow&AllID="&AllID&"'></script>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -