📄 view.asp
字号:
set rsurl=server.createobject("adodb.recordset")
if rs("onlinelook")=1 then
rsurl.open sql,conn,1,1
if rsurl.eof then
response.write "对不起，本影片不提供在线观看！"
else
no=rsurl.recordcount
if no=1 then%> <a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
<%=title%></a><% elseif no=2 then
%>
<p style="line-height: 150%"> <a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
上集</a> <%rsurl.movenext%>
<a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
下集</a> <%elseif no=3 then%>
<a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
上集</a> <%rsurl.movenext%>
<a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
中集</a> <%rsurl.movenext%>
<a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
下集</a> <%elseif no>3 then
dim c
for c=1 to no
%> <a href="#1" onClick="MM_openBrWindow('play.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
[<%=c%>]</a>
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "对不起，本影片不提供在线观看！"
end if
%></td>
</tr>
<tr>
<td width="21%" bgcolor="#FFFFFF" height="39">
<p align="center">
<img border="0" src="images/download.gif" title="电影下载"></td>
<td width="79%" bgcolor="#FFFFFF" height="39"><%if rs("down")=1 then
rsurl.open sql,conn,1,1
if rsurl.eof then
response.write "对不起，本影片不提供下载！"
else
no=rsurl.recordcount
if no=1 then%> <a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')"><%=title%></a><% elseif no=2 then
%>
<a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">上集</a>
<%rsurl.movenext%>
<a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
下集</a> <%elseif no=3 then%>
<a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
上集</a> <%rsurl.movenext%>
<a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
中集</a> <%rsurl.movenext%>
<a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">
下集</a> <%elseif no>3 then
for c=1 to no
%> <a href="#2" onClick="MM_openBrWindow('down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>','tryplay','width=375,height=342')">[<%=c%>]</a>
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "对不起，本影片不提供下载！"
end if
%> </td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
<tr>
<td width="100%" height=30 align=center>支付方式：
<a href="member/user_pay_mb_step1.asp" target="_blank"><font color=red>手机定制1元/天</font></A>
<font color="#FF0000"> </font>
<a target="_blank" href="member/user_pay_net.asp"><font color="#FF0000">网上支付</font></a>
<font color="#FF0000"> </font>
<a target="_blank" href="member/user_pay_168.asp"><font color="#FF0000">声讯电话支付</font></a>
<font color="#FF0000"> </font>
<a target="_blank" href="member/user_pay_other.asp"><font color="#FF0000">银行邮局汇款</font></a></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="25"> <b>影片简介：</b></td>
</tr>
<tr>
<td width="100%"><FONT style="LINE-HEIGHT: 150%"> <%=rs("content")%></FONT><br><br></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<TR>
<TD width=100% bgColor=#ffffff height="25"> <b>相关影片：</b></TD></TR>
<%
fid=rs("articleid")
if len(rs("title"))<=2 then
title1=rs("title")
else
title1=left(rs("title"),2)
end if
sql="select * from learning where title Like '%"& title1 &"%' and articleid <>"& fid &" order by articleid desc"
set rst=conn.execute(sql)
%>
<%
i=0
do while not rst.eof
i=i+1
%>
<TR>
<TD width=100% bgColor=#ffffff height="20">
<%=i%>. <a href="view.asp?id=<%=rst("articleid")%>" target="_blank"><%if rst("title")=rs("title") then%><font color="#ff0000"><%=rst("title")%></font> → 本片同名影片<%else%><%=rst("title")%><%end if%></a><BR></TD></TR>
<%
if i>=10 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="25"> <b>影片评论：</b></td>
</tr>
<tr>
<td width="100%"><%
sql="select * from film_review where fid="&request("id")&" order by id desc"
set rsf=server.createObject("ADODB.recordset")
rsf.open sql,connr,1,1
%>
<TABLE cellSpacing=0 cellPadding=4 width="92%" align=center border=0>
<TBODY>
<%if rsf.eof then%>
<TR>
<TD height=25 align=center>暂时没有任何评论！欢迎您积极发表。请文明用词，谢谢！</TD></TR>
<%else%>
<TR>
<TD height=25>本片共有评论 <FONT color=#ff0000><%=rsf.RecordCount%></FONT>
篇 本页显示 <FONT
color=#ff0000>5</FONT> 篇 <a onclick="window.open(this.href,'','location=no,menu=no,scrollbars=yes,resizable=no,top=0,left=0,width=630,height=510');return false;" href="review.asp?id=<%=request("id")%>&name=<%=rs("title")%>" target="_blank"><FONT color=#ff0000>查看所有会员评论</FONT></A></TD></TR></TBODY></TABLE>
<TABLE height=2 cellSpacing=0 cellPadding=0 width="92%" align=center background=images/txwm_line_1.gif border=0>
<TBODY>
<TR>
<TD height=2><IMG height=2
src="images/dot.gif"
width=10></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="92%" align=center border=0>
<TBODY>
<%i=0
do while not rsf.eof
i=i+1%>
<TR>
<TD width="4%" height=22>
<img border="0" src="images/TXWM_BOK.GIF"></TD>
<TD width="96%" height=22><FONT
color=#ff0000><%=rsf("penname")%></FONT><FONT color=#666666> 于
<%=rsf("addtime")%> 发表 评分：<%if rsf("vote")=1 then%>☆<%elseif rsf("vote")=2 then%>☆☆<%elseif rsf("vote")=3 then%>☆☆☆<%elseif rsf("vote")=4 then%>☆☆☆☆<%elseif rsf("vote")=5 then%>☆☆☆☆☆<%else%>未评分<%end if%></FONT></TD></TR>
<TR>
<TD colSpan=2>
<TABLE height=2 cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD height=2><IMG height=2 src="images/dot.gif" width=10></TD></TR></TBODY></TABLE></TD></TR>
<TR bgColor=#f7f7f7>
<TD width="100%" colSpan=2 height=22>
<TABLE cellSpacing=0 cellPadding=4 width="98%" align=center border=0>
<TBODY>
<TR>
<TD><%=rsf("review_text")%></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width="100%" colSpan=2>
<TABLE height=2 cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD height=2><IMG height=2
src="images/dot.gif"
width=10></TD></TR></TBODY></TABLE></TD></TR>
<%
if i>=5 then exit do
rsf.movenext
loop
%>
<%
end if
rsf.close
set rsf=nothing
connr.close
set connr=nothing '-------评论结束%>
<TR>
<TD colSpan=2>
<TABLE height=2 cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD height=2><IMG height=2
src="images/dot.gif"
width=10></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="87%" align=center border=0><img src= http://un.baidu.com/images/st.gif?tn=zhao width=0 height=0><img src= http://un.baidu.com/images/st.gif?tn=china width=0 height=0>
<%if request.cookies("userid")<>"" and request.cookies("password")<>"" and request.cookies("okerer")<>"" then%><FORM action=?n=1 method=post onSubmit="return check(this);"><%end if%>
<TBODY>
<TR>
<TD height=30><A name=review></A>您的昵称
<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=14 name=penname value="<%=request.cookies("userid")%>"> 我要打分<select size="1" name="vote">
<option value="0">不打分</option>
<option value="1">☆</option>
<option value="2">☆☆</option>
<option value="3">☆☆☆</option>
<option value="4" selected>☆☆☆☆</option>
<option value="5">☆☆☆☆☆</option>
</select> </TD></TR>
<TR>
<TD height=25>
<TEXTAREA name=review_text rows=4 cols=62><%if request.cookies("userid")<>"" and request.cookies("password")<>"" and request.cookies("okerer")<>"" then%><%else%>只有注册用户才能发表评论，请先登录或注册！<%end if%></TEXTAREA>
<INPUT type=hidden value=<%=rs("title")%> name=film_name>
<INPUT type=hidden value=<%=request("id")%> name=id> </TD></TR>
<TR>
<TD height=30>
<INPUT type=image height=18 width=42 src="images/go6.gif" size="20"> <IMG height=18 src="images/go7.gif" width=42> </TD></TR><%if request.cookies("userid")<>"" and request.cookies("password")<>"" and request.cookies("okerer")<>"" then%></FORM><%end if%>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" height=35><!--此处为预留广告位置--></td>
</tr>
</table>
</center>
</div>
</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>
<TD vAlign=top width="100%" height=30></TD></TR></TBODY></TABLE></TD>
<TD width=15 height=151> </TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
</table>
<!--#include file="bottom.asp"--></BODY></HTML>
<%
end if
conn.close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -