📄 index.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.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="QQCF_MyFunction.asp"-->
<%
PathLayer=1
If PathLayer=1 Then
Path_Index=""
ElseIf PathLayer=2 Then
Path_Index="../"
End If
%>
<html>
<head>
<title><%=Rsset("Title")%></title>
<meta name="description" content="<%=Rsset("Title")%>">
<meta name="keywords" content="<%=Rsset("Title")%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="QQCF_Style.asp"-->
<script language="JavaScript">
function check1()
{
if ((document.form1.name.value)=="")
{
window.alert ('用户名必须填写');
document.form1.name.focus();
return false;
}
if ((document.form1.password.value)=="")
{
window.alert ('密码必须填写');
document.form1.password.focus();
return false;
}
return true;
}
function check2()
{
if ((document.form2.keyword.value)=="")
{
window.alert ('关键字必须填写');
document.form2.keyword.focus();
return false;
}
return true;
}
</script>
</head>
<body>
<!--#Include File="Top.asp"-->
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td1> </TD>
<TD class=td2_a><span class="te1">最新更新</span></strong></TD>
<TD class=td3></TD>
</TR>
</TABLE>
<TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1
style="WORD-BREAK: break-all" width="100%">
<TR bgColor=#ffffff>
<TD colSpan=2 vAlign=top> <TABLE borderColor=#ffffff cellSpacing=0
borderColorDark=#f7f3f7 cellPadding=2 width="100%" border=0>
<%
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select Top 5 ID,FilmName,AddDate From CFFilm_Film Order By AddTime Desc"
Rs.Open Sql,Conn,1,1
I=0
J=0
While Not Rs.eof And I<=5
FilmName=Rs("FilmName")
If Len(FilmName)>15 Then Name=Left(FilmName,14)&".."
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
I=I+1
If I Mod 2=1 Then
bgcolor=" bgcolor='#ffffff'"
Else
bgcolor=" bgcolor='#e8e8e8'"
End If
%>
<TR<%=bgcolor%>>
<TD><IMG
src="qqcf_pic/roll_film.gif"
border=0> <a href="<%=Link%>" target="_blank" class=link1 title="<%=Rs2("FilmName")%>"><%=FilmName%></a> </TD>
<TD width="80">
<%If Datediff("d",Rs("AddDate"),Date())=0 Then
Response.Write "<Font Color=#FF0000>"&Rs("AddDate")&"</Font>"
Else
Response.Write Rs("AddDate")
End If
%>
</TD>
</TR>
<%Rs.movenext
Wend
Rs.Close()
%>
<%If I<5 Then%>
<%For J=I+1 To 5
If (J Mod 2=1) Then
bgcolor=" bgcolor='#ffffff'"
Else
bgcolor=" bgcolor='#e8e8e8'"
End If%>
<TR<%=bgcolor%>>
<TD height="18"><IMG
src="qqcf_pic/roll_film.gif"
border=0></TD>
<TD></TD>
</TR>
<%Next%>
<%End IF%>
</TABLE></TD>
</TR>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td4></TD>
<TD class=td5_a></TD>
<TD class=td6></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td1> </TD>
<TD class=td2_a><span class="te1">最新推荐</span></TD>
<TD class=td3></TD>
</TR>
</TABLE>
<TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1
style="WORD-BREAK: break-all" width="100%">
<TR bgColor=#ffffff>
<TD colSpan=2 vAlign=top> <TABLE borderColor=#ffffff cellSpacing=0
borderColorDark=#f7f3f7 cellPadding=2 width="100%" border=0>
<%
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select Top 5 ID,FilmName,AddDate From CFFilm_Film Where CommendLevel=6 Order By AddTime Desc"
Rs.Open Sql,Conn,1,1
I=0
J=0
While Not Rs.eof And I<=5
FilmName=Rs("FilmName")
If Len(FilmName)>15 Then Name=Left(FilmName,14)&".."
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
I=I+1
If I Mod 2=1 Then
bgcolor=" bgcolor='#ffffff'"
Else
bgcolor=" bgcolor='#e8e8e8'"
End If%>
<TR<%=bgcolor%>>
<TD><IMG
src="qqcf_pic/roll_film.gif"
border=0> <a href="<%=Link%>" target="_blank" class=link1 title="<%=Rs2("FilmName")%>"><%=FilmName%></a> </TD>
<TD width="80">
<%If Datediff("d",Rs("AddDate"),Date())=0 Then
Response.Write "<Font Color=#FF0000>"&Rs("AddDate")&"</Font>"
Else
Response.Write Rs("AddDate")
End If
%>
</TD>
</TR>
<%Rs.movenext
Wend
Rs.Close()
%>
<%If I<5 Then%>
<%For J=I+1 To 5
If (J Mod 2=1) Then
bgcolor=" bgcolor='#ffffff'"
Else
bgcolor=" bgcolor='#e8e8e8'"
End If%>
<TR<%=bgcolor%>>
<TD height="18"><IMG
src="qqcf_pic/roll_film.gif"
border=0></TD>
<TD></TD>
</TR>
<%Next%>
<%End IF%>
</TABLE></TD>
</TR>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td4></TD>
<TD class=td5_a></TD>
<TD class=td6></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td1> </TD>
<TD class=td2_a><span class="te1">系统公告</span> (<a href="NewsList.asp" target="_blank">全部公告</a>)</TD>
<TD class=td3></TD>
</TR>
</TABLE>
<TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1
style="WORD-BREAK: break-all" width="100%">
<TR bgColor=#ffffff>
<TD colSpan=2 vAlign=top> <TABLE borderColor=#ffffff cellSpacing=0
borderColorDark=#f7f3f7 cellPadding=2 width="100%" border=0>
<%
Sql="Select Top 5 ID,Title,AddDate From CFFilm_SysInfo Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
I=0
J=0
While Not Rs.eof And I<=5
FilmName=Rs("FilmName")
If Len(FilmName)>15 Then Name=Left(FilmName,14)&".."
I=I+1
If I Mod 2=1 Then
bgcolor=" bgcolor='#ffffff'"
Else
bgcolor=" bgcolor='#e8e8e8'"
End If%>
<TR<%=bgcolor%>>
<TD><IMG
src="qqcf_pic/04.gif"
border=0> <a href="NewsShow.asp?ID=<%=Rs("ID")%>" class=link1 target="_blank""><%=Rs("Title")%></a> </TD>
<TD width="80">
<%If Datediff("d",Rs("AddDate"),Date())=0 Then
Response.Write "<Font Color=#FF0000>"&Rs("AddDate")&"</Font>"
Else
Response.Write Rs("AddDate")
End If
%></TD>
</TR>
<%Rs.movenext
Wend
Rs.Close()
%>
<%If I<5 Then%>
<%For J=I+1 To 5
If (J Mod 2=1) Then
bgcolor=" bgcolor='#ffffff'"
Else
bgcolor=" bgcolor='#e8e8e8'"
End If%>
<TR<%=bgcolor%>>
<TD height="18"><IMG
src="qqcf_pic/04.gif"
border=0></TD>
<TD></TD>
</TR>
<%Next%>
<%End IF%>
</TABLE></TD>
</TR>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%">
<TR>
<TD class=td4></TD>
<TD class=td5_a></TD>
<TD class=td6></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="40%" valign="top"><%
adlinenum=3
jishu=1
Response.Write "<table width='98%' border='0' align='center' cellpadding='2' cellspacing='0'>"&vbcrlf
Set Rs = Server.CreateObject("ADODB.Recordset")
sql="Select Top 27 ID,FilmName,FilmPic,AddDate From CFFilm_Film Where CommendLevel=6 Order By ListID Desc"
rs.open sql,conn,1,1
While Not Rs.Eof
if jishu mod adlinenum = 1 or adlinenum = 1 then
Response.Write "<tr>"&vbcrlf
end if
response.write "<td width="&Int(100/adlinenum)&"%"&" valign=top>"&vbcrlf
%>
<!--#include file="QQCF_Index_Commend.asp"-->
<%Response.Write vbcrlf&"</td>"&vbcrlf
if jishu mod adlinenum =0 then Response.Write "</tr>"&vbcrlf
jishu=jishu+1
Rs.MoveNext
Wend
Rs.Close()
jishu=jishu-1
if jishu mod adlinenum <> 0 then
i=0
for i= 1 to adlinenum-(jishu mod adlinenum)
Response.Write "<td> </td>"&vbcrlf
if i = adlinenum-(jishu mod adlinenum) then Response.Write "</tr>"&vbcrlf
next
end if
Response.Write "</table>"
%></td>
<td valign="top">
<%
adlinenum=2
jishu=1
Response.Write "<table width='98%' border='0' align='center' cellpadding='2' cellspacing='0'>"&vbcrlf
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ID,ClassName from CFFilm_Class Where IndexTaxis>0 order by IndexTaxis"
rs.open sql,conn,1,1
While Not Rs.Eof
if jishu mod adlinenum = 1 or adlinenum = 1 then
Response.Write "<tr>"&vbcrlf
end if
response.write "<td width="&Int(100/adlinenum)&"%"&" valign=top>"&vbcrlf
%>
<!--#include file="QQCF_Index_List.asp"-->
<%Response.Write vbcrlf&"</td>"&vbcrlf
if jishu mod adlinenum =0 then Response.Write "</tr>"&vbcrlf
jishu=jishu+1
Rs.MoveNext
Wend
Rs.Close()
jishu=jishu-1
if jishu mod adlinenum <> 0 then
I=0
for i= 1 to adlinenum-(jishu mod adlinenum)
Response.Write "<td> </td>"&vbcrlf
if i = adlinenum-(jishu mod adlinenum) then Response.Write "</tr>"&vbcrlf
next
end if
Response.Write "</table>"
%>
</td>
</tr>
</table>
<!--#include file="Bottom.asp"-->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -