📄 mlist.asp
字号:
<!--#include file=articleconn.asp-->
<%
MaxPerPage=6
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
%>
<HTML><HEAD>
<meta http-equiv="Content-Language" content="en-gb">
<%set rs=conn.execute("select * from [home]")%>
<title><%=rs("home")%></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="img/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR>
<script language="JavaScript">
<!--
function checkinput()
{
if (document.search.keyword.value=="")
{
alert("请输入想查询的内容！");
document.search.keyword.focus();
return false;
}
return true;
}
-->
</script>
<script language="javascript">kstatus();function kstatus(){self.status="<%=rs("Description")%>";setTimeout("kstatus()",0);}</script></HEAD>
<BODY >
<!--#include file=top.asp-->
<TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
<TBODY>
<TR>
<TD bgColor=#7d7d7d height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=2></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
<TBODY>
<TR>
<TD background=img/2.gif height=8></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=977 bgColor=#b7b7b7 border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE height=94 cellSpacing=0 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width=189><IMG height=90 src="img/channel_title_movie.gif" width=188></TD>
<TD>
<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 height=90 width=780 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
<PARAM NAME="movie" VALUE="img/banner_780x90.swf">
<PARAM NAME="quality" VALUE="High">
<embed src="img/banner_780x90.swf" quality="High" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="90"></embed></OBJECT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=img/1.jpg height=12></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
<TBODY>
<TR>
<TD height=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle height=173>
<TABLE height=36 cellSpacing=0 cellPadding=0 width=977 border=0>
<TBODY>
<TR>
<TD vAlign=top width=191 height=25>
<!--#include file=left.asp--></TD>
<TD width=2></TD>
<TD width=1 bgColor=#c6c6c6></TD>
<TD vAlign=top width=783>
<TABLE cellSpacing=0 cellPadding=0 width=783 border=0>
<TBODY>
<TR>
<TD><A href="#"><IMG height=60 src="img/dl_01.jpg" width=179 border=0></A></TD>
<TD><A href="#"><IMG height=60 src="img/dl_02.jpg" width=171 border=0></A></TD>
<TD><A href="#"><IMG height=60 src="img/dl_03.jpg" width=168 border=0></A></TD>
<TD><A href="#"><IMG height=60 src="img/dl_04.jpg" width=160 border=0></A></TD>
<TD><A href="#"><IMG height=60 src="img/dl_05.jpg" width=105 border=0></A></TD></TR></TBODY></TABLE>
<TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=img/5.gif border=0>
<TBODY>
<TR vAlign=top>
<TD width=116><img border="0" src="img/18.gif" width="116" height="32"></TD>
<TD align=right><IMG height=31 src="img/7.gif" width=83></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR align=right>
<TD>
<TABLE height=240 cellSpacing=0 cellPadding=0 width="100%" border=0 id="table1"><TBODY>
<TR align=right>
<TD>
<table width="126" border="0" cellpadding="0" cellspacing="0">
<tr><%
sql="select articleid,domurl,title,hits,content from learning where firstbest=1 order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
b=0
row_count=1
%> <%
do while not rs.eof
b=b+1%>
<td><div align="center">
<table width="126" border="0" cellspacing="0" cellpadding="0">
<tr height="119" align="center">
<td width="3"><!--Blank--></td>
<td width="123" background="images/commend_pic.gif"><table border="1" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#939393" id="table5">
<tr>
<td><table border="0" cellspacing="4" width="100%" cellpadding="0" id="table5">
<tr>
<td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
<img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="137" height="191"></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr height="21" align="middle">
<td width="5"><img src height=1 width=9></td>
<td background="img/8.gif"><table border="0" cellspacing="0" width="90%" cellpadding="0">
<tr>
<td height="22" width=109 align="center">
<% if row_count mod 1 =0 then%>
<%content=rs("title")
if len(content)>11 then content=left(content,11)&"?-"
response.write content
%>
</td>
<td>
<p align="center"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
<img src="img/sort_play1.gif" width="18" height="18" border="0" alt="播放"></a></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
<%end if%>
<%row_count=row_count+1
if b>=5 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
</TD>
</TR></TBODY></TABLE>
</TD>
</TR></TBODY></TABLE>
<TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=img/5.gif border=0>
<TBODY>
<TR vAlign=top>
<TD width=146><img border="0" src="img/11.gif" width="116" height="32"></TD>
<TD align=right>
<table border="0" cellspacing="0" width="100%" cellpadding="0" id="table6">
<tr>
<td height="9"><img src height=9 width=1></td>
</tr>
<tr>
<td><!--webbot
bot="HTMLMarkup" startspan --><font color="#000000"><b><span class="样式3" 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 class="样式3">部</span> <span class="样式3">今天更新:</span><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></b><span class="样式3">部</span></span>
<!--webbot bot="HTMLMarkup" endspan i-checksum="62826" -->
</td>
</tr>
</table>
</TD>
<TD align=right width="158"><IMG height=31 src="img/7.gif" width=83></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY>
<TR>
<TD vAlign=top align=middle width=8>
<table width="591" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><%
dim sql
dim rs
if typeid="所有影片" then
sql="select * from learning order by articleid desc"
else
sql="select * from learning where typeid='"&typeid&"' order by articleid desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<script>alert('该类还没有任何影片，要想看的话请联系管理员！')</Script><script Language=Javascript>location.href = '';</script>"
response.end
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"mlist.asp"
showContent
showpage totalput,MaxPerPage,"mlist.asp"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -