📄 showfilm.asp
字号:
<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="ImageFile.asp"-->
<%
dim typeid,id,num,sfdRS,sfdSQL
typeid = Request("typeid")
id = Request("id")
num=id
if id="" then
Response.Write("对不起，参数错误！")
Response.End
else
set sfdRS=server.createobject("adodb.recordset")
sfdSQL="select * from type where typeid="&typeid
sfdRS.open sfdSQL,conn,1,1
types=sfdRS("type")
sfdRS.close
set sfdRS=nothing
Dim filmContRS,filmContSQL,filmGrade,msg
set filmContRS=server.createobject("adodb.recordset")
filmContSQL="select * from film where id="&id
filmContRS.open filmContSQL,conn,1,1
if not filmContRS.EOF then
filmGrade=filmContRS("grade")
select case filmGrade
case 0
msg="所有人(免费)"
case 1
msg="本站会员"
case 2
msg="VIP会员"
end select
end if
%><html>
<head>
<title><%=webname%>-<%=types%>-<%=filmContRS("title")%></title>
<link href="http://127.0.0.1/newmovie/images/CNFNOT.ICO" rel="shortcut icon">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<link rel="stylesheet" href="style/style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" BACKGROUND="style/background-extender.gif" oncontextmenu=self.event.returnValue=false onselectstart="return false">
<div align="center">
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E5E5E5">
<tr>
<td width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="98%">
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<!--#include file="webtop.asp"-->
</div>
</td>
</tr>
</table>
<TABLE WIDTH="98%" BORDER="0" CELLSPACING="0" CELLPADDING="0" height="459" align="center">
<TR>
<td rowspan="2" width="1" bgcolor="#0000FF"></td>
<TD BGCOLOR="#FFFFFF" width="195" rowspan="2" background="
/orange.jpg " valign="top">
<DIV ALIGN="center">
<table cellspacing=0 cellpadding=0 width=150 align=center border=0>
<tbody>
<tr>
<td><!--#include file="webleft.asp"-->
</td>
</tr>
</tbody>
</table>
</DIV>
</TD>
<TD BGCOLOR="#FFFFFF" valign="top">
<div align="center"><br>
<table cellspacing=0 cellpadding=0 width="95%" border=1 bordercolor="#CCCCCC">
<tbody>
<tr>
<td bgcolor="#FFFFFF" height="30"> <font color="#CC3300"> <font color="#000000"><a href="index.asp"><%=webname%></a> >>> <a href="film.asp?typeid=<%=filmContRS("typeid")%>"><%=types%></a>>>>电影详细资料</font></font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" valign="middle" align="center">电影<<<<font color="#FF0000"><%=filmContRS("title")%></font>>>>详细资料</td>
</tr>
<tr>
<td>
<table cellspacing=1 cellpadding=3 width=100% bgcolor=#cccccc border=0 height="196">
<tbody>
<tr valign=top bgcolor=#fbfbfb>
<td align=center noWrap width=79> <font color="#990000">影片名称:</font></td>
<td width=255> <%=filmContRS("title")%></td>
<td width=194 rowspan=13 valign="middle"> <div align="center"><img src="<%if filmContRS("imagesname")="" then
moviefile="filmpic/defaut2.jpg"
else moviefile=FIfile(trim(filmContRS("imagefile")))&trim(filmContRS("imagesname"))
end if%><%=moviefile%>" width="151" height="214" border="0"></div></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td valign=center noWrap width=79> <div align="center"><font color="#990000">主要演员：
</font></div></td>
<td valign=center width="255"> <%=filmContRS("mainactors")%></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td align="center" valign=middle noWrap><font color="#990000">电影导演：</font></td>
<td valign=center> <%=filmContRS("directors")%></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td align=center valign="middle" noWrap><font color="#990000">出品公司：</font></td>
<td valign=center> <%=filmContRS("productor")%></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td align=center noWrap valign="middle"><font color="#990000">电影产地：</font></td>
<td valign=center> <%=filmContRS("madein")%></td>
</tr>
<tr align=top bgcolor=#fbfbfb>
<td align=center noWrap valign="middle"><font color="#990000">电影类型：</font></td>
<td> <%=types%></td>
</tr>
<tr align=top bgcolor=#fbfbfb>
<td align=center noWrap><font color="#990000">堞片来源：</font></td>
<td> <%=filmContRS("madeBy")%></td>
</tr>
<tr align=top bgcolor=#fbfbfb>
<td align=center noWrap width=79><font color="#990000">开放范围：</font></td>
<td width="255"> <%=msg%></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td align=center><font color="#990000">影片价格： </font></td>
<td> <%=filmContRS("no")&"集 共需 "&filmContRS("filmprice")%> 点</td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td align=center width="79"> <font color="#990000">影片质量： </font></td>
<td width="255"> <%=filmContRS("runsystem")%> <%=filmContRS("quality")%></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td valign=center width="79"> <div align="center"><font color="#990000">观看次数：
</font></div></td>
<td valign=center width="255"> <%=filmContRS("hits")%></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td valign=center width="79"> <div align="center"><font color="#990000">添加日期：
</font></div></td>
<td valign=center width="255"><font color="#FF9900"><font color="#993300"> <%=filmContRS("dateandtime")%></font></font></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td align=center width="79" height="33" valign="middle"><font color="#990000">推荐程度：</font>
</td>
<td width="255" height="33"> <img name="filmArray" src="Filmarray/<%=filmContRS("filmlevel")%>.gif" alt="评级图片">
<%if filmContRS("best") = true then response.write " <font color=red>强烈推荐</font> "%></td>
</tr>
<tr valign=top>
<td colspan="3" align=center valign="top"> <div align="center"><img src="images/showfilm.gif" width="500" height="33" usemap="#MapMap" border="0">
<map name="MapMap">
<area shape="rect" coords="127,3,204,29" href="####" onClick="MM_openBrWindow('paytip.asp?action=seefilm&id=<%=filmContRS("id")%>&grade=<%=filmGrade%>&price=<%=filmContRS("filmprice")%>','vodplayer','width=700,height=330')">
<area shape="rect" coords="212,4,285,28" href="####" onClick="MM_openBrWindow('memberlogin.asp','','width=200,height=120')">
<area shape="rect" coords="291,4,368,28" href="UserReg.asp">
<area shape="rect" coords="375,4,453,28" href="continue.asp" target="_self">
<area shape="rect" coords="47,3,120,30" href="###" onClick="MM_openBrWindow('paytip.asp?action=downfilm&id=<%=filmContRS("id")%>&grade=<%=filmGrade%>&price=<%=filmContRS("filmprice")%>','downfilm','width=510,height=430,scrollbars,resizable=yes')">
</map>
</div></td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td colspan="3" align=center valign="middle"><font color="#990000">影片简介：</font>
</td>
</tr>
<tr valign=top bgcolor=#fbfbfb>
<td colspan="3" align="left" valign="middle"><font color="#666666"><%=filmContRS("content")%></font></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td> <table cellspacing=0 cellpadding=0 width="95%" align=center
border=0>
<tbody>
<tr>
<td valign="top" height="26"><font color="#000000"><font color="#990000"><font color="#000000"> </font></font></font><font color="#0000FF">
</font> <table border="0" cellspacing="0" cellpadding="2" width="534">
<tr>
<td width="166"><font color="#000000"><font color="#990000"><font color="#000000"> 观众</font><font color="#000000">评论目前己有<font color="#FF0000"><%=filmContRS("reviewcount")%><font color="#000000">篇</font></font></font></font></font></td>
<td width="360"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/userlist.gif" width="16" height="16" border="0"></td>
<td><font color="#3300FF"><a
href="####"
onClick="MM_openBrWindow('addreview.asp?ID=<%=filmContRS("id")%>&filmName=<%=filmContRS("title")%>','','width=550,height=400')">
<font color="#6600FF">我来说两句</font></a></font></td>
<td><font color="#3300FF"><img src="images/MOOD9.GIF" width="15" height="15" border="0">
</font></td>
<td><font color="#3300FF"><a href="mailto:<%=email%>?subject=<%=filmContRS("title")%>-错误报告&body=<%=session("username")%>报告：你的影片>>><%=filmContRS("title")%><<<无法正常观看，请尽快修正。"><font color="#3333FF">错误报告</font></a></font></td>
<td><font color="#3300FF"><img src="images/n0123001.gif" width="22" height="18" border="0"></font></td>
<td><font color="#3300FF"><a href="####"><font color="#0033FF" onClick="MM_openBrWindow('sendMail0.asp?id=<%=Request("id")%>','','width=500,height=360')">推荐给好友</font></a></font></td>
<td><font color="#3300FF"><img src="images/MOOD10.GIF" width="15" height="15"></font></td>
<td><a href="http://www.google.com/search?q=<%=filmContRS("title")%>" target="_blank"><font color="#0000FF">相关新闻</font></a></td>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><img src="images/softnew.gif" width="490" height="15"></td>
</tr>
<tr>
<td>
<table cellspacing=0 cellpadding=2 width="490"
align=center border=0>
<tbody>
<tr>
<td width="3%"> </td>
<td width="97%" align="center"> <%if filmContRS("ifReviews")=true then
Response.Write "<iframe frameborder='0' width='100%' height='500' src='reviews.asp?id="&filmContRS("id")&"&qsy=1' scrolling='no'>"
Response.Write "</iframe>"
else
Response.Write "<br><p align=center>当前没有评论</p><br>"
end if%></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td align="center"><img height=7 src="images/pinlunback.gif" width=490><br><br></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br>
</div>
</TD>
<td rowspan="2" width="1" bgcolor="#0000FF"></td>
</TR>
<TR>
</TR>
</TABLE>
<!--#include file="webbottom.asp"-->
</td>
</tr>
</table>
</div>
</body>
</html><%
filmContRS.close
set filmContRS=nothing
%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -