📄 allmovie_mb.asp
字号:
<!--#include file="articleconn.asp"-->
<% set rs=server.createobject("adodb.recordset")
sql="select type from type"
rs.open sql,conn,1,1%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>蚂蚁影院</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
<script>
function killErrors() {
return true;
}
window.onerror = killErrors;
</script>
</head>
<body bgcolor="#3B5815" leftmargin="0" topmargin="0">
<TABLE width=778 height="29"
border=0 align=center cellPadding=0 cellSpacing=0 background="images/topbg-01.gif">
<TR>
<TD width="420">现在是：<SCRIPT language=javascript>
<!--
calendar = new Date();
day = calendar.getDay();
month = calendar.getMonth();
date = calendar.getDate();
year = calendar.getYear();
if (year< 100) year = 1900 + year;
cent = parseInt(year/100);
g = year % 19;
k = parseInt((cent - 17)/25);
i = (cent - parseInt(cent/4) - parseInt((cent - k)/3) + 19*g + 15) % 30;
i = i - parseInt(i/28)*(1 - parseInt(i/28)*parseInt(29/(i+1))*parseInt((21-g)/11));
j = (year + parseInt(year/4) + i + 2 - cent + parseInt(cent/4)) % 7;
l = i - j;
emonth = 3 + parseInt((l + 40)/44);
edate = l + 28 - 31*parseInt((emonth/4));
emonth--;
var dayname = new Array ("星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六");
var monthname =
new Array ("1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月" );
document.write("<font color=FF0000>"+year +"年");
document.write(monthname[month]);
document.write(date + "日");
document.write(dayname[day]+" "+"</font>");
// January(1月份节日，以下同。)
if ((month == 0) && (date == 1)) document.write("元旦");
if ((month == 4) && (date == 1)) document.write("劳动节");
if ((month == 4) && (date == 4)) document.write("青年节");
if ((month == 5) && (date == 1)) document.write("国际儿童节");
if ((month == 11) && (date == 25)) document.write("圣诞节");
document.write(" ");
document.write("<font color=FF0000><%= time() %>");
document.write("<br></font>");
//-->
</SCRIPT>
<script language="javascript">kstatus();function kstatus(){self.status="欢迎来到蚂蚁影院，最便宜的在线电影站，请牢记本站域名http://www.cn-mayi.com";setTimeout("kstatus()",0);}</script>
</TD>
<TD width=67 align=center><a target="_blank" href="../index1.htm" class="left">蚂蚁网</a></TD>
<TD width=67 align=center><a target="_blank" href="../tv/" class="left">网络电视</a></TD>
<TD width=68 align=center><a href="reghelp.asp" class="left">付费帮助</a></TD>
<TD width=68 align=center><a href="#" onclick="javascript:window.external.AddFavorite('http://www.cn-mayi.com','蚂蚁网-蚂蚁影院-4000G海量-DVD 电视剧 卡通剧 尽在蚂蚁影院');return false;" class="left">加入收藏</a></TD>
<TD width=68 align=center><a href="banquan.asp" class="left" target="_blank">版权申明</a></font></TD>
<TD width=20 align=center> </TD>
</TR>
</TABLE>
<TABLE width="778" height="98"
border=0 align=center cellPadding=0 cellSpacing=0 background="images/cnmayilogo.gif" bgColor=#CCFF33>
<TR>
<TD width=250 height="25" align=middle> </TD>
<TD align=center> </TD>
</TR>
<TR>
<TD align=middle> </TD>
<TD align=center valign="top">
</TD>
</TR>
</TABLE>
<TABLE width=778 height="30"
border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#000000">
<TR>
<TD align=center class=mix>
<TABLE cellSpacing=0 cellPadding=0 width="778"
border=0>
<TBODY>
<TR>
<TD height=20 align="center" vAlign=middle width="391">
<img src="images/menu-01.gif" width="18" height="6"><a href="index.html" class="menu">首 页</a>
</TD>
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select * from type",conn,1,1
if rst.EOF then
response.write "没有栏目："
else
do while NOT rst.EOF
if rst("type")="VIP专区" or rst("type")="成人片" then %>
<TD height=20 align="center" vAlign=middle width="0">
<a href="mlist/<%=rst("typeid")%>_1.html"></a></TD>
<% else%>
<TD height=20 align="center" vAlign=middle width="387">
<img src="images/menu-01.gif" width="18" height="6"><a href="mlist/<%=rst("typeid")%>_1.html" class="menu"><%=rst("type")%></a></TD>
<% end if
rst.MoveNext
loop
end if
rst.close
set rst=nothing
%>
<TD height=20 align="center" vAlign=middle width="391">
<img src="images/menu-01.gif" width="18" height="6"><a href="allmovie.html" class="menu">全 部</a>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE>
<body>
<div align="center">
<center>
<table border="1" width="778" style="border-collapse: collapse" bordercolor="#C3EF26" cellpadding="3" cellspacing="0">
<%do while not rs.eof%>
<tr>
<td width="71" height="20" bgcolor="#EFFFAD" valign="top">
<p align="center"><%=rs("type")%>>><%typeid=rs("type")%></td>
<td width="778" height="20" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" 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_count
row_count=1
do while not rst.eof
if rs("type")="VIP专区" or rs("type")="成人片" then %>
<td width="135" bgcolor="#FFFFFF">
<a href="user/buy.asp" target="_blank">
<font color=blue>此为VIP会员影片</font></a></td>
<%else%>
<td width="135" bgcolor="#FFFFFF">
<a href="html/<%=rst("articleid")%>.html" target="_blank" class="mayi">
<%content=rst("title")
if len(content)>6 then content=left(content,6)&"…"
response.write content
%></a></td>
<% end if
if row_count mod 7 =0 then%>
</tr>
<tr>
<%
end if
row_count=row_count+1
rst.movenext
loop
end if%>
</tr>
</table>
</td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</table>
<table align="center" border="0" cellPadding="0" cellSpacing="0" width="750">
<tr>
<td><TABLE height=46 cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD bgColor=#b4d541 height=5></TD>
</TR>
<TR>
<TD height="49" align=middle bgColor=#c3ef29><FONT
color=#3b591b>本站影视来源于互联网和会员交流，仅供宽带网用户测试，影片版权归相关影音公司所有 客服QQ:43610834</FONT></TD>
</TR><script src="http://www.cn-mayi.com/counts/count.asp?fy=2"></script>
</TBODY>
</TABLE>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -