📄 mclass.asp
字号:
<!--#include file="film_conn.asp"-->
<%
dim rstype
dim typesql
dim types
typeid=replace(trim(request("typeid")), " ", "")
typeid=replace(typeid, "'", "")
typeid=replace(typeid, "=", "")
typeid=replace(typeid, "%", "")
sql="select * from type where type='"&typeid&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
typeid=request("typeid")
else
typeid="全部电影"
end if
%>
<HTML><HEAD><TITLE><%=webname%> - <%=typeid%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script>
//*****************************************************
function isnum()
{
if(event.keyCode==13 ) addGame(document.regist);
if(event.keyCode<48 || event.keyCode>57)
{
event.keyCode=0;
}
if(event.keyCode==13 ) addGame(document.regist);
}
</script>
</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="86" 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>
<%
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 "<p align=center> 该栏目没有任何电影</p>"
response.end
else
if request("page")<>"" then
curpage=cint(request("page"))
else
curpage=1
end if
num=6
rs.pagesize=num
rs.absolutepage=curpage
end if
%>
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#111111 height=1 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<tr><FORM action=mclass.asp method=post>
<TD width="100%" height=30><DIV align=center><b><%=typeid%></b> 每页<font color=red><%=num%></font>部/共<font color=red><%=rs.recordcount%></font>部 第<font color=red><%=curpage%></font>页/共<font color=red><%=rs.pagecount%></font>页
<%if curpage<=1 then%>首页 上页
<%else%><a href="mclass.asp?typeid=<%=typeid%>&page=1">首页</a> <a href="mclass.asp?typeid=<%=typeid%>&page=<%=(curpage-1)%>">上页</a>
<%end if%>
<%if curpage>=rs.pagecount then%>下页 尾页
<%else%><a href="mclass.asp?typeid=<%=typeid%>&page=<%=(curpage+1)%>">下页</a> <a href="mclass.asp?typeid=<%=typeid%>&page=<%=rs.pagecount%>">尾页</a>
<%end if%> 转至 <INPUT
style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; COLOR: #000000; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #ffffff"
size=2 onkeypress="isnum()" maxlength="3" name=page> 页 <input type=hidden name=typeid value=<%=typeid%>><input type="image" src="icon/go.gif"></DIV></TD></form>
</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 border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber1">
<tr>
<TD vAlign=top width="100%" background=images/b01.gif
height=738>
<%
i=0
do while not rs.eof
%>
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#e3e3e3 height=75 cellSpacing=0
borderColorDark=#d6d6d6 cellPadding=0 width="99%"
align=center borderColorLight=#e3e3e3 border=1>
<TBODY>
<TR bgColor=#666666>
<TD colSpan=2 height=21>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD
style="BORDER-TOP: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid"
width="79%" bgColor=#dddddd height=21><B><FONT
color=#666666> <%=rs("typeid")%>-</FONT> <FONT
color=#ffffff><A
href="view.asp?id=<%=rs("articleid")%>" target="_blank"><FONT
color=#666666><%=rs("title")%></FONT></A></FONT> <FONT
color=#666666> </FONT></B> </TD>
<TD
style="BORDER-TOP: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid"
width="18%" bgColor=#dddddd>
<P align=right><FONT
color=#666666><FONT class="eng_S"><strong><%=rs("dateandtime")%></strong></FONT></FONT></P></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD align=middle width=124 bgColor=#ffffff height=53
rowSpan=8>
<TABLE cellSpacing=1 cellPadding=0 width="50%"
align=center bgColor=#000000 border=0>
<TBODY>
<TR>
<TD><A
href="view.asp?id=<%=rs("articleid")%>" target="_blank">
<IMG
height=134 src="<%if rs("domurl")="" then%>IMAGES/nopic.gif<%else%><%=rs("domurl")%><%end if%>"
width=110
border=0></A></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD style="BORDER-TOP: #ffffff 1px solid"
align=middle bgColor=#ffffff height=22>
<P align=left><FONT
color=#f79400> 主要演员：</FONT><FONT
color=#008bce><%=rs("name")%></FONT></P></TD></TR>
<tr>
<TD style="BORDER-TOP: #ffffff 1px solid"
align=middle bgColor=#ffffff height=22>
<p align="left"><FONT
color=#f79400> 影片类型：</FONT><% if rs("canlook")=1 then%>普通电影<%else%>黄金电影<%end if%></P></TD>
</tr>
<tr>
<TD style="BORDER-TOP: #ffffff 1px solid"
align=middle bgColor=#ffffff height=22>
<p align="left"><FONT
color=#f79400> 观看方式：</FONT><%if rs("onlinelook")=1 and rs("down")=1 then%>在线/下载<%elseif rs("onlinelook")=1 and rs("down")=0 then%>仅在线观看<%elseif rs("down")=1 and rs("onlinelook")=0 then%>仅提供下载<%end if%></p></TD>
</tr>
<TR>
<TD align=middle bgColor=#ffffff height=22>
<P align=left><FONT color=#ff9900> 推荐级别：
<%if rs("softlevel")="1" then%>★<%elseif rs("softlevel")="2" then%>★★<%elseif rs("softlevel")="3" then%>★★★<%elseif rs("softlevel")="4" then%>★★★★<%else%>★★★★★<%end if%></FONT></P></TD></TR>
<TR>
<TD align=middle bgColor=#ffffff height=22>
<P align=left><FONT
color=#ff9900> 观看次数：</FONT><FONT class="eng_S"><strong><%=rs("hits")%></strong></FONT></P></TD></TR>
<TR>
<TD align=middle bgColor=#ffffff height=61>
<P align=left><FONT
color=#ff9900> 影片简介：</FONT> <A
href="view.asp?id=<%=rs("articleid")%>" target="_blank"><FONT
color=#666666><%
content=rs("content")
if len(content)>75 then content=left(content,65)&"……"
content=replace(content,"<p>","")
content=replace(content,"<br>","")
response.write content%></FONT></FONT></A>
</P></TD></TR>
</TBODY></TABLE>
<% i=i+1
if i>=Num then exit do
rs.movenext
loop
%>
</TD>
</tr>
</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>
<TR><FORM action=mclass.asp method=post>
<TD vAlign=top width="100%" height=30><DIV align=center><b><%=typeid%></b> 每页<font color=red><%=num%></font>部/共<font color=red><%=rs.recordcount%></font>部 第<font color=red><%=curpage%></font>页/共<font color=red><%=rs.pagecount%></font>页
<%if curpage<=1 then%>首页 上页
<%else%><a href="mclass.asp?typeid=<%=typeid%>&page=1">首页</a> <a href="mclass.asp?typeid=<%=typeid%>&page=<%=(curpage-1)%>">上页</a>
<%end if%>
<%if curpage>=rs.pagecount then%>下页 尾页
<%else%><a href="mclass.asp?typeid=<%=typeid%>&page=<%=(curpage+1)%>">下页</a> <a href="mclass.asp?typeid=<%=typeid%>&page=<%=rs.pagecount%>">尾页</a>
<%end if%>转至 <INPUT
style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; COLOR: #000000; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #ffffff"
size=2 onkeypress="isnum()" maxlength="3" name=page> 页 <input type=hidden name=typeid value=<%=typeid%>><input type="image" src="icon/go.gif"></DIV></TD></form></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 + -