📄 lbmx.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Language" content="zh-cn">
<link href="../images/style.css" rel="stylesheet" type="text/css">
<% typeid=request("type")%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=typeid%>类电影</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" bgcolor="ffffff">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="763">
<tr>
<td width="100%">
<iframe marginwidth=0 marginheight=0 frameborder=0 bordercolor='#000000' scrolling=no src='head.asp' width=763 height=119></iframe></td>
</tr>
</table>
<table border="1" width="70%" cellspacing="0" cellpadding="0" id="table28" >
<tr>
<td width="697" height='33' >
<div align="center"><strong><font color=#800000><span style='font-size: 12px'>=====<%=typeid%>=====</span></font></strong></div></td>
</tr>
<%
dim page
page=request("page")
PageSize=3
sql ="SELECT * FROM Playbill where typeid='"&typeid&"' ORDER BY dateandtime DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then
page=1
end if
if clng(page) > pgnum then
page=pgnum
end if
if pgnum>0 then
rs.AbsolutePage=page
end if
%>
<%
if rs.eof and rs.bof then
response.write"<TD bgColor=#ffffff>暂时没有影片。</TD>"
end if
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<tr><td align='center'>
<table border='0' width='425' cellspacing='0' cellpadding='0' id='table38' height='128'>
<tr>
<td width='78'><font color='#051547'><span style='font-size: 12px'>[影片名称]</span></font></td>
<td width='347'><font color='#5C5B5B'><span style='font-size: 12px'></span></font><span style='font-size: 12px'><a href=../db.asp?title=<%=rs("title")%> class=mName><%=rs("title")%></a></span></td>
</tr>
<tr>
<td width='78'><font color='#051547'><span style='font-size: 12px'>[加入时间]</span></font></td>
<td width='347'><font color='#5C5B5B'><span style='font-size: 12px'></span></font><span style='font-size: 12px'><%=rs("dateandtime")%></span></td>
</tr>
<tr>
<td width='78'><font color='#051547'><span style='font-size: 12px'>[主 演]</span></font></td>
<td width='347'><font color='#5C5B5B'><span style='font-size: 12px'><%=rs("name")%></span></font></td>
</tr>
<tr>
<td width='78'><font color='#051547'><span style='font-size: 12px'>[推荐级别]</span></font></td>
<td width='347'><font color='#800000'><span style='font-size: 12px'><%=rs("Level")%></span></font></td>
</tr>
<tr>
<td width='78'><font color='#051547'><span style='font-size: 12px'>[收看次数]</span></font></td>
<td width='347'><font color='#5C5B5B'><span style='font-size: 12px'><%=rs("hits")%></span></font></td>
</tr>
<tr>
<td width='78'><font color='#051547'><span style='font-size: 12px'>[影片介绍]</span></font><font color='#5C5B5B'><span style='font-size: 12px'> </span></font></td>
<td><font color='#5C5B5B'><span style='font-size: 12px'>
<%
content=rs("content")
if len(content)>65 then content=left(content,65)&"……"
content=replace(content,"<p>","")
response.write content
%>
</span></font></td>
</tr>
</table>
<% rs.movenext
count=count+1
loop
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="51">
<table border="0" cellPadding="0" cellSpacing="0" width="574">
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"><br><form method=Post action="lbmx.asp">
<div align="center"></div>
[<%=page%>/<%=rs.pagecount%>页] [共有影片<%=totalfilm%>部]
<%if page=1 then%> [首页] [上一页]
<% else %>
[<a href="lbmx.asp?page=1&type=<%=typeid %>">首页</a>] [<a href="lbmx.asp?page1=<%=page-1%>&type=<%=typeid %>">上一页</a>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾页]
<%else%>
[<a href="lbmx.asp?page=<%=page+1%>&type=<% =typeid %>">下一页</a>] [<a href="lbmx.asp?page=<%=rs.pagecount%>&type=<%=typeid %>">尾页</a>]
<%end if%></td>
</tr>
</table>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -