📄 seefilm.asp

📁 顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
            onmousedown="return ImagePlay_onmousedown()" id=ImagePlay 
            onmouseover="return ImagePlay_onmouseover()" style="CURSOR: hand" 
            onclick="return ImagePlay_onclick()" 
            onmouseout="return ImagePlay_onmouseout()" height=21 alt=播放 
            src="images/kc-02.gif" width=34 
            border=0><IMG language=javascript 
            onmouseup="return ImagePause_onmouseup()" 
            onmousedown="return ImagePause_onmousedown()" id=ImagePause 
            onmouseover="return ImagePause_onmouseover()" style="CURSOR: hand" 
            onclick="return ImagePause_onclick()" 
            onmouseout="return ImagePause_onmouseout()" height=21 alt=暂停 
            src="images/ct-02.gif" width=34 
            border=0><IMG language=javascript 
            onmouseup="return ImageStop_onmouseup()" 
            onmousedown="return ImageStop_onmousedown()" id=ImageStop 
            onmouseover="return ImageStop_onmouseover()" style="CURSOR: hand" 
            onclick="return ImageStop_onclick()" 
            onmouseout="return ImageStop_onmouseout()" height=21 alt=停止 
            src="images/tz-02.gif" width=34 
            border=0><IMG language=javascript 
            onmouseup="return ImageMute_onmouseup()" 
            onmousedown="return ImageMute_onmousedown()" id=ImageMute 
            style="CURSOR: hand" height=21 alt=打开声音/禁止声音 
            src="images/sy-02.gif" width=34 
            border=0><IMG language=javascript id=ImageFullScreen 
            onmouseover="return ImageFullScreen_onmouseover()" 
            style="CURSOR: hand" onclick=javascript:RP2.SetFullScreen(); 
            onmouseout="return ImageFullScreen_onmouseout()" height=21 
            alt=全屏播放,按ESC键返回小屏幕！ 
            src="images/qp-02.gif" width=34 
            border=0> <OBJECT id=PositionSlider height=21 width=222 border=0 
            classid=clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
                  <PARAM NAME="_ExtentX" VALUE="5874">
                  <PARAM NAME="MAINTAINASPECT" VALUE="0">
                  <PARAM NAME="LOOP" VALUE="0">
                  <PARAM NAME="NUMLOOP" VALUE="0">
                  <PARAM NAME="CENTER" VALUE="0">
                  <PARAM NAME="_ExtentY" VALUE="556">
                  <PARAM NAME="AUTOSTART" VALUE="0">
                  <PARAM NAME="SHUFFLE" VALUE="0">
                  <PARAM NAME="PREFETCH" VALUE="0">
                  <PARAM NAME="NOLABELS" VALUE="0">
                  <PARAM NAME="CONTROLS" VALUE="PositionSlider">
                  <PARAM NAME="CONSOLE" VALUE="MPlayer">
                  <PARAM NAME="BACKGROUNDCOLOR" VALUE="#000000">
                </OBJECT>
                <BR> <OBJECT id=StatusField height=30 width=250 border=0 
            classid=clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
                  <PARAM NAME="AUTOSTART" VALUE="0">
                  <PARAM NAME="SHUFFLE" VALUE="0">
                  <PARAM NAME="PREFETCH" VALUE="0">
                  <PARAM NAME="NOLABELS" VALUE="0">
                  <PARAM NAME="CONTROLS" VALUE="StatusField">
                  <PARAM NAME="CONSOLE" VALUE="MPlayer">
                  <PARAM NAME="MAINTAINASPECT" VALUE="0">
                  <PARAM NAME="BACKGROUNDCOLOR" VALUE="#000000">
                  <PARAM NAME="_ExtentX" VALUE="6615">
                  <PARAM NAME="_ExtentY" VALUE="794">
                  <PARAM NAME="LOOP" VALUE="0">
                  <PARAM NAME="NUMLOOP" VALUE="0">
                  <PARAM NAME="CENTER" VALUE="0">
                </OBJECT> <OBJECT id=PositionField height=30 width=142 border=0 
            classid=clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
                  <PARAM NAME="AUTOSTART" VALUE="0">
                  <PARAM NAME="SHUFFLE" VALUE="0">
                  <PARAM NAME="PREFETCH" VALUE="0">
                  <PARAM NAME="NOLABELS" VALUE="0">
                  <PARAM NAME="CONTROLS" VALUE="PositionField">
                  <PARAM NAME="CONSOLE" VALUE="MPlayer">
                  <PARAM NAME="MAINTAINASPECT" VALUE="0">
                  <PARAM NAME="BACKGROUNDCOLOR" VALUE="#000000">
                  <PARAM NAME="_ExtentX" VALUE="3757">
                  <PARAM NAME="_ExtentY" VALUE="794">
                  <PARAM NAME="LOOP" VALUE="0">
                  <PARAM NAME="NUMLOOP" VALUE="0">
                  <PARAM NAME="CENTER" VALUE="0">
                </OBJECT></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD vAlign=top width=12 bgColor=#666699 rowSpan=4><IMG height=329 
      src="images/tvset_07.gif" 
  width=12></TD>
    </TR>
    <TR> 
      <TD width=223 bgColor=#FFFFCC height=235> <SCRIPT language=JavaScript>       
var version = "other"     
browserName = navigator.appName;        
browserVer = parseInt(navigator.appVersion);     
     
if (browserName == "Netscape" && browserVer >= 3) version = "n3";     
else if (browserName == "Netscape" && browserVer < 3) version = "n2";     
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";     
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";     
     
     
function marquee1()     
{     
	if (version == "e4")     
	{     
		document.write("<marquee behavior=scroll direction=up width=220 height=230 scrollamount=2 scrolldelay=100 onmouseover='this.stop()' onmouseout='this.start()'>")     
	}     
}     
     
function marquee2()     
{     
	if (version == "e4")     
	{     
		document.write("</marquee>")     
	}     
}        
</SCRIPT> </TD>
      <TD vAlign=bottom width=21 bgColor=#FFFFCC height=224><IMG height=21 
      src="images/tvset_11.gif" 
  width=22></TD>
    </TR>
    <TR> 
      <TD vAlign=bottom width=244 colSpan=2 height=7><IMG height=7 
      src="images/tvset_13.gif" 
  width=244></TD>
    </TR>
    <TR> 
      <TD vAlign=center width=294 bgColor=#666699 colSpan=4 height=62> <table cellspacing=0 cellpadding=0 width=267 border=0>
          <tbody>
            <tr> 
              <td width=161><img height=62 
            src="images/tvset_14.gif" 
            width=139></td>
              <td width=106> <font color=#cccccc>『 </font><a title=刷新本页 
            href="javascript:location.reload();"><font 
            color=#cccccc>刷新本页面</font></a><font color=#cccccc> 』</font><br> <font color=#cccccc>『</font> 
                <div id="Layer1" style="position:absolute;Margin-top:0px; width:99px; height:310px; z-index:top; left: 71px; bottom: 10px; visibility: hidden; top: 4px;" onMouseOver="MM_showHideLayers('Layer1','','show')" onMouseOut="MM_showHideLayers('Layer1','','hide')"> 
                  <table width="100%" height="310px" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td valign="bottom"> 
                        <table width="100%" border="1" cellpadding="0" bgcolor="#666699" cellspacing="0" bordercolor="#0099FF" bordercolordark="#FFFFFF">
                    <%if not (filmRS3.bof and filmRS3.eof) then
		 for i=trim(filmRS3("FilmStart")) to trim(filmRS3("Filmcount"))
		  if i<10 then
		   if (k mod 2)<>0 then
			dizhi="<tr align='center'><a href=""seefilm.asp?id="&filmID&"&grade="&filmGrade&"&filmURL='"&typeUrl&trim(filmRS3("filmFile"))&""
		    dizhi=dizhi&trim(filmRS3("FilmName"))&i&trim(filmRS3("FilmExtent"))&"'"" target=_self><td class=small onmouseover=""mover_hand(this,'#3366ff')"" onmouseout=""mout(this,'#666699')"">第0"&i&"集</td></a>"
		   else
			dizhi="<a href=""seefilm.asp?id="&filmID&"&grade="&filmGrade&"&filmURL='"&typeUrl&trim(filmRS3("filmFile"))&""
		    dizhi=dizhi&trim(filmRS3("FilmName"))&i&trim(filmRS3("FilmExtent"))&"'"" target=_self><td class=small onmouseover=""mover_hand(this,'#3366ff')"" onmouseout=""mout(this,'#666699')"">第0"&i&"集</td></a></tr>"
           end if
		  else
		   if (k mod 2)<>0 then
			dizhi="<tr align='center'><a href=""seefilm.asp?id="&filmID&"&grade="&filmGrade&"&filmURL='"&typeUrl&trim(filmRS3("filmFile"))&""
		    dizhi=dizhi&trim(filmRS3("FilmName"))&i&trim(filmRS3("FilmExtent"))&"'"" target=_self><td class='small' onmouseover=""mover_hand(this,'#3366ff')"" onmouseout=""mout(this,'#666699')"">第"&i&"集</td></a>"
		   else
			dizhi="<a href=""seefilm.asp?id="&filmID&"&grade="&filmGrade&"&filmURL='"&typeUrl&trim(filmRS3("filmFile"))&""
		    dizhi=dizhi&trim(filmRS3("FilmName"))&i&trim(filmRS3("FilmExtent"))&"'"" target=_self><td class='small' onmouseover=""mover_hand(this,'#3366ff')"" onmouseout=""mout(this,'#666699')"">第"&i&"集</td></a></tr>"
           end if
		  end if
		  response.Write(dizhi)
		  if ((k mod 2) <>0) and k=filmRS3("Filmcount") then response.Write("</tr>")
		  k=k+1
		 next
		else 
		  response.Write("对不起，数据库出错或暂时没影片！")
		end if %>
                  </table>
				</td>
                </tr>
               </table>
              </div>
                <a 
            href="###" name="link3" title=影片的集数 id="link1" onMouseOver="MM_showHideLayers('Layer1','','show')" onClick="MM_showHideLayers('Layer1','','hide')"><font 
            color=#cccccc>影片的列表</font></a> <font color=#cccccc>』</font></td>
            </tr>
          </tbody>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>
<%
 '将该影片存入该用户观看列表   
dim payRS1,userdRS
set payRS1= server.createobject("adodb.recordset")
set userdRS= server.createobject("adodb.recordset")
payRS1.open "select pricepoit,usedPoit,paymethod,id,Regtime from user where UserName='"&session("username")&"'",conn,1,3
userdRS.open "select * from useDeteil where filmID="&seeRS("id")&" and userID="&payRS1("id"),conn,1,3
 if payRS1("paymethod")<>1 and userdRS.eof then
	 if payRS1("pricepoit")<seeRS("filmprice") then
		filmRS3.close
		set filmRS3=nothing
		payRS1.close
		set payRS1=nothing
		seeRS.close
		set seeRS=nothing
		set conn=nothing
		response.Redirect("nomoney.asp")
		response.End()
	 end if
    payRS1("usedPoit")=payRS1("usedPoit")+seeRS("filmprice")
	payRS1("pricepoit")=payRS1("pricepoit")-seeRS("filmprice")
	payRS1.update
	userdRS.addnew
	userdRS("userID")=payRS1("id")
	userdRS("filmID")=seeRS("id")
	userdRS("filmName")=seeRS("title")
    userdRS("filmPrice")=seeRS("filmprice")
	userdRS.update
  elseif payRS1("paymethod")=1 and userdRS.eof then
	 if payRS1("Regtime")<now() then
		filmRS3.close
		set filmRS3=nothing
		payRS1.close
		set payRS1=nothing
		seeRS.close
		set seeRS=nothing
		set conn=nothing
		response.Redirect("nomoney.asp")
		response.End()
	  end if
	userdRS.addnew
	userdRS("userID")=payRS1("id")
	userdRS("filmID")=seeRS("id")
	userdRS("filmName")=seeRS("title")
    userdRS("filmPrice")=seeRS("filmprice")
	userdRS.update
 end if

'关闭数据库连接
userdRS.close
set userdRS=nothing
filmRS3.close
set filmRS3=nothing
payRS1.close
set payRS1=nothing
seeRS.close
set seeRS=nothing
set conn=nothing
else 
response.Write("<script language='javascript'>alert('对不起，数据出错！！');window.close;</script>")
end if
%>
上一页 12
⌨️ 快捷键说明

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