asp网页播放器

如题所述

第1个回答  2022-11-11
分类: 电脑/网络 >> 软件 >> 多媒体软件
问题描述:

请教在Asp网页中怎样编写一个播放器呢,让它可以放音乐也可以放电影呢?

解析:

这个是我现在用的ASP的播放代码不知道你可以用不~~

<!--#include file="conn"-->

<%

see=request("s")

id=request("id")

set rs=server.createobject("adodb.recordset")

sql="select * from movie where id="&id

rs.open sql,conn,1,1

select case see

case 1

real=rs("movie1")

case 2

real=rs("movie2")

case 3

real=rs("movie3")

case 4

real=rs("movie4")

case 5

real=rs("movie5")

case 6

real=rs("movie6")

case 7

real=rs("movie7")

case 8

real=rs("movie8")

case 9

real=rs("movie9")

case 10

real=rs("movie10")

case 11

real=rs("movie11")

case 12

real=rs("movie12")

case 13

real=rs("movie13")

case 14

real=rs("movie14")

case 15

real=rs("movie15")

case 16

real=rs("movie16")

case 17

real=rs("movie17")

case 18

real=rs("movie18")

case 19

real=rs("movie19")

case 20

real=rs("movie20")

case 21

real=rs("movie21")

case 22

real=rs("movie22")

case 23

real=rs("movie23")

case 24

real=rs("movie24")

case 25

real=rs("movie25")

case 26

real=rs("movie26")

case 27

real=rs("movie27")

case 28

real=rs("movie28")

case 29

real=rs("movie29")

case 30

real=rs("movie30")

case 31

real=rs("movie31")

case 32

real=rs("movie32")

case 33

real=rs("movie33")

case 34

real=rs("movie34")

case 35

real=rs("movie35")

case 36

real=rs("movie36")

case 37

real=rs("movie37")

case 38

real=rs("movie38")

case 39

real=rs("movie39")

case 40

real=rs("movie40")

case 41

real=rs("movie41")

case 42

real=rs("movie42")

case 43

real=rs("movie43")

case 44

real=rs("movie44")

case 45

real=rs("movie45")

case 46

real=rs("movie46")

case 47

real=rs("movie47")

case 48

real=rs("movie48")

case 49

real=rs("movie49")

end select

%>

<HTML><HEAD><TITLE>奇遇网络影院播放器</TITLE>

<META -equiv=Content-Type content="text/; charset=gb2312">

<SCRIPT>

加入页面保护

function rf()

{return false; }

document.oncontextmenu = rf

function keydown()

{if(event.ctrlKey ==true || event.keyCode ==93 || event.shiftKey ==true){return false;} }

document.onkeydown =keydown

function drag()

{return false;}

document.ondragstart=drag

function stopmouse(e) {

if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2))

return false;

else if

(navigator.appName == 'Microsoft Inter Explorer' && (event.button == 2 || event.button == 3)) {

alert("奇遇网络影院欢迎你观赏--谢谢! :)");

return false;

}

return true;

}

document.onmousedown=stopmouse;

if (documentyers)

window.captureEvents(Event.MOUSEDOWN);

window.onmousedown=stopmouse;

</SCRIPT>

</head>

<body marginwidth="0" leftmargin="0" topmargin="0" bgcolor="#000000">

<script language="JAVASCRIPT">

<!-- Begin

var ap_name = navigator.appName;

var ap_vinfo = navigator.appVersion;

var ap_ver = parseFloat(ap_vinfo.substring(0,ap_vinfo.indexOf('(')));

var time_start = new Date();

var clock_start = time_start.getTime();

var dl_ok=false;

function init ()

{

if(ap_name=="Netscape" && ap_ver>=3.0)

dl_ok=true;

return true;

}

function get_time_spent ()

{

var time_now = new Date();

return((time_now.getTime() - clock_start)/1000);

}

function show_secs ()

{

var i_total_secs = Math.round(get_time_spent());

var i_secs_spent = i_total_secs % 60;

var i_mins_spent = Math.round((i_total_secs-30)/60);

var s_secs_spent = "" + ((i_secs_spent>9) ? i_secs_spent : "0" + i_secs_spent);

var s_mins_spent = "" + ((i_mins_spent>9) ? i_mins_spent : "0" + i_mins_spent);

document.fm0.time_spent.value = s_mins_spent + ":" + s_secs_spent;

window.setTimeout('show_secs()',1000);

}

init();

window.setTimeout('show_secs()',1);

End -->

</script>

<div align=center>

<center>

<div align=center>

<center>

<table border=0 cellspacing="0" width=100% cellpadding="0">

<tr>

<td width=100%><% if rs("movietype")="rm" then%>

<table border=0 cellspacing="0" class="page_speeder_2042989096" width=460 id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0" align=center height=10>

<tr>

<td width=283 height=1 bgcolor="#E0E0E0">

<p align=center><font size="2">欢迎您观看: <%=rs("name")%> </font>

</td>

<form name=fm0 onSubmit="0">

<td width=42 height=1 bgcolor="#E0E0E0">

<input type=text name=time_spent size="5" onFocus="this.blur()" class="page_speeder_1319581808"></td>

</form>

<td width=52 height=1 bgcolor="#E0E0E0">

<input type=button onclick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()" name value="全屏播放" class="page_speeder_39939263">

</tr>

</table>

<p align=center> <object id="player" name=player classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width=458 height=300>

<param name=AUTOSTART value="-1">

<param name=SRC value="<%=real%>">

<param name=CONTROLS value="Imagewindow">

<param name=CONSOLE value="clip1">

</object> <br>

<object ID="RP2" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH="460" HEIGHT="60">

<param name=AUTOSTART value="-1">

<param name=SRC value="<%=real%>">

<PARAM NAME=CONTROLS VALUE=ControlPanel,StatusBar>

<param name=CONSOLE value="clip1">

</object>

<%elseif rs("movietype")="mms" then %>

<table border=0 cellspacing="0" class="page_speeder_2042989096" width=460 id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0" align=center height=10>

<tr>

<td width=303 height=1 bgcolor="#E0E0E0">

<p align=center><font size="2">欢迎您观看: <%=rs("name")%> </font>

</td>

<form name=fm0 onSubmit="0">

<td width=42 height=1 bgcolor="#E0E0E0">

<input type=text name=time_spent size="5" onFocus="this.blur()" class="page_speeder_1319581808"></td>

</form>

</tr>

</table>

<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" height=378 id="MediaPlayer1" width=460>

<param name=AutoStart value="-1">

<param name=ShowStatusBar value="-1">

<param name=Filename value="<%=real%>">

</object>

<%elseif rs("movietype")="" then %>

<table border=0 cellpadding="0" cellspacing="0" width=460 height=400>

<tr><td width=460 height=400><p align=center>

<iframe width=460 height=400 noresize target="main" border=0 frameborder="0" scrolling="no" framespacing="0" src=<%=real%> name=mov></iframe></td>

</tr>

</table>

<%end if%> </td>

</tr>

</table>

</center>

</div>

</body>

</>

<%

rs.close

set rs=nothing

conn.close

set conn=nothing

%>
相似回答