📄 playrm.asp
字号:
<!--#include file="inc/conn.asp"-->
<!-- #include file="inc_shop/config_movie.asp" -->
<%
dim id:id=trim(request.querystring("id"))
if not(isnumeric(id)) then
call format_redirect("movie.asp")
reponse.end
end if
dim cname,sname,temp1,drs,oos,keyes,power,userp,emoney,url1,url2
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,3
if rs.eof and rs.bof then
rs.close:set rs=nothing
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")
rs("counter")=rs("counter")+1
rs.update
tit=cname&"("&sname&")"
'call pay_movie(emoney,1)
if trim(request.querystring("url"))="download2" then
index_url=rs("url2")
else
index_url=rs("url")
end if
%>
<HTML><HEAD><TITLE><%= "大学之门 -《" & rs("name") & "》"%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgColor=#000000 leftMargin=0 topMargin=0 oncontextmenu="return false">
<TABLE cellSpacing=0 cellPadding=0 width=423 border=0>
<TBODY>
<TR align="center">
<TD colspan="4"><object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" id="video2" width="423" height="342">
<param name="CONTROLS" value="ImageWindow">
<param name="CONSOLE" value="Video">
<param name="CENTER" value="TRUE">
<param name="MAINTAINSPECT" value="TRUE">
</object> <!-- 定义播放界面 -->
<object width="424" height="30" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
<param name="CONTROLS" value="StatusBar">
<param name="CONSOLE" value="Video">
</object> <!-- 定义状态栏 -->
<object width="424" height="30" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
<param name="CONTROLS" value="ControlPanel">
<param name="CONSOLE" value="Video">
<param name="SRC" value="<%=index_url%>">
<param name="AUTOSTART" value="TRUE">
<param name="PREFETCH" value="0">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
</object> <!-- 定义控制面板 -->
</TD>
</TR>
</TBODY>
</TABLE>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -