📄 playrm.asp

📁 该软件是帮助大学生更好的生活
💻 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 + -