open.asp

网吧影印系统！很详细！可直接使用！请大家指点！

					</TD>
				</TR>
				<TR>
					<TD background="../image/player_01.gif"><IMG SRC="images/Spacer.gif" WIDTH="7" HEIGHT="1" id="left002"></TD>
					<TD><IMG SRC="../image/1pix.gif" WIDTH="200" HEIGHT="1" id="temp002"></TD>
					<TD background="../image/player_02.gif" style="background-position:right;"><IMG SRC="images/Spacer.gif" WIDTH="6" HEIGHT="1" id="right002"></TD>
				</TR>
				<TR>
					<TD background="../image/player_01.gif" width="7" HEIGHT="99%" id="left001"></TD>
					<TD width="99%">
					    <DIV id="Image1" style="HEIGHT: 93%; POSITION: absolute; TOP: 21pix; Left: 8pix; VISIBILITY:  visible; WIDTH: 100%; Z-INDEX: 2;">
							<img src="../image/loading.gif" border=0 width=100% height=100% >
						</DIV>
						<DIV id="MP1" style="HEIGHT: 100%; POSITION: relative; TOP: 0px; VISIBILITY: visible; WIDTH: 100%; Z-INDEX: 1;">
							<object id="mPlayer" width="100%" height="100%" type="application/x-oleobject" CLASSID="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95" CodeBase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" Standby="加载 Microsoft Windows Media Player 组件..." VIEWASTEXT>
								<PARAM NAME="FILENAME" value="govodurl.asp?urlid=<%=urlid%>&amp;serverip=<%=serverip%>">
								<PARAM NAME="ShowControls" VALUE="false">
								<PARAM NAME="AutoStart" VALUE="true">
								<PARAM NAME="Enabled" VALUE="true">
								<PARAM NAME="EnableContextMenu" VALUE="false">
								<PARAM NAME="ClickToPlay" VALUE="false">
								<PARAM NAME="stretchToFit" VALUE="1">
								<PARAM NAME="ShowStatusBar" VALUE="True">
								<PARAM NAME="AllowChangeDisplaySize" VALUE="true">
								<PARAM NAME="Volume" VALUE="0">
								<PARAM NAME="SendOpenStateChangeEvents" VALUE="True">
								<PARAM NAME="SendPlayStateChangeEvents" VALUE="True">
								<PARAM NAME="AnimationAtStart" VALUE="false">
								<PARAM NAME="Balance" VALUE="-600">
								<PARAM NAME="BaseURL" VALUE="">
								<PARAM NAME="CaptioningID" VALUE="">
								<PARAM NAME="CursorType" VALUE="32512">
								<PARAM NAME="CurrentMarker" VALUE="0">
								<PARAM NAME="DefaultFrame" VALUE="">
								<PARAM NAME="DisplayMode" VALUE="1">
								<PARAM NAME="DisplaySize" VALUE="4">
								<PARAM NAME="EnableFullScreenControls" VALUE="0">
								<PARAM NAME="InvokeURLs" VALUE="-1">
								<PARAM NAME="PreviewMode" VALUE="0">
								<PARAM NAME="Rate" VALUE="1">
								<PARAM NAME="SAMILang" VALUE="">
								<PARAM NAME="SAMIStyle" VALUE="">
								<PARAM NAME="SAMIFileName" VALUE="">
								<PARAM NAME="ShowDisplay" VALUE="0">
								<PARAM NAME="TransparentAtStart" VALUE="1">
								<PARAM NAME="VideoBorderWidth" VALUE="0">
								<PARAM NAME="VideoBorderColor" VALUE="0">
								<PARAM NAME="VideoBorder3D" VALUE="0">
								<PARAM NAME="WindowlessVideo" VALUE="0">
							</object>
						</DIV>
					</TD>
					<TD background="../image/player_02.gif" style="background-position:right;" width="6" HEIGHT="99%" id="right001"></TD>
				</TR>
				<tr>
					<td colspan="3">
						<table id="scroll01" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
							<tr>
								<td background="../image/scroll_02.gif" width="3%">
									<img border="0" src="../image/scroll_01.gif" width="3" height="15"></td>
								<td background="../image/scroll_02.gif" width="2%" align="right">
									<img border="0" src="../image/scroll_03.gif" width="2" height="15"></td>
								<td background="../image/scroll_04.gif" width="70%">
									<DIV onmouseup="Total_Up()" onmousemove="scrollPositionMouseMove(this, event)" onmouseout="scrollPositionMouseOut()" onmousedown="ChangePos()" id="movie" style="CURSOR: hand; POSITION: relative; TOP: 1px; LEFT: 0px; WIDTH: 100%; HEIGHT: 8px"><DIV id="mblock" style="LEFT: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 8px"><IMG alt="播放进度" src="../image/scroll_07.gif" width="20" height="8" border="0"></DIV>
										<DIV id="scrollInfo" style="BORDER: orange 1px ridge; FONT-SIZE: 9px; VISIBILITY: hidden; BACKGROUND: #c0c0c0; POSITION: absolute; zIndex: 9">00:00</DIV>
									</DIV>
								</td>
								<td background="../image/scroll_02.gif" width="10%">
									<img border="0" src="../image/scroll_05.gif" width="2" height="15"></td>
								<td align="center" background="../image/scroll_02.gif" width="9%">
									<img border="0" src="../image/scroll_08.gif" width="2" height="14"><img border="0" src="../image/1pix.gif" width="1" height="1"><img border="0" src="../image/scroll_09.gif" width="7" height="15" alt="左声道" onmousedown="mPlayer.Balance=-10000" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/1pix.gif" width="1" height="1"><img border="0" src="../image/scroll_08.gif" width="2" height="14"><img border="0" src="../image/1pix.gif" width="1" height="1"><img border="0" src="../image/scroll_10.gif" width="7" height="15" alt="立体声" onmousedown="mPlayer.Balance=0" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/1pix.gif" width="1" height="1"><img border="0" src="../image/scroll_08.gif" width="2" height="14"><img border="0" src="../image/1pix.gif" width="1" height="1"><img border="0" src="../image/scroll_11.gif" width="7" height="15" alt="右声道" onmousedown="mPlayer.Balance=10000" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/1pix.gif" width="1" height="1"><img border="0" src="../image/scroll_08.gif" width="2" height="14"></td>
								<td align="right" background="../image/scroll_02.gif" width="6%">
									<img border="0" src="../image/scroll_06.gif" width="4" height="15"></td>
							</tr>
						</table>
						<table id="toole" border="0" cellpadding="0" cellspacing="0" style="display:block; border-collapse: collapse" bordercolor="#111111" width="100%" background="../image/toole_02.gif">
							<tr>
								<td background="../image/toole_02.gif">
									<img border="0" src="../image/toole_01.gif" width="4" height="49"><img border="0" src="../image/1pix.gif" width="10" height="1"><img id="pp001" border="0" src="../image/toole_04.gif" width="36" height="49" ALT="播放" onmousedown="Playorpasue()" onmouseout="this.src='../image/toole_04.gif'" onmouseover="this.src='../image/toole_04_over.gif';this.style.cursor='hand'"><img border="0" src="../image/toole_05.gif" width="25" height="49" ALT="停止" onmousedown="Stop()" onmouseout="this.src='../image/toole_05.gif'" onmouseover="this.src='../image/toole_05_over.gif';this.style.cursor='hand'"><img border="0" src="../image/1pix.gif" width="10" height="1"><img border="0" src="../image/toole_06.gif" width="26" height="49" ALT="快退" onmousedown="SetFastReverse()" onmouseout="this.src='../image/toole_06.gif'" onmouseover="this.src='../image/toole_06_over.gif';this.style.cursor='hand'"><img border="0" src="../image/toole_07.gif" width="25" height="49" ALT="快进" onmousedown="SetFastForward()" onmouseout="this.src='../image/toole_07.gif'" onmouseover="this.src='../image/toole_07_over.gif';this.style.cursor='hand'"><img border="0" src="../image/1pix.gif" width="6" height="1"></td>
								<td background="../image/toole_02.gif" align="right">
									<img border="0" src="../image/toole_08.gif" width="26" height="49" ALT="闭音" onmousedown="ClickSound(this)" onmouseout="if (!Mute){this.src='../image/toole_08.gif'}" onmouseover="if (!Mute){this.src='../image/toole_08_over.gif';}this.style.cursor='hand'"></td>
								<td background="../image/toole_11.gif" style="background-repeat: no-repeat;">
									<DIV onmouseup="Total_Up()" onmousemove="volgo()" id="volume" style="LEFT: 0px; WIDTH: 70px; POSITION: relative; TOP: 1px; HEIGHT: 23px" valgin="top"><DIV id="vblock" style="LEFT: 35px; POSITION: absolute; TOP: 0px; HEIGHT: 17px"><IMG onmousedown="vols()" style="CURSOR: hand" alt="声音调节" src="../image/toole_15.gif" width="9" height="17" border="0"></DIV>
									</DIV>
								</td>
								<td background="../image/toole_12.gif" style="background-repeat: no-repeat;">
									<MARQUEE id="Play_Mess" WIDTH="100" SCROLLAMOUNT="8" SCROLLDELAY="200" style="margin-left: 8; margin-right: 10;"><FONT color=#284717 size=2><%=homes%>欢迎您观看：<%=rs("title")%></FONT></MARQUEE>
								</td>
								<td background="../image/toole_02.gif">
									<img border="0" src="../image/1pix.gif" width="6" height="1"><img border="0" src="../image/toole_09.gif" width="25" height="49" alt="全屏播放" onmousedown="DoFull()" onmouseout="this.src='../image/toole_09.gif'" onmouseover="this.src='../image/toole_09_over.gif';this.style.cursor='hand'"><img border="0" src="../image/toole_10.gif" width="25" height="49" alt="精简模式" onclick="mini(1);" onmouseout="this.src='../image/toole_10.gif'" onmouseover="this.src='../image/toole_10_over.gif';this.style.cursor='hand'"></td>
								<td background="../image/toole_02.gif" align="right">
									<img border="0" src="../image/toole_13.gif" width="13" height="17" onmouseover="this.style.cursor='se-resize'" id="mydiv100" class="rs001" alt="改变窗口大小"><img border="0" src="../image/toole_14.gif" width="4" height="49"></td>
							</tr>
						</table>
						<table id="minitoole" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; display:none;" bordercolor="#111111" width="100%">
							<tr>
								<td width="33%" background="../image/miniToole_02.gif">
									<img border="0" src="../image/miniToole_01.gif" width="3" height="20"><img border="0" src="../image/1pix.gif" width="10" height="1"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_04.gif" width="18" height="20" ALT="播放" onmousedown="play()" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_05.gif" width="18" height="20" ALT="暂停" onmousedown="pause()" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_06.gif" width="18" height="20" ALT="停止" onmousedown="Stop()" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_07.gif" width="18" height="20" ALT="快退" onmousedown="SetFastReverse()" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_08.gif" width="18" height="20" ALT="快进" onmousedown="SetFastForward()" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_09.gif" width="33" height="20" alt="全屏播放" onmousedown="DoFull()" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_10.gif" width="33" height="20" alt="正常模式" onclick="mini(0);" onmouseover="this.style.cursor='hand'"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"><img border="0" src="../image/miniToole_03.gif" width="6" height="20"></td>
								<td width="33%" background="../image/miniToole_02.gif">
								</td>
								<td width="34%" background="../image/miniToole_02.gif" align="right">
									<img class="rs001" border="0" src="../image/miniToole_12.gif" width="8" height="11" onmouseover="this.style.cursor='se-resize'" alt="改变窗口大小"><img border="0" src="../image/miniToole_11.gif" width="3" height="20"></td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</center>
	</body>
</html>
<% 

rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
<% response.end
   end if

if LockIP(Request.ServerVariables("REMOTE_ADDR")) then
response.write"<script>alert('您的IP已经被限制不能访问本系统，请和管理员联系！！');window.close();</Script>"
response.end
end if
'用户IP限制
function LockIP(sip)
	dim str1,str2,str3,str4
	dim num
	LockIP=false
	if isnumeric(left(sip,2)) then
		str1=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str2=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str3=left(sip,instr(sip,".")-1)
		str4=mid(sip,instr(sip,".")+1)
		if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
	
		else
			num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
			sql="select count(*) from LockIP where ip1 <="&num&" and ip2 >="&num&""
			set rs_ip=conn.execute(sql)
			if rs_ip(0)>0 then 
				LockIP=true
			end if
			set rs_ip=nothing
		end if
	end if
end function

   i=0
   articleid=request("film2")
   urlid=request("film1")
   if isnumeric(articleid)=false or isnumeric(urlid)=false then
   response.redirect "error.asp?id=4"
   response.end
   end if
if chkcookie(request.cookies("userid"))="" or request.cookies("password")="" then
response.write "<script language=javascript>{window.alert('对不起，你还未登陆，请从首页登陆！');window.close();}</script>"
response.end
  else 
 Set lrs= Server.CreateObject("ADODB.Recordset")
sql="select * from online where username='"&Replace(request.cookies("userid"), "'", "''")&"'"
lrs.open sql,conn,1,3
if lrs.eof then
onli=1
end if

sqll="select * from users where userid='"&Replace(request.cookies("userid"), "'", "''")&"'"
set rsl=server.createobject("adodb.recordset")
rsl.open sqll,conn,1,1

if request.cookies("login")<>rsl("login") or onli=1 then
response.write "<script language=javascript>{window.alert('对不起，你还未登陆，请从首页登陆！');window.close();}</script>"
response.end
   end if
   end if
   set rs=server.createobject("adodb.recordset")
   sql="select serverip,canlook,movietype,title,count from learning where articleid="&articleid
   rs.open sql,conn,1,1
   set rst=server.createobject("adodb.recordset")
   sql="select money,oklook,lasthits,usercount,baoyue from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
   rst.open sql,conn,1,3

if rst("baoyue")=1 then 

   if rs("canlook")<>0 then
   if now() > rst("money") then
response.write"<script>alert('你没有包月或者你包月的时间已经到期！');window.close();</Script>"
response.end
    end if
   end if
 end if
   serverip=rs("serverip")
   if rs("canlook")>rst("oklook") and rst("baoyue")=1 then
response.write"<script>alert('很抱歉你的用户等级不够，只有黄金会员和计点会员才可以在线观看！\n\n升级到黄金会员或者使用计点会员。');window.close();</Script>"
response.end
   end if
   tdate=date()
   if rst("lasthits")=tdate then
   sql="update users set dnlook=dnlook+1,nlook=nlook+1 where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
   conn.Execute(sql)
   else
   conn.Execute("update users set dnlook=1,lasthits='"&tdate&"' where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'")	
   end if
   set rst=server.createobject("adodb.recordset")
   sql="select money,nlook,oklook,lasthits,dnlook,baoyue,usercount from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
   rst.open sql,conn,1,3
   
   if rst("baoyue")=0 then

     	 set rsb00=server.createobject("adodb.recordset")
rsb00.open "select * from tolook where title='"&rs("title")&"' and userid='"&request.cookies("userid")&"'",conn,1,3

set rsb02=server.createobject("adodb.recordset")
rsb02.open "select * from tolook where title='"&rs("title")&"' and userid='"&request.cookies("userid")&"'",conn,1,3

do while not rsb02.eof
i=i+1
rsb02.movenext
loop

if rsb00.eof and rsb00.bof and rst("usercount")<rs("count") then
response.write"<script>alert('你点数不够哦！请购买点数或者升级到包月会员后再进行下载吧！\n\n购买点数或者升级到黄金会员。');window.close();</Script>"
response.end
end if

if rst("usercount")<rs("count") and i>4 then
response.write"<script>alert('你点数不够哦！请购买点数或者升级到包月会员后再进行下载吧！\n\n购买点数或者升级到黄金会员。');window.close();</Script>"
response.end
   
end if

set rsb01=server.createobject("adodb.recordset")
rsb01.open "select * from tolook where title='"&rs("title")&"' and userid='"&request.cookies("userid")&"'",conn,1,3
if  rsb01.eof and rsb01.bof or i>4 then

sql="update users set usercount=usercount-'"&rs("count")&"' where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
conn.Execute(sql)
   
end if
else
if rst("oklook")<2 then
if rst("dnlook")>pthy then
response.write"<script>alert('你是普通会员今天观看已经超过"&pthy&"集！请明天再观看吧！\n\n重新续费12个月升级到黄金会员。');window.close();</Script>"
response.end
end if
elseif rst("oklook")<3 then
if rst("dnlook")>bjhy then
response.write"<script>alert('你是白金会员今天观看已经超过"&bjhy&"集！请明天再观看吧！\n\n重新续费12个月升级到黄金会员。');window.close();</Script>"
response.end
end if
elseif rst("oklook")<4 then
if rst("dnlook")>hjhy then
response.write"<script>alert('你是黄金会员今天观看已经超过"&hjhy&"集！请明天再观看吧！\n\n重新续费升级到钻石会员。');window.close();</Script>"
response.end 
   end if 
   end if 
   end if 
 
   set rsb=server.createobject("adodb.recordset") 
   rsb.open "select * from tolook",conn,1,3 
   rsb.addnew 
   rsb("title")=rs("title") 
   rsb("userip")=request.servervariables("remote_addr") 
   rsb("userid")=chkcookie(request.cookies("userid")) 
   rsb("lookordown")="在线" 
   rsb("looktime")=now()
   rsb.update 
   rsb.close 
   set rsb=nothing 
   response.cookies(""&urlid&"")="yes" 
 %>
 <html>
<head>
<title>【<%=rs("title")%> <%=filmname%>】- 如果始终在连接状态，可关掉播放窗口重新点播!</title>
<Script Language="JavaScript">
if(window.name!="<%=homes%>"){window.location='index.html';}
    IEvar=navigator.appVersion.substring(navigator.appVersion.indexOf('MSIE')+5,navigator.appVersion.indexOf(';',17));
    if(IEvar=="6.0")
    {
      ie6 = true;
      width_add = 10;
      height_add = 29;
      jjjj = 5;
      hand_add = -14;
    }
    else
    {
      ie6 = false;
      width_add = 0;
      height_add = 0;
      jjjj = 0;
      hand_add = 0;
    }
    b_width = 0;
    b_height = 0;
    
    //屏蔽右键