| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1013 人关注过本帖
标题:请教关于电影网站下载电影问题!(在线等)
只看楼主 加入收藏
wxffze
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-5-30
收藏
 问题点数:0 回复次数:5 
请教关于电影网站下载电影问题!(在线等)

我下了以个电影网站,在线播放正常!但无法下载,不知道怎么回事?请各位高手指点! 下面是代码: <html>

<p>

<head> <meta http-equiv="Content-Language" content="zh-cn"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> </head>

<% dim sql dim rs articleid=request("id2") urlid=request("id1") if request.cookies("userid")="" or request.cookies("password")="" or application(""&request.cookies("userid")&"")="" then %> <script language="JavaScript"> <!-- function checkinput() { if (document.search.userid.value=="") { alert("请输入用户名!"); document.search.userid.focus(); return false; }

if (document.search.password.value=="") { alert("请输入密码!"); document.search.password.focus(); return false; } return true; } --> </script> <title></title> <body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">

</p> <p> </p> <p> </p> <div align="center"> <center> <form method="POST" action="userpass.asp" name="search" onsubmit="return checkinput()"> <table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="223" id="AutoNumber1" bgcolor="#986800"> <tr> <td width="100%"> <table border="0" cellspacing="0" style="border-collapse: collapse" width="233" id="AutoNumber1" cellpadding="4" height="109"> <tr> <td width="223" colspan="2" bgcolor="#986800" height="3"> <font size="2" color="#FFFFFF">点播观看影视,请先<b>登陆</b>!</font></td> </tr> <tr> <td width="58" bgcolor="#EEEEEE" height="17"><font size="2">用<span lang="en-us">&nbsp; </span>户</font><span lang="en-us"><font size="2">:</font></span></td> <td width="165" bgcolor="#EEEEEE" height="17"> <input type="text" name="userid" size="20" style="color: #000000; border-style: solid; border-width: 1; background-color: #FFCC30"></td> </tr> <tr> <td width="58" bgcolor="#EEEEEE" height="17"><font size="2">密&nbsp; 码:</font></td> <td width="165" bgcolor="#EEEEEE" height="17"> <input type="password" name="password" size="20" style="color: #000000; border-style: solid; border-width: 1; background-color: #FFCC30"></td> </tr> <tr> <td width="58" bgcolor="#EEEEEE" height="19"> </td> <td width="165" bgcolor="#EEEEEE" height="19"> <input type="submit" value="提交" name="B1" style="color: #000000; border-style: solid; border-width: 1; background-color: #FFCC30"> <input type="reset" value="重置" name="B2" style="color: #000000; border-style: solid; border-width: 1; background-color: #FFCC30"></td> </tr> <tr> <td width="223" colspan="2" bgcolor="#EEEEEE" height="13"> <font size="2">你还没有注册? </font> <a target="_blank" href="reg.asp"> <font size="2" color="#ff0000">点击这里立刻申请</font></a></td> </tr> </table> </td> </tr> </table> </form> </center> </div> <%response.end end if userid=request.cookies("userid") set rs=server.createobject("adodb.recordset") sql="select serverip,canlook,movietype,title from learning where articleid="&articleid rs.open sql,conn,1,1 set rst=server.createobject("adodb.recordset") sql="select money,lasthits,oklook from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'" rst.open sql,conn,1,3 if rs("canlook")<>0 then if now() > rst("money") 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="#986800" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1"> <tr> <td> <div align="center"> <center> <table border="0" bgcolor="#986800" 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="E0E0E0" 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="#986800" 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>你的账号吧!</font></td> </tr> <tr> <td colspan="2" align="center" valign="top" bgcolor="#E0E0E0" width="342" height="21"> <input 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") if rst("oklook")<4 then%> <body scroll="no" marginwidth="0" leftmargin="0" topmargin="0" bgcolor="#000000" 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="#986800" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1"> <tr> <td> <div align="center"> <center> <table border="0" bgcolor="#986800" 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="E0E0E0" 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="#986800" 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 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

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 from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'" rst.open sql,conn,1,3 if rst("oklook")<2 then if rst("dnlook")>4 then '每天可看4集%> <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="#986800" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1"> <tr> <td> <div align="center"> <center> <table border="0" bgcolor="#986800" 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="E0E0E0" 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="#986800" 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 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 elseif rst("oklook")<5 then if rst("dnlook")>12 then '每天可看10集%> <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="#986800" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1"> <tr> <td> <div align="center"> <center> <table border="0" bgcolor="#986800" 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="E0E0E0" 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="#986800" size="7">L</font></td> <td width="280" bgcolor="#E0E0E0" height="72"><font size="2">   你是钻石会员今天观看已经超过十二集!请明天再观看吧!</font></td> </tr> <tr> <td colspan="2" align="center" valign="top" bgcolor="#E0E0E0" width="342" height="21"> <input 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 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")=request.cookies("userid") rsb("lookordown")="下载" rsb("oklook")=rst("oklook") rsb.update rsb.close set rsb=nothing set rst=server.createobject("adodb.recordset") sql="select url from movieurl where id="&urlid rst.open sql,conn,1,1 terok=request.cookies("userid")&request.cookies("password") application(""&terok&"")="yes" %> <body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">

<head>

<script language="JavaScript"> function will() { if (event.srcElement.tagName=='A'||event.srcElement.tagName=='IMG') { window.focus(); oUrl.style.display = ""; } }

</script> <base target="_blank" onClick="JavaScript:will()"> <script language="javascript"> function click() { if (event.button==1) { //改成button==2为禁止右键 alert('对不起,请使用右键目标另存为或网际快车等下载工具下载!') } } document.onmousedown=click </script> </head> <p> </p> <p> </p> <p> </p> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr><td><div align="center"><a href="downurl.asp?serverip=<%=serverip%>&real=<%=rst("url")%>&uset=<%=terok%>"> <img border="0" src="IMG/down3.gif"></a> </div> </td> </tr> <tr> <td width="100%"> <p align="center"><b><font color="#FF0000" size="2">点击右键目标另存为,或用网际快车下载<br> 该地址只能下载一次如果要重新下载请重新刷新本页面<br> 你的下载的电影都被本站记录请不要同时下载两部以上电影一经发观将封销帐号</font></b></td> </tr> </table> <p>

</body>

</html> <% rs.close set rs=nothing rst.close set rst=nothing conn.close set conn=nothing %></body></body></body></body></body></body></body></p></body></html>

搜索更多相关主题的帖子: 电影 在线 
2005-05-30 10:43
wxffze
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-5-30
收藏
得分:0 

接着调用第二个ASP文件: <!--#include file="huafengconn.asp"--> <% if request.cookies("ad")="" then response.cookies("ad")="yes" response.cookies("ad").expires=now()+1 end if if application(""&request("uset")&"")="" then response.end%>

<% application(""&request("uset")&"")="" dim rst,sql set rsb=server.createobject("adodb.recordset") sql1="select * from movie where id="&request("serverip") rsb.open sql1,conn,1,1 movie=""&trim(rsb("movie"))&"" rsb.close conn.close set conn=nothing if request("oker")="" then response.redirect movie&replace("real") else response.write movie&replace("real") end if %> 但是无法下载!!不解,请高手指点!!!

2005-05-30 10:44
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
太长了吧

2005-05-30 13:55
suyongtao
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:33
帖 子:8674
专家分:127
注 册:2004-11-6
收藏
得分:0 
是有点长,,唉,,

面朝大海,春暖花开!
2005-05-30 15:14
toemss
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-6-23
收藏
得分:0 
这也太多了
2007-06-23 16:43
sdgjsddd
Rank: 1
等 级:新手上路
帖 子:199
专家分:0
注 册:2007-6-14
收藏
得分:0 
共产党说抓住问题的重点,搞那么多干嘛,俺眼睛都花啦
2007-06-23 17:15
快速回复:请教关于电影网站下载电影问题!(在线等)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019623 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved