📄 allmovie.asp
字号:
<!--#include file="conn.asp"-->
<% set rs=server.createobject("adodb.recordset")
sql="select type from type"
rs.open sql,conn,1,1%>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from Playbill"
rs1.open sql1,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link href="../images/style.css" rel="stylesheet" type="text/css">
<title>全部影片</title>
</head>
<div align="center">
<!--#include file=head.asp-->
<body topmargin="0" leftmargin="2" rightmargin="0" bottommargin="0" bgcolor="ffffff">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="763" id="AutoNumber1" height="5" >
<tr>
<td height="24"> <span lang="zh-cn"> 共有电影：</span>(
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from Playbill"
rs1.open sql1,conn,1,1
%>
<font color="#FF0000"><%=rs1.recordcount%></font>部)
<span lang="zh-cn">今天更新</span>：
<%
function todays()
dim tmprs
tmprs=conn.execute("Select count(pro_id) from Playbill Where year(dateandtime)=year(getdate()) and month(dateandtime)=month(getdate()) and day(dateandtime)=day(getdate())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
(<font color="#FF0000"><%=todays()%></font>部)</span></td>
</tr>
<tr>
<td></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="763" style="border-collapse: collapse" cellpadding="3" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" background="../images/head_11.jpg">
<%do while not rs.eof%>
<tr>
<td width="71" height="20" valign="top">
<p align="center"><%=rs("type")%><%typeid=rs("type")%></td>
<td width="697" height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1">
<tr>
<%
set rst=server.createobject("adodb.recordset")
sql="select pro_id,title,typeid from Playbill where typeid='"&typeid&"'order by pro_id 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
%>
<td width="135">
<a href="db.asp?title=<%=rst("title")%>" target="_blank"><%=rst("title")%></a></td>
<% if row_count mod 4 =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
rs1.close
set rs1=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -