open1.asp

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

  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.open('login.asp');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 '每天看10集
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 '每天看15集
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 '每天看30集
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" 
   set rsl=server.createobject("adodb.recordset")
   rsl.open "select urlopen from home",conn,1,3
   if rsl("urlopen")<>0 then
   real=conn.execute("select url from movieurl where id="&urlid&"")(0)
   ipsip=conn.execute("select ipsip from movie where id="&serverip&"")(0)
   ipsip=ipsip&real
   %>
  <META HTTP-EQUIV="REFRESH" CONTENT="0; URL=<%=ipsip%>"> 
   <SCRIPT LANGUAGE="JavaScript">
   <!--
   window.onload=function test(){
   }
   setTimeout("window.opener=null;window.close()",1000);//1秒后关闭
   //-->
   </SCRIPT>
   <%end if
   rsl.close
   set rsl=nothing
 %>
<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;
    
    //屏蔽右键
   function no_newwin(){
           if((event.ctrlKey)&&(event.keyCode==78)){
                   event.keyCode=0;
                   event.returnValue=false;
           }
    }

    function click()
    {
       return false;
    }
    document.oncontextmenu=click;
    document.onmousemove=click;

    document.ondragstart=doDragStart
    function doDragStart() {event.returnValue=false}


    //-----------------------------------------------------------------------------------------

</Script>
<script language="JavaScript">
function click(e) {
if (document.all) {
if (event.button==2||event.button==3) {
oncontextmenu='return false';
}
}
if (document.layers) {
if (e.which == 3) {
oncontextmenu='return false';
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
document.oncontextmenu = new Function("return false;")
</script>

</head>
<body bgcolor="#000000" text="#ffffff" leftmargin="0" topmargin="0" onload="window.moveTo(80,80)">

<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center">
<object width="100%" height="100%" name="RP1" id="RP1" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
        <param name="_ExtentX" value="26564">
        <param name="_ExtentY" value="15452">
        <param name="AUTOSTART" value="-1">
        <param name="SHUFFLE" value="0">
        <param name="PREFETCH" value="0">
        <param name="NOLABELS" value="0">
        <param name="CONTROLS" value="Imagewindow">
        <param name="CONSOLE" value="clip1">
        <param name="LOOP" value="0">
        <param name="NUMLOOP" value="0">
        <param name="CENTER" value="0">
        <param name="MAINTAINASPECT" value="-1">
        <param name="BACKGROUNDCOLOR" value="#000000">
        </object></td>
  </tr>
  <tr> 
    <td height="60">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <td align="center" bgcolor="#000000"> <table  border=1 cellpadding=0 cellspacing=0 width="100%">
                <td width="50"><img src="../images/ctrl-fullscreen.gif" alt="如果你窗口播放效果不好，请改用全屏方式播放。" width="50" height="30" border="0" onClick="document.RP1.SetFullScreen()"></td>
            <td> <object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=30 id="RP2"  name="RP2" width=100%>
                <param name="_ExtentX" value="4657">
                <param name="_ExtentY" value="794">
                <param name="AUTOSTART" value="-1">
                <param name="SHUFFLE" value="0">
                <param name="PREFETCH" value="0">
                <param name="NOLABELS" value="-1">
                <param name="SRC" value="govodurl.asp?urlid=<%=urlid%>&amp;serverip=<%=serverip%>">
                <param name="CONTROLS" value="ControlPanel">
                <param name="CONSOLE" value="clip1">
                <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>
          </table> 
          </td>
        <tr>
          <td align="center" bgcolor="#000000"><object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=30 id="RP3"  name="RP3" width=100%>
              <param name="_ExtentX" value="4657">
              <param name="_ExtentY" value="794">
              <param name="AUTOSTART" value="-1">
              <param name="SHUFFLE" value="0">
              <param name="PREFETCH" value="0">
              <param name="NOLABELS" value="-1">
              <param name="CONTROLS" value="StatusBar">
              <param name="CONSOLE" value="clip1">
              <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>
      </table></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>