📄 list.asp
字号:
end if
response.write movietype
%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
<!--#include file="xshjsoftdown.asp"-->
</center>
</td>
<td width="2" bgcolor="#F0f0f0" valign="top" align="left"></td>
<td valign="top" align="left" bgcolor="#F0f0f0">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from movies where id="&id
rs.open sql,conn,1,1
if rs.eof or bof then
response.write""
else
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%" bgcolor="#FF9900" height="22">¤ 影片观看</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="100%" height="175">
<tr>
<td width="38%" height="231" rowspan="11" bgcolor="#FFFFFF" align="center" valign="middle">
<a href=list.asp?id=<%=rs("id")%>>
<%
pic=rs("pic")
if isnull(pic)=true then
%><img src="moviepic/nopic.gif" border=0 title=<%=rs("movietitle")%>>
<%
else
%>
<img src=<%=pic%> border=0 title=<%=rs("movietitle")%>></a>
<%
end if
%>
</td>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">影片名称：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%=rs("movietitle")%></td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">影片类型：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <a href=classtype.asp?class=<%=rs("movietype")%>><%=rs("movietype")%></a></td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">影片长度：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%=rs("moviehowlong")%>分</td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">影片格式：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left">
<%
movieclass=rs("movieclass")
response.write"<img src=image/"&movieclass&".gif border=0>"
%>
</td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">影片产地：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%=rs("moviewhere")%></td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">观看次数：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%=rs("hits")%></td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">推荐程度：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%
response.write" <img src=image/"&rs("tj")&"star.gif valign=bottom>"
%></td>
</tr>
<tr>
<td width="14%" valign="middle" align="center" height="22" bgcolor="#FFFFFF">主要演员：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%=rs("movieperson")%></td>
</tr>
<tr>
<td width="14%" height="22" valign="middle" align="center" bgcolor="#FFFFFF">加入日期：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%=rs("dateandtime")%></td>
</tr>
<tr>
<td width="14%" height="22" valign="middle" align="center" bgcolor="#FFFFFF">影片评论：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" align="left" valign="middle" > <a href=moviepl.asp?id=<%=rs("id")%>>查看、发表</a></td>
</tr>
<tr>
<td width="14%" height="22" valign="middle" align="center" bgcolor="#FFFFFF">影片档次：</td>
<td width="48%" height="22" bgcolor="#FFFFFF" valign="middle" align="left"> <%
horp=rs("horp")
if horp=0 then
horp="普通影片"
else
horp="黄金影片"
end if
%>
<%=horp%></td>
</tr>
<tr>
<td width="100%" height="22" valign="middle" align="left" bgcolor="#FFFFFF" colspan="3">在线观看</td>
</tr>
<tr>
<td width="100%" height="22" valign="middle" align="left" bgcolor="#FFFFFF" colspan="3">
<%
onlinelook=rs("onlinelook")
if onlinelook=1 then
set cmd=server.createobject("adodb.recordset")
sqlcmd="select * from film where filmid="&id
cmd.open sqlcmd,conn,1,1
if cmd.eof or bof then
response.write"没有该影片。"
else
mn=0
do while not cmd.eof or bof
mn=mn+1
%>
<a href="#" onclick=window.open("admin/adminright.htm","top","");>[<%=mn%>]</a>
<%
cmd.movenext
loop
end if
cmd.close
set cmd=nothing
else
response.write"本影片不提供在线观看。"
end if
%>
</td>
</tr>
<tr>
<td width="100%" height="22" valign="middle" align="left" bgcolor="#FFFFFF" colspan="3">影片下载</td>
</tr>
<tr>
<td width="100%" height="22" valign="middle" align="left" bgcolor="#FFFFFF" colspan="3"><%
onlinedown=rs("onlinelook")
if onlinedown=1 then
set cmd=server.createobject("adodb.recordset")
sqlcmd="select * from film where filmid="&id
cmd.open sqlcmd,conn,1,1
if cmd.eof or bof then
response.write"没有该影片。"
else
mn=0
do while not cmd.eof or bof
mn=mn+1
%>
<a href="#" onclick=window.open("admin/adminright.htm","top","");>[<%=mn%>]</a>
<%
cmd.movenext
loop
end if
cmd.close
set cmd=nothing
else
response.write"本影片不提供下载。"
end if
%>
</td>
</tr>
<tr>
<td width="100%" height="22" valign="middle" align="left" bgcolor="#FFFFFF" colspan="3">影片简介</td>
</tr>
<tr>
<td width="100%" height="22" valign="middle" align="left" bgcolor="#FFFFFF" colspan="3" style="line-height:150%">
<%
moviemsh=rs("moviemsh")
moviemsh=ubbcode(moviemsh)
response.write" "&moviemsh
%>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
</td>
<td width="2" bgcolor="#FF9900" valign="top" align="left" ></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</center>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -