📄 mlist.asp
字号:
<!--#include file=articleconn.asp-->
<!--#include file=ip.asp-->
<!--#include file=top1.asp-->
<%
MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i
dim ty
typeid=Replace(request("typeid"), "'", "''")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rstype
dim typesql
dim types
if not isEmpty(Replace(request("typeid"), "'", "''")) then
typeid=Replace(request("typeid"), "'", "''")
else
typeid="所有影片"
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" copy="G012">
<title> <%=typeid%>--青苑免费在线电影--网通免费电影 不用注册 天天更新免费大片- 真正让你免费看电影</title>
<meta name=keywords content="免费电影 免费在线电影 " />
<meta name="description" content="免费电影:提供免费电影、免费在线电影等非成人电影、色情免费电影。其中包括：动作片、战争片、爱情片、喜剧片、恐怖片、科幻片、动画片、连续剧、搞笑短片、精彩短片、等精彩内容。" />
</head>
<body leftmargin="0" topmargin="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100" align="center" valign="top"><A href="http://www.gq160.com" target=_blank><img src="images/04.gif" width="778" align="center" height="100" border="0"></A></td>
</tr>
</table>
<table width="778" border="0" align="center" cellspacing="0">
<tr>
<TD height=6><img src="/images/jiaopian1.jpg" width="778" height="10"></TD>
</tr>
<tr>
<td height="150" valign="middle" background="images/ban1.gif"><IFRAME border=0 marginWidth=0 marginHeight=0
src="index1.asp" frameBorder=no width=778 scrolling=no
height=145></IFRAME></td>
</tr>
<tr>
<TD height=6><img src="/images/jiaopian1.jpg" width="778" height="10"></TD>
</tr>
</table>
<TABLE width=778 height="30" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#000000">
<TR>
<TD vAlign=top align=middle width=255 background="images/013.jpg" align=center>
<TABLE width=250 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg" align=center>
<TR>
<TD background="images/012.jpg" width="255" height="29" align="center"><font color="#ffffff"><b>:: 网 站 公 告 ::</b></font></TD>
</TR>
<TR>
<TD width=100% align=center>
<marquee direction="up" height="163" onmouseout="this.start()" onmouseover="this.stop()" scrollAmount="1" scrollDelay="100" align="center">
<%set rs1=server.createobject("adodb.recordset")
sql="select * from talk where id=id"
rs1.open sql,conn,1,3
talk=rs1("talk")
rs1.close
set rs1=nothing
%><%=talk%></marquee>
</TD>
</TR>
</TABLE>
<TABLE width=250 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD height="29" background="images/011.jpg" width="255" height="29" align="center"><font color="#ffffff"><b>:: 用 户 登 录 ::</b></font></TD>
</TR>
<TR>
<TD align=middle><table width="98%" border="0" cellspacing="3">
<tr>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="180" id="AutoNumber15" cellpadding="0">
<tr>
<td width="180" align="center"><br>
<!--#include file=userlogin.asp-->
<!--webbot
bot="HTMLMarkup" startspan --><font color="#3399FF"><span lang="zh-cn">共有电影:</span>
<%
function gettipnum1()
dim tmprs1
tmprs1=conn.execute("Select Count(articleid) from learning")
gettipnum1=tmprs1(0)
set tmprs1=nothing
if isnull(gettipnum1) then gettipnum1=0
end function
%><font color="#FF0000"><%=gettipnum1()%></font>部今天更新:<span lang="zh-cn">
<%
function todays()
dim tmprs
tmprs=conn.execute("Select count(articleid) from learning Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function%><font color="#FF0000"><%=todays()%></font>部</span>
<!--webbot bot="HTMLMarkup" endspan -->
</td>
</tr>
<tr>
<td align="center" width="180">
<table border="0" align="center" cellpadding="0" cellspacing="4" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber23">
<tr>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a class="a1" href="http://www.gq160.com/" target="_blank">网站首页</a></span></td>
<td> </td>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a class="a1" href="http://www.gq160.com/gqdz" target="_blank">大钟广告</a></span></td>
</tr>
<tr>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a class="a1" href="http://www.gq160.com/bbs" target="_blank">青苑论坛</a></span></td>
<td> </td>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a class="a1" href="http://www.gq160.com/music/" target="_blank">在线听歌</a></span></td>
</tr>
<tr>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a href="http://www.9191dj.com/" target="_blank" class="a1">舞曲DJ</a></span></td>
<td> </td>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a class="a1" href="http://www.gq160.com/flash/" target="_blank">动漫欣赏</a></span></td>
</tr>
<tr>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a href="http://www.gq160.com/music/tg/" target="_blank" class="a1">随便听听</a></span></td>
<td> </td>
<td width="83" background="images/index-bottombg.gif" height="25" align="center">
<span class="fontshadow"><a href="http://www.gq160.com/vod/benshan" target="_blank" class="a1">本山小品</a></span></td>
</tr>
</table> </tr>
</table></TD>
</TR>
</FORM>
</TABLE>
<TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<script language=JavaScript>
<!--
function check() {
if (document.searchform.keyword.value==""||document.searchform.keyword.value=="请输入关键字") {
alert("请输入检索关键字");
return false;
}
return true;
}
-->
</script>
<form name="searchform" method="post" action="search.asp" onSubmit="return check();">
<TR>
<TD height="29" background="images/011.jpg"><img src="images/leftsearch.gif" width="162" height="29"></TD>
</TR>
<TR>
<TD align=middle><table width="100%" border="0" cellspacing="3">
<tr>
<td width="100%">
<p align="right">
<select name="typeid" size="1">
<option value="片名" selected>按电影名</option>
<option value="演员">按主演者</option>
</select>
<input type="text" name="keyword" size="12" value="请输入关键字" onFocus="if(this.value=='请输入关键字')this.value='';">
<input type="submit" value="搜索" name="submit" style="height:19px">
</td>
</tr>
</tr>
</table></TD>
</TR>
</FORM>
</TABLE>
<TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD background="images/011.jpg"><IMG height=29 src="images/lefttopmedai.gif" width=162></TD>
</TR>
<TR>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<%
dim t
t=0
sql="select articleid,title,typeid,dateandtime,best from learning order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
t=t+1
%>
<tr>
<td align="center" height="18"><%=t%>.</td>
<td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")
if len(content)>10 then content=left(content,10)&"…"
response.write content
%></a>
</td>
<td align="center" width="18%" height="18"><%=Month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%></td>
</tr>
<tr>
<td colspan="3">
<img border="0" src="http://www.zibo.net.cn/images/index_4x.jpg" width="255" height="1" ></td>
</tr>
<%
if t>=23 then exit do
rs.movenext
loop
%>
</table></TD>
</TR>
</TABLE> <TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD background="images/011.jpg"><IMG height=29 src="images/lefttophits.gif" width=162></TD>
</TR>
<TR>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1
%>
<%
i=0
do while not rst.eof
i=i+1
%>
<tr>
<td align="center" height="18"><%=i%>.</td>
<td><a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" class="left"><%content=rst("title")
if len(content)>10 then content=left(content,10)&"…"
response.write content
%></a>
</td>
<td align="center" width="16%" height="18"><%=rst("hits")%></td>
</tr>
<tr>
<td colspan="3">
<img border="0" src="http://www.zibo.net.cn/images/index_4x.jpg" width="255" height="1" ></td>
</tr>
<%
if i>=21 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%>
</table></tr>
</table></TD>
</TR>
</TABLE> <TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD background="images/011.jpg"><IMG height=29 src="images/leftsoft.gif" width=162></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=3 cellPadding=2 width="100%" border=0>
<TR>
<TD align=center>
<a target="_blank" href="http://www.lnyyw.com/Downloads/RealOnePlayerV2GOLD.exe"><img src="images/realone.gif"
width=88 height=31 border="0"></a></TD>
</TR>
<TR>
<TD align=center><a href="http://www.lnyyw.com/Downloads/media.exe" target="_blank"><img src="images/media.gif" width="88" height="31" border="0"></a></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</TD>
<TD align=middle vAlign=top bgcolor="#FFFFFF">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -