📄 index.asp
字号:
<!--#include file="film_conn.asp"-->
<HTML><HEAD><TITLE><%=webname%>-首页-<%=webtitle%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<BODY bgColor=#71757b leftMargin=0 topMargin=0 rightMargin=0 marginheight="0" marginwidth="0" botmargin="0">
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center background=images/bg-content.gif border=0 valign="top">
<TBODY>
<TR>
<TD width=778 height=1>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=1
cellSpacing=0 cellPadding=0 width=778 align=left border=0 valign="top">
<TBODY>
<TR>
<TD width=13 height=1><IMG height=100 src="images/clear.gif"
width=13>
<TD width=753 height=1>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height=1 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=752 background=images/clear0.gif height=1>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height="100%" cellSpacing=2 cellPadding=2 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width="93%" valign="middle">
<iframe frameBorder="no" height="0" marginHeight="0" marginWidth="0" name="mq" scrolling="no" src="js/move.htm" width="0">
</iframe>
<iframe frameBorder="no" height="134" marginHeight="0" marginWidth="0" name="mq" scrolling="no" src="move.asp" width="100%">
</iframe></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD width=12 height=1><IMG height=100 src="images/clear1.gif"
width=13> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=778 height=188>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0
cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD width=15 height=151> </TD>
<TD vAlign=top width=194 height=151><!--#include file="left.asp"--></TD>
<TD vAlign=top width=4></TD>
<TD vAlign=top width=550 height=151>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
cellSpacing=5 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width="100%" height=386>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height=519 cellSpacing=0 cellPadding=0 width="91%" border=0>
<TBODY>
<TR>
<TD vAlign=top width="100%" height=39><!--#include file="query.asp"--></TD></TR>
<TR>
<TD width="100%" height=5></TD></TR>
<TR>
<TD width="100%" height=8>
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#111111 height=1 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<tr>
<TD width="100%" height=1><IMG height=5
src="images/d1.gif" width=538 border=0></TD>
</tr>
<tr>
<TD width="100%" height=89>
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#111111 height="100%" cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="1%"><IMG height=225
src="images/d3.gif" width=5 border=0></TD>
<TD width="99%"><!--start-->
<TABLE style="BORDER-COLLAPSE: collapse"
borderColorDark=#ffffff cellPadding=1
width="100%" borderColorLight=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width="3%" height=21> </TD>
<TD width="97%" height=21 align=center>本站共有电影/电视剧 <b><font color=red><%sql="select * from movieurl"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql,conn,1,1%><%=rst.recordcount%><%rst.close
set rst=nothing%></font></b> 部</TD></TR>
<TR>
<TD width="3%" height=21> </TD>
<TD width="97%" height=21><B><FONT
color=red>网站公告 >>></FONT></B></TD></TR>
<TR>
<TD> </TD>
<TD>
<%sql="select top 1 * from talk"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql,conn,1,1%><%=rst("talk")%><%rst.close
set rst=nothing%><B>声明：</B>本站影视来源于互联网和会员交流，相关链接站点提供下载的影片仅供宽带网用户测试研究用途，
请于下载后24小时内删除，影片版权归相关影音公司所有。
</TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=middle width=280>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width="3%" height=21> </TD>
<TD width="71%" colSpan=2 height=21><B><FONT
color=blue>新片速递 >>></FONT></B></TD>
<TD width="26%" height=21><A
href="mclass.asp"><FONT
color=blue>>>> 更多</FONT></A></TD></TR>
<%
sql="select * from learning order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
%> <TR>
<TD></TD>
<TD width="50%" height=19><FONT color=#333333><A
title=杀死比尔(最新)
href="view.asp?id=<%=rs("articleid")%>" target="_blank"><%if len(rs("title"))>11 then%><%=left(rs("title"),11)%>..<%else%><%=rs("title")%><%end if%>
</A> </FONT></TD>
<TD width="21%" height=18><a href="mclass.asp?typeid=<%=rs("typeid")%>"><%=rs("typeid")%></a></TD>
<TD align=middle width="26%"
height=18><%=rs("dateandtime")%></TD></TR>
<%
if i>=10 then exit do
rs.movenext
loop
%> <TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD width="1%"><IMG height=225
src="images/d2.gif" width=5
border=0></TD></TR></TBODY></TABLE></TD>
</tr>
<tr>
<TD width="100%" height=1><IMG height=6
src="images/d.gif" width=538
border=0></TD>
</tr>
</TBODY></TABLE></TD></TR>
<TR>
<TD width="100%" height=5></TD></TR>
<TR>
<TD width="100%" height=3><IMG height=21
src="images/b.gif" width=538 border=0></TD></TR>
<TR>
<TD width="100%" background=images/b01.gif
height=738>
<div align="center">
<center>
<TABLE style="BORDER-COLLAPSE: collapse" borderColorDark=#FFFFFF cellPadding=6
width="99%" borderColorLight=#FFFFFF border=1>
<TBODY>
<%
set rs=server.createobject("adodb.recordset")
sql="select type from type"
rs.open sql,conn,1,1
%><%do while not rs.eof%>
<TR>
<TD width="20%" height=20>
<DIV align=center>
<IMG height=11 src="images/infast.files/roll_film.gif"
width=11> <B> <SPAN class=f9><a href="mclass.asp?typeid=<%=rs("type")%>"><%=rs("type")%>：</A></SPAN></DIV></B><%typeid=rs("type")%></TD>
<TD class=f9 width="88%" height=28><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<%
set rst=server.createobject("adodb.recordset")
sql="select articleid,title,typeid from learning where typeid='"&typeid&"'order by articleid desc"
rst.open sql,conn,1,1
if rst.eof and rst.bof then
response.write"该栏目还没有影片"
else
dim row_count1
row_count1=1
do while not rst.eof
%>
<td width="135">
<a href="view.asp?id=<%=rst("articleid")%>" target="_blank">
<%if len(rst("title"))<8 then%><%=rst("title")%><%else%><%=left(rst("title"),8)%>..<%end if%></a></td><% if row_count1 mod 3 =0 then%></tr>
<tr>
<%
end if
row_count1=row_count1+1
if row_count1>12 then exit do
rst.movenext
loop
end if
%>
</table>
</center>
</div>
</TD></TR>
<%
rs.movenext
loop
%></TBODY></TABLE></center>
</div>
</TD></TR>
<TR>
<TD width="100%" height=1><IMG height=5
src="images/b02.gif" width=538
border=0></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD width=15 height=151> </TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -