进来 - 站长资源库


答案：<%Option Explicit%>
<!--#include file="articleconn.asp"-->
<%
dim RS,sql,strSQL,zhuinew
dim url,id,ddd,dddd
id    = Request.QueryString("id")
filmid=request("filmid")
if Trim(id) <> "" and IsNumeric(id) then
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from url where id = " & id
RS.Open sql, Conn, 3, 3
url=rs("url")
ddd=rs("filmid")
RS.Close
Set RS = nothing
end if
strSQL ="SELECT * FROM film where id=" & ddd
Set zhuinew = Server.CreateObject("ADODB.Recordset")
zhuinew.open strSQL,Conn,3,3
zhuinew("hits")=zhuinew("hits")+1
filmtype=zhuinew("runsystem")
zhuinew.update
zhuinew.Close
Set zhuinew = nothing
Conn.Close
Set Conn = nothing
if filmtype<>"realplay" then
%>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<SCRIPT LANGUAGE=javascript>
<!--
function Change_Volume(Vol,MaxVolLoc,MinVolLoc)
{
    //计算播放器的音量
    var tVolume;
    tVolume=100-(Vol/(Math.abs(MaxVolLoc-MinVolLoc)+1))*100;
    VodPlayer.SetVolume(tVolume);
}

var strTitle="";
var ERR_NonePlayer="您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="对不起，未发现你要点播的文件。\n\n请更换其他影片！";
var ERR_NotLocateServer="无法定位Movie服务器。请更换其他影片！";
var ERR_UnkownError="在线用户过多，服务器限制，请抢线或稍后观看！";
var FirstPlay=true;
var StartPlay=true;
    
function Player_Play() {
    if (StartPlay)
    {
        VodPlayer.AutoStart=true;
    }
    else
    {
        VodPlayer.DoPlay();
    }
}

function Player_Stop() {
    VodPlayer.DoStop();
    VodPlayer.CurrentPosition=0;
}

function Player_Pause() {
    VodPlayer.DoPause();
}

function readystatechange() {
    switch (document.readyState)
    {
        case "complete":
            try
            {
                parent.frames["chromewinr"].SetPlayControlStatus(true);
                parent.frames["chromewinr"].SetStopControlStatus(false);
                parent.frames["chromewinr"].SetPauseControlStatus(false);
                parent.frames["chromewinr"].Enable_Control();
            }
            catch (e)
            {
            }
            break;
        deault:
            break;
    }
}

function Player_FullScreen() {
    VodPlayer.SetFullScreen(); 
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE=VBScript>
Sub VodPlayer_OnBuffering(lFlags,lPercentage)
    if (lPercentage=100) then
        StartPlay=false
        call parent.frames("chromewinr").PlayVod()
        if (FirstPlay) then
            FirstPlay=false
            call window.formHandle.submit()
        end if    
        exit sub
    end if
    call parent.frames("chromewinr").DisableVod()
End Sub

Sub VodPlayer_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString)
    select case VodPlayer.GetLastErrorRMACode()
        case -2147221496
            call parent.frames("chromewinr").DisableVod()
            window.alert(ERR_FileNotFind)
        case -2147221433,-2147221428,-2147221417,-2147217468
            call parent.frames("chromewinr").DisableVod()
            window.alert(ERR_NotLocateServer)
        case else
            call parent.frames("chromewinr").DisableVod()
            window.alert(ERR_UnkownError)
    end select
End Sub

Sub VodPlayer_OnPlayStateChange(lNewState)
    select case VodPlayer.GetPlayState()
        case 0:
            call parent.frames("chromewinr").StopVod()
        case 3:
            call parent.frames("chromewinr").PlayVod()
        case 4:
            call parent.frames("chromewinr").PauseVod()
    end select
End Sub
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function document_oncontextmenu() {
    event.returnValue=false; 
}

function document_ondragstart() {
    event.returnValue=false;
}

function document_onselectstart() {
    event.returnValue=false;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=oncontextmenu>
<!--
 document_oncontextmenu()
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=ondragstart>
<!--
 document_ondragstart()
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=onselectstart>
<!--
 document_onselectstart()
//-->
</SCRIPT>

</HEAD>
<BODY oncontextmenu="return false" onselectstart="return false" bgC
上一个：解读 M$ 源代码：javascript + CSS 实现层的平移及动态显示
下一个：解读 M$ 源代码：javascript + CSS 实现动态菜单显示
更多图片编程知识: