📄 seefilm.asp

📁 顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="HMconnection.asp"-->
<!--#include file="ImageFile.asp"-->
<!--#include file="zhihuan.asp"--> 
<%
 Sub chkLevel(filmGrade)
   if session("username")="" or session("grade")="" or session("grade")<filmGrade then
     response.Write("<script language='javascript'>alert('对不起，您没有登陆或没有权利观看此片！！');window.close();</script>")
     response.End
   end if
 end Sub
	Dim seeRS,seeSQL,filmGrade,filmID
	filmGrade=cint(trim(request.QueryString("grade")))
	filmID=trim(request.QueryString("id"))
	chkLevel (filmGrade)
	set seeRS=server.createobject("adodb.recordset")
	seeSQL="select * from film where id="&filmID
	seeRS.open seeSQL,conn,1,3
	if not seeRS.EOF then
	filmGrade=trim(seeRS("grade"))
	seeRS("hits")=seeRS("hits")+1
	seeRS("monthhits")=seeRS("monthhits")+1
	seeRS("weekhits")=seeRS("weekhits")+1
	seeRS.update
select case filmGrade
case 0
msg="所有人(免费)"
case 1
msg="本站会员"
case 2
msg="VIP会员"
end select

Dim typeRS1,filmtype,typeUrl
set typeRS1=server.createobject("adodb.recordset")
typeRS1.open "select * from Type where typeid="&trim(seeRS("typeid")),conn,1,1
filmtype=trim(typeRS1("type"))
typeUrl=trim(typeRS1("WebSite2"))
typeRS1.close
set typeRS1=nothing 
%>
<HTML>
<HEAD>
<TITLE>顶级影视--在线播放</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="http://127.0.0.1/newmovie/images/CNFNOT.ICO" rel="shortcut icon">
<LINK 
href="style/style.css" rel=stylesheet type=text/css>
<style>
.small {
	FONT-SIZE: 10px; LINE-HEIGHT: 12px;
}

</style>
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--

function PlayInRealOne() {
	RP2.DoStop();
}

function ImagePlay_onclick() {
	RP2.DoPlay();
}

function ImagePlay_onmouseover() {
	ImagePlay.src = "Images/kc-01.gif";
}

function ImagePlay_onmousedown() {
	ImagePlay.src = "Images/kc-01.gif";
}

function ImagePlay_onmouseup() {
	ImagePlay.src = "Images/kc-02.gif";
}
function ImagePlay_onmouseout() {
	ImagePlay.src = "Images/kc-02.gif";
}

function ImageStop_onclick() {
	RP2.DoStop();
}

function ImageStop_onmouseover() {
	ImageStop.src = "Images/tz-01.gif";
}

function ImageStop_onmousedown() {
	ImageStop.src = "Images/tz-01.gif";
}

function ImageStop_onmouseup() {
	ImageStop.src = "Images/tz-02.gif";
}

function ImageStop_onmouseout() {
	ImageStop.src = "Images/tz-02.gif";
}

function ImagePause_onclick() {
	RP2.DoPause();
}

function ImagePause_onmouseover() {
	ImagePause.src = "Images/ct-01.gif";
}

function ImagePause_onmousedown() {
	ImagePause.src = "Images/ct-01.gif";
}

function ImagePause_onmouseup() {
	ImagePause.src = "Images/ct-02.gif";
}
function ImagePause_onmouseout() {
	ImagePause.src = "Images/ct-02.gif";
}

function ImageMute_onmousedown() {
	RP2.SetMute( !RP2.GetMute() );
}

function ImageMute_onmouseup() {
	if( RP2.GetMute() )
		ImageMute.src = "Images/sy-01.gif";
	else
		ImageMute.src = "Images/sy-02.gif";
}
function ImageFullScreen_onmouseout() {
	ImageFullScreen.src = "Images/qp-02.gif";
}
function ImageFullScreen_onmouseover() {
	ImageFullScreen.src = "Images/qp-01.gif";
}

//-->
</SCRIPT>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

	function mover(src,color){src.style.backgroundColor=color}
	function mout(src,color){src.style.backgroundColor=color}
	function mover_hand(src,color){src.style.backgroundColor=color;src.style.cursor='hand'}
//-->
</script>
</HEAD>
<BODY bgColor=#fde8c9 leftMargin=0 topMargin=0 onLoad="window.focus()">
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=329 
cellSpacing=0 cellPadding=0 width=700 border=0>
  <TBODY>
    <TR> 
      <TD width=20 height=271 rowSpan=3><IMG height=271 
      src="images/tvset_01.gif" width=20></TD>
      <TD vAlign=top width=223 height=15><IMG height=15 
      src="images/tvset_03.gif" 
      width=103><IMG height=15 
      src="images/tvset_02.gif" width=119></TD>
      <TD vAlign=top width=21 height=15><IMG height=15 
      src="images/tvset_04.gif" width=22></TD>
      <TD width=30 rowSpan=3><IMG height=271 
      src="images/tvset_05.gif" width=30></TD>
      <TD vAlign=top width=394 height=77 rowSpan=4> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=333 
      cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD width="100%" height=15><IMG height=15 
            src="images/tvset_06.gif" 
            width=394></TD>
            </TR>
            <TR> 
              <TD align=middle width="100%" bgColor=#111111 height=244> 
                <%Dim filmRS3,i,dizhi,k,filmURL
       set filmRS3=server.createobject("adodb.recordset")
        filmRS3.open "select * from fimlURL where filmid="&filmID,conn,1,1
		k=1%>
			  <OBJECT name="filmsee" id=RP2 style="LEFT: 0px; TOP: 0px" height=244 width=392 
            classid=clsid:<%if filmRS3("FilmExtent")=".wmv" or filmRS3("FilmExtent")=".wma" then
			  response.Write("22D6f312-B0F6-11D0-94AB-0080C74C7E95")
			else
			  response.Write("cfcdaa03-8be4-11cf-b84b-0020afbbccfa")
			end if%>>
                  <PARAM NAME="_ExtentX" VALUE="10372">
                  <PARAM NAME="_ExtentY" VALUE="6456">
                  <PARAM NAME="AUTOSTART" VALUE="-1">
                  <PARAM NAME="SRC" VALUE="<%if request.QueryString("filmURL")<>"" then
				    filmURL=request.QueryString("filmURL")
				  else
                    filmURL=typeUrl&trim(filmRS3("filmFile"))&""
		            filmURL=filmURL&trim(filmRS3("FilmName"))&trim(filmRS3("FilmStart"))&trim(filmRS3("FilmExtent"))
				  end if
		          if trim(filmRS3("FilmExtent"))=".wmv" then 
				    filmURL=replace(filmURL,"rtsp://","http://")
				    filmURL=replace(filmURL,":554/",":8080/")
				  end if
				  filmURL=replace(filmURL,"'","")
				  response.Write(filmURL)
				  %>">
                  <PARAM NAME="SHUFFLE" VALUE="0">
                  <PARAM NAME="PREFETCH" VALUE="0">
                  <PARAM NAME="NOLABELS" VALUE="0">
                  <PARAM NAME="CONTROLS" VALUE="IMAGEWINDOW">
                  <PARAM NAME="CONSOLE" VALUE="MPlayer">
                  <PARAM NAME="LOOP" VALUE="0">
                  <PARAM NAME="NUMLOOP" VALUE="0">
                  <PARAM NAME="CENTER" VALUE="0">
                  <PARAM NAME="MAINTAINASPECT" VALUE="0">
                  <PARAM NAME="BACKGROUNDCOLOR" VALUE="#000000">
                </OBJECT></TD>
            </TR>
            <TR> 
              <TD width="100%" height=12><IMG height=12 
            src="images/tvset_12.gif" 
            width=394></TD>
            </TR>
            <TR> 
              <TD width="100%" bgColor=#666699 height=62><IMG language=javascript 
            onmouseup="return ImagePlay_onmouseup()"
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -