📄 down.asp

📁 视频点播系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
      border=0>
          <TBODY>
            <TR> 
              <TD align=middle background=images/logotopbg.gif>
        <p align="center">
            <font size="2" color="#FFFFFF">点播观看影视,请先<b>登陆</b>！</font></TD>
            </TR>
            <TR> 
              <TD> <table cellspacing=0 cellpadding=3 width="100%" border=0>
                    <tbody>
                      <tr> 
                        <td align=right width="40%" height=25><font 
                  color=#3b591b>用户名：</font></td>
                        <td width="65%">
                        <input class=button2 
                  onFocus=javascript:this.select(); size=14 name=userid></td>
                      </tr>
                      <tr> 
                        <td align=right width="40%" height=13><font 
                  color=#3b591b>密　码：</font></td>
                        <td>
                        <input class=button2 onFocus=javascript:this.select(); 
                  type=password size=14 name=password></td>

                      </tr>
                      <tr> 
                        <td align=right width="40%" height=13><font 
                  color=#3b591b>验证码：</font></td>
                        <td>
                        <INPUT class=button2 maxLength=4 name=validateCode                          
                  onfocus=javascript:this.select(); size=6><script src="verify.asp"></script></td>
                      </tr>

                      <tr> 
                        <td align=middle colspan=2 height=25>
                        <input class=button1 type=submit value="提 交" name=oker> 
                          <input class=button1 type=reset value="重 置" name=B2> 
                    <input type="reset" name="Submit2" value="注 册" class="button1" onclick="window.open('reguser.asp','','');self.close();"></tr>
                  </table></TD>
            </TR>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD><IMG src="images/mixend.gif"></TD>
    </TR>
</TABLE>
        </td>
      </tr>
    </table>
  </form>
  </center>
</div>
<%response.end
   end if
   end if

   userid=Replace(request.cookies("userid"), "'", "''")
   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,lasthits,oklook,usercount,baoyue from users where userid='"&Replace(request.cookies("userid"), "'", "''")&"' and password='"&Replace(request.cookies("password"), "'", "''")&"'"
   rst.open sql,conn,1,3

if rst("baoyue")=1 then
   if rs("canlook")<>0 then
   if now() > rst("money") then
   
   set rs=server.createobject("adodb.recordset")
sql="select * from users where userid='"&Replace(request("userid"), "'", "''")&"'"
rs.open sql,conn,1,3
rs("pay")=""
rs.update
%>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">

<p>　</p>
<p>　</p>
<div align="center">
  <center>
  <table border="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" bgcolor="#94C308" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1">
    <tr>
      <td>
      <div align="center">
        <center>
        <table border="0" bgcolor="#94C308" cellspacing="0" cellpadding="2" width="350" style="border-collapse: collapse" bordercolor="#111111">
          <tr>
            <td width="342"><font color="FFFFFF">¤</font><font color="FFFFFF" size="2">出错提示</font></td>
            <td width="18">
            <table border="1" bordercolorlight="666666" bordercolordark="FFFFFF" cellpadding="0" bgcolor="EFFFAD" cellspacing="0" width="18">
              <tr>
                <td width="16"><b>
                <a href="javascript:history.go(-1)" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="关闭">
                <font color="000000">×</font></a></b></td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <table border="0" width="350" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="109">
        <tr>
          <td width="54" align="center" valign="middle" bgcolor="#E0E0E0" height="72">
          <font face="Wingdings" color="#94c308" size="7">L</font></td>
          <td width="280" bgcolor="#E0E0E0" height="72"><font size="2">
          　　你没有包月或者你包月的时间已经到期！请重新<a target="_blank" href="user/buy.asp"><font color="EFFFAD">续费</font></a>你的账号吧！</font></td>
        </tr>
        <tr>
          <td colspan="2" align="center" valign="top" bgcolor="#E0E0E0" width="342" height="21">
          <input class=button1 type="button" name="ok" value="　确 定　" onclick="javascript:window.close()"><font size="2">
          </font></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>
<%response.end
     end if
     end if

   if rs("canlook")>rst("oklook") then
      set rs=server.createobject("adodb.recordset")
sql="select * from users where userid='"&Replace(request("userid"), "'", "''")&"'"
rs.open sql,conn,1,3
rs("pay")=""
rs.update
%>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0" bgcolor="#282828" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">

<p>　</p>
<p>　</p>
<div align="center">
  <center>
  <table border="0" bordercolorlight="#ffffff" bordercolordark="#FFFFFF" cellspacing="0" bgcolor="#94C308" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1">
    <tr>
      <td>
      <div align="center">
        <center>
        <table border="0" bgcolor="#94C308" cellspacing="0" cellpadding="2" width="350" style="border-collapse: collapse" bordercolor="#111111">
          <tr>
            <td width="342"><font color="FFFFFF">¤</font><font color="FFFFFF" size="2">出错提示</font></td>
            <td width="18">
            <table border="1" bordercolorlight="666666" bordercolordark="FFFFFF" cellpadding="0" bgcolor="EFFFAD" cellspacing="0" width="18">
              <tr>
                <td width="16"><b>
                <a href="javascript:history.go(-1)" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="关闭">
                <font color="000000">×</font></a></b></td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <table border="0" width="350" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="109">
        <tr>
          <td width="54" align="center" valign="middle" bgcolor="#E0E0E0" height="72">
          <font face="Wingdings" color="#94c308" size="7">L</font></td>
          <td width="280" bgcolor="#E0E0E0" height="72"><font size="2">　　 
          很抱歉你的用户等级不够，该部电影需要黄金会员才可以下载！重新<a target="_blank" href="user/buy.asp"><font color="#FF0000">续费</font></a>12个月升级到黄金会员。</font></td>
        </tr>
        <tr>
          <td colspan="2" align="center" valign="top" bgcolor="#E0E0E0" width="342" height="21">
          <input class=button1 type="button" name="ok" value="　确 定　" onclick="javascript:window.close()"><font size="2">
          </font></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>


<%response.end
   end if
 	end if
   serverip=rs("serverip")
   
 tdate=date()
   if rst("lasthits")=tdate then
   sql="update users set dnlook=dnlook+1,nlook=nlook+1 where userid='"&Replace(request.cookies("userid"), "'", "''")&"' and password='"&Replace(request.cookies("password"), "'", "''")&"'"
   conn.Execute(sql)
   else
   conn.Execute("update users set dnlook=1,lasthits='"&tdate&"' where userid='"&Replace(request.cookies("userid"), "'", "''")&"' and password='"&Replace(request.cookies("password"), "'", "''")&"'")	
   end if
   set rst=server.createobject("adodb.recordset")
   sql="select money,nlook,oklook,lasthits,dnlook,usercount,baoyue from users where userid='"&Replace(request.cookies("userid"), "'", "''")&"' and password='"&Replace(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='"&userid&"'",conn,1,3

set rsb02=server.createobject("adodb.recordset")
rsb02.open "select * from tolook where title='"&rs("title")&"' and userid='"&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

   
%>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">

<p>　</p>
<p>　</p>
<div align="center">
  <center>
  <table border="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" bgcolor="#94C308" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1">
    <tr>
      <td>
      <div align="center">
        <center>
        <table border="0" bgcolor="#94C308" cellspacing="0" cellpadding="2" width="350" style="border-collapse: collapse" bordercolor="#111111" height="8">
          <tr>
            <td width="342" height="4"><font color="FFFFFF">¤</font><font color="FFFFFF" size="2">出错提示</font></td>
            <td width="18" height="4">
            <table border="1" bordercolorlight="666666" bordercolordark="FFFFFF" cellpadding="0" bgcolor="EFFFAD" cellspacing="0" width="18">
              <tr>
                <td width="16"><b>
                <a href="javascript:history.go(-1)" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="关闭">
                <font color="000000">×</font></a></b></td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <table border="0" width="350" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="109">
        <tr>
          <td width="54" align="center" valign="middle" bgcolor="#E0E0E0" height="72">
          <font face="Wingdings" color="#94c308" size="7">L</font></td>
          <td width="280" bgcolor="#E0E0E0" height="72"><font size="2">　　 
          你点数不够哦！请购买点数或者升级到包月会员后再进行下载吧！<a target="_blank" href="user/buy.asp"><font color="#FF0000">购买点数或者升级到黄金会员。</font></a><br><br></td>
        </tr>
        <tr>
          <td colspan="2" align="center" valign="top" bgcolor="#E0E0E0" width="342" height="21">
          <input class=button1 type="button" name="ok" value="　确 定　" onclick="javascript:window.close()"><font size="2">
          </font></td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>
  <% 
   response.end
   end if

     if  rst("usercount")<rs("count") and i>4 then

   
%>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">

<p>　</p>
<p>　</p>
<div align="center">
⌨️ 快捷键说明

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