📄 movie_view.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!-- #include file="inc/conn.asp" -->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/func.asp"-->
<!-- #include file="inc_shop/config_movie.asp" -->
<!-- #include file="inc_shop/jk_ubb.asp" -->
<!-- #include file="inc_shop/config_review.asp" -->
<%
dim id:id=trim(request.querystring("id"))
if not(isnumeric(id)) then
call format_redirect("movie.asp")
reponse.end
end if
dim strChannel,sqlChannel,rsChannel,ChannelUrl,ChannelName
dim strFileName,MaxPerPage,totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime,founderr, errmsg
dim PageTitle,strPath,strPageTitle
dim SkinID,ClassID,AnnounceCount
dim UserGuestName,UserType,UserSex,UserEmail,UserHomepage,UserOicq,UserIcq,UserMsn
dim WriteName,WriteType,WriteSex,WriteEmail,WriteOicq,WriteIcq,WriteMsn,WriteHomepage
dim WriteFace,WriteImages,WriteTitle,WriteContent,SaveEdit,SaveEditId
dim GuestType,LoginName,AdminReplyContent
dim SubmitType,GuestPath,TitleName,keyword
dim cname,sname,temp1,drs,oos,keyes,power,emoney,url1,url2 '--JK
const ChannelID=9
Const ShowRunTime="Yes"
SkinID=0
strPath= " 您现在的位置： <a href='" & SiteUrl & "'>" & SiteName & "</a>"
strPageTitle= SiteTitle
BeginTime=Timer
ClassID=0
set rs=server.createobject("ADODB.recordset")
sql="select product_class.c_name,product_sort.s_name,movie.* " & _
"from product_class,product_sort,movie where product_class.c_id=movie.c_id and product_sort.s_id=movie.s_id and movie.id="&id&" and movie.hidden"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close:set rs=nothing
call closeconn()
call format_redirect("movie.asp")
response.end
end if
cid=rs("c_id")
sid=rs("s_id")
cname=rs("c_name")
sname=rs("s_name")
keyes=rs("keyes")
power=rs("power")
emoney=rs("emoney")
oos=rs("os")
pagetitle=pagetitle & cname&"（"&sname&"）"
'--------------------------------download---------------------------------
if action="download" then
call emoney_notes(power,emoney,n_sort,id,"js",1,1,"?id="&id)
if trim(request.querystring("url"))="download2" then
index_url=rs("url2")
else
index_url=rs("url")
end if
rs.close:set rs=nothing
sql="update movie set counter=counter+1 where id="&id
conn.execute(sql)
call close_conn()
response.redirect ""&url_true(web_var(web_down,5),index_url)&""
response.end
end if
%>
<html>
<head>
<title><%=strPageTitle & " >> " & PageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="top.asp"-->
<%
dim play
'os=rs("os")
if oos="RM" then
play="playrm.asp"
elseif oos="swf" then
play="playflash.asp"
else
play="playwin.asp"
end if
%>
<script language="JavaScript">
function windowOpen(play)
{controlWindow=window.open(play,"survey","toolbar=no,location=no,directories=no,menubar=no,scrollbars=no,top=5,left=180,width=423,height=400,status=no,resizable=no");
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="188" align="left" valign="top" class="tdbg_leftall">
<%
call movie_new_hot("","","","","good",10,0,13,1,0)
call movie_new_hot("","","","","hot",10,0,13,1,0)
call movie_new_hot("","","","","new",10,0,13,1,0)
%>
</td>
<td width="590" valign="top"><table border=0 width='100%' cellspacing=0 cellpadding=0 align=center>
<tr>
<td align=center>
<table width='100%' border=0 cellpadding=2 cellspacing=0>
<tr bgcolor=<%response.write web_var(web_color,5)%> bordercolordark=<%=web_var(web_color,5)%>>
<td height="22" colspan=3 align=center class=title_main><b><%=rs("name")%></b></td>
</tr>
<tr>
<td colspan=3 bgcolor=#000000></td>
</tr>
<tr>
<td colspan=3 height=7></td>
</tr>
<tr>
<td width="14%" nowrap> 影片产地： </td>
<td width="24%" nowrap><%=rs("genre")%></td>
<td width="62%" rowspan="9" align=right valign="top"><a href="<%=web_var(web_upload,1)&rs("pic") %>" target="_blank"><img src='<%=web_var(web_upload,1)&rs("pic") %>' alt='点击查看原图' height="178" hspace="7" border=0></a></td>
</tr>
<tr>
<td nowrap> 播放格式：</td>
<td nowrap><%=rs("os")%></td>
</tr>
<tr>
<td nowrap> 影片长度：</td>
<td nowrap><%=rs("sizes")%></td>
</tr>
<tr>
<td nowrap> 推荐等级：</td>
<td nowrap><img src='images/down/star<%=rs("types")%>.gif' border=0></td>
</tr>
<tr>
<td nowrap> 观看次数：</td>
<td nowrap><font class=red><%=rs("counter")%></font></td>
</tr>
<tr>
<td nowrap> 发 布 人：</td>
<td nowrap><%=rs("username")%></td>
</tr>
<tr>
<td nowrap> 作者\演员：
</td>
<td nowrap><% temp1=rs("homepage")
if temp1="" or isnull(temp1) or temp1="http://" then
response.write ""&web_var(web_config,2)&""
else
response.write ""&temp1&""
end if %></td>
</tr>
<tr>
<td nowrap> 发布日期：</td>
<td nowrap class="666666"><%=time_type(rs("tim"),88)%></td>
</tr>
<tr>
<td nowrap> 观看地址：</td>
<td nowrap><% call power_chk() %></td>
</tr>
<tr>
<td valign="top" nowrap> 影片介绍： </td>
<td colspan="2" class="666666"><%
temp1=rs("remark")
if len(temp1)<3 then
temp1="<font class=gray>暂时没有关于该影片的介绍！</font>"
else
temp1=code_jk(temp1)
end if
response.write temp1
rs.close
%></td>
</tr>
<tr>
<td colspan="3" nowrap></td>
</tr>
</table>
<table border=0 width='100%' cellspacing=0 cellpadding=0 align=center>
<tr>
<td><%call movie_class_sort(0,0)%></td>
</tr>
</table></td>
</tr>
<tr>
<td align=center><% call review_type(n_sort,id,"movie_view.asp?id="&id,1) %></td>
</tr>
<tr>
<td height=5></td>
</tr>
</table></td>
</tr>
</table>
<% call Bottom() %>
</body>
</html>
<script>
mtDropDown.initialize();
</script>
<%
call CloseConn()
sub power_chk()
dim movie_id
movie_id = rs("id")
%>
<a href=# onclick=windowOpen('<%=play%>?action=download&id=<%=movie_id%>') ><img src='images/videoload.gif' border=0></a>
<% if len(rs("url2"))>8 then %><a href=# onclick=windowOpen('<%=play%>?action=download&url=download2&id=<%=movie_id%>')><img src='images/videoload1.gif' border=0 alt="镜像下载，控制面板无效！"></a>
<%end if %>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -