求ASP代码修改--电影观看

yinshao 2004-08-07 06:22:04
<!--#include file="articleconn.asp"-->
<%
dim sql
dim rs
articleid=request("film2")
urlid=request("film1")
if request.cookies("userid")="" or request.cookies("password")="" or application(""&request.cookies("userid")&"")="" then
%>
-------------你没登陆,<a href=login.asp>请登陆</a>-----------
<%response.end
end if
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,oklook,lasthits 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%>
-------------你包月的时间已经到期!请重新续费--------------
<%response.end
end if
end if
serverip=rs("serverip")
if rs("canlook")>rst("oklook") then%>
----------------等级不够,请返回-------------------
<%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 '每天看四集%>
---------每天只能看四集------------------

<%response.end
end if
elseif rst("oklook")<3 then
if rst("dnlook")>8 then '每天看八集%>
---------每天只能看8集------------------
<%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.update
rsb.close
set rsb=nothing
response.cookies(""&urlid&"")="yes"
%>

<% if rs("movietype")="rm" then%>
------------RM播放器观看代码,略----------

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

<%elseif rs("movietype")="md" then
set rst=server.createobject("adodb.recordset")
sql="select url from movieurl where id="&urlid
rst.open sql,conn,1,1
real=rst("url")
set rst=server.createobject("adodb.recordset")
sql="select * from movie where id="&serverip
rst.open sql,conn,1,1
%>
------------MD播放器观看,代码略----------
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
response.end%>
<%elseif rs("movietype")="mov" then
set rst=server.createobject("adodb.recordset")
sql="select url from movieurl where id="&urlid
rst.open sql,conn,1,1
real=rst("url")
set rst=server.createobject("adodb.recordset")
sql="select * from movie where id="&serverip
rst.open sql,conn,1,1
%>
------------MOV播放器观看,代码略----------
<%end if%>
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>

-------------全部结束-----
以上页面是必须成功登陆用户而且符合若干条件才能观看影片代码!
我想修改的是,没有登陆的用户进来时,系统检测帐号为空时则自动成为一个系统已经注册的用户观看!
比如userid="12321" password="111111" 这个12321帐户可以正常观看!

请高手给予帮助,谢谢!


...全文
200 点赞 收藏 21
写回复
21 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yinshao 2004-08-12
bugbug74(疯牛):是的,目地就是让大家免费看电影而省去注册的过程,而这套看电影程序不提供匿名方式,必须有cookies注册名才可以...


谢谢大家的帮助,散分!!!
回复
gu1dai 2004-08-10
<% if request("userid")="" || request("userpass")="" then
response.cookies("userid")="guest"
end if
%>这是登陆检测

<% if request.cookies("userid")="" then
response.cookies("userid")="guest"
end if%>

接下来你就可以利用这个cookies实现你的要求了
回复
pizixt 2004-08-10
<% if request.cookies("userid")="" then
response.cookies("userid")="12321" '读写要分清
end if
%>
回复
bugbug74 2004-08-10
楼主的意思可能是想开放免费看电影,从程序来看,该程序不提供匿名方式吧。
回复
bugbug74 2004-08-10
<html><title>自动登陆</title><body oncontextmenu=self.event.returnValue=false><form action="userpass.asp" method=post name=search>

<font color="#FF0000"><br>
你并没有登陆
正在自动进入系统,请稍侯………
<br>
<br>
<input type=hidden name=userid value="用户名"><input type=hidden name=password value="密码"></font></form><script language="javascript">document.eform.submit(eform.form)</script></body></html>
回复
cdsun 2004-08-08
我晕哦

你这样有什么意义啊?

比如我第一次来

你自动给我注册一个

我在那里知道我的注册信息阿?你这不是有问题吗?

你让他自动提交无非做一个过程当满足条件的时候调用这个过程就好了阿

不用自动提交表单的
回复
yinshao 2004-08-08
up
回复
bugbug74 2004-08-08
目的很明了,从你提供的代码上来看,就是在客户机上必须要有一个登陆过的cookies。我想这是一个唯一的办法。不然的话你要改动的地方就太多了。
回复
bugbug74 2004-08-08
我跟你说过了, 从 request.cookies("userid")="" 这一句来看,跟本就是你必须在login.asp 上登陆过后在cookies里的用户名与密码,所以你想简单的用request.cookies("userid")="12321"的话是行不通的。

也就是说,你必须通过login.asp登陆过才行。

看来你是没有理解我的意思,我的意思是把这一行

-------------你没登陆,<a href=login.asp>请登陆</a>-----------

改成

<form name="form1" method="post" action="">
<p>用户名:
<input name="textfield" type="text" value="12321">
</p>
<p>密码:
<input name="textfield" type="password" value="密码">
</p>
<p>
<input type="submit" name="Submit" value="提交">
这个提交可以用js来自动提交</p>
</form>

然后再跳到articleconn.asp

按login.asp 的登陆小窗的代码改成一个自动登陆的表单。

这样就可以在客户机上实现自动登陆,如果你想使用简单的request.cookies("userid")="12321"之类的来实现的话,可以说你要修改的地方就太多了。
回复
yinshao 2004-08-08
purerain(rain)
也不行
页面都打不开!
回复
yinshao 2004-08-08
其实,原代码中
-------------你没登陆,<a href=login.asp>请登陆</a>-----------
这个部分本身就是用户加密码的登陆界面!
我帖代码省略了!
能自动提交下面的登陆代码也可以!

<form method="POST" action="userpass.asp" name="search" onsubmit="return checkinput()">
用户名:<input type="text" name="userid" size="20" value="12321">
密码:<input type="password" name="password" size="20" value="111111">
<input type="submit" value="提交" name="B1"></form>

如果能自动提交?
回复
cswxjf 2004-08-07
■■■高速稳定ASP.NET虚拟主机网站空间SQLSERVER数据库4折优惠酬宾 ■■■

■大海网络软件有限公司(www.dahai.net)是国内最早提供ASP.NET虚拟主机的服务商之一。
至今大海网络积累了大量的客户,服务成本直线下降。为此公司决定对目前所有产品实现降价销售。
========================================================================
■虚拟主机(HTM,ASP,ASP.NET)和数据库产品(SQLSERVER)优惠幅度达4折
========================================================================
HTML-A(100M HTML 空间;赠送25M电子邮件;) 价格:72元
HTML-B(200M HTML 空间;赠送50M电子邮件;) 价格:112元
HTML-C(400M HTML 空间;赠送100M电子邮件;) 价格:192元
HTML-D(800M HTML 空间;赠送200M电子邮件;) 价格:272元
HTML-E(50M HTML 空间;赠送5M电子邮件;) 价格:65元
========================================================================
ASP-A(100M ASP 空间;赠送25M电子邮件;) 价格:96元
ASP-B(200M ASP 空间;赠送50M电子邮件;) 价格:136元
ASP-C(400M ASP 空间;赠送100M电子邮件;) 价格:216元
ASP-D(800M ASP 空间;赠送200M电子邮件;) 价格:376元
ASP-E(50M ASP 空间;赠送5M电子邮件;) 价格:86元
========================================================================
ASP.NET-A(100M ASP.NET 空间;赠送25M电子邮件;) 价格:112元
ASP.NET-B(200M ASP.NET 空间;赠送50M电子邮件;) 价格:192元
ASP.NET-C(400M ASP.NET 空间;赠送100M电子邮件;) 价格:328元
ASP.NET-D(800M ASP.NET 空间;赠送200M电子邮件;) 价格:432元
========================================================================
SQL-A(50M SQL Server 数据库空间;) 价格:112元
SQL-B(100M SQL Server 数据库空间;) 价格:192元
SQL-C(200M SQL Server 数据库空间;) 价格:328元
SQL-D(400M SQL Server 数据库空间;) 价格:432元
========================================================================
MAIL-A(25M 企业域名 电子邮件;) 价格:15元
MAIL-B(50M 企业域名 电子邮件;) 价格:25元
MAIL-C(100M 企业域名 电子邮件;) 价格:50元
MAIL-D(250M 企业域名 电子邮件;) 价格:125元
MAIL-E(500M 企业域名 电子邮件;) 价格:250元
MAIL-F(1000M 企业域名 电子邮件;) 价格:500元
========================================================================
■域名注册(国内国际)和网站推广产品(搜狐,新浪,网易,Google)优惠如下
========================================================================
英文国际顶级域名(.com/.net/.org) 价格:58元
英文国内域名(.cn/.com.cn/.net.cn/.org.cn) 价格:98元
.biz/.info国际英文域名 价格:105元
========================================================================
通用网址 价格:300元
新浪快速登录 价格:300元
新浪搜索固定型及推广型登录 价格:6折
搜狐普通型登录 价格:216元
搜狐搜索固定型及推广型登录 价格:6折
网易搜索经济型服务 价格:300元
网易搜索超值型服务 价格:1500元
Google右侧排名(包年或包月) 价格:7折
新浪竞价排名 价格:8折
搜狐竞价广告 价格:72折
网易竞价广告 价格:55折
雅虎中国搜索排名 价格:75折
========================================================================
■联系大海网络(www.dahai.net)软件有限公司
========================================================================
公司网址:http://www.dahai.net/
联系人:张先生(13179682338),孙先生
电话:0510-8821881,3732767
传真:0510-3732767
在线销售:QQ:3712846,MSN:webcool@dahai.net
支付账号:http://www.dahai.net/pay.aspx
========================================================================
■我们秉承“一点一滴 乃成大海”的理念服务客户
回复
purerain 2004-08-07
<% if request.cookies("userid")=""and request.cookies("userid")="" then
request.cookies("userid")="12321"
request.cookies("password")="111111"
end if
if request.cookies("userid")="" or request.cookies("password")="" or application(""&request.cookies("userid")&"")="" then
%>
-------------你没登陆,<a href=login.asp>请登陆</a>-----------
<% end if %>

这样你看看行不行?


回复
yinshao 2004-08-07
UP
回复
yinshao 2004-08-07
swhrzl(华华)
不行,加上后,页面都打不开!
回复
swhrzl 2004-08-07
<% if request.cookies("userid")<>"" then
request.cookies("userid")=request.cookies("userid")
else
request.cookies("userid")="12321"
end if
%>
这个要在最最最上面了!
回复
yinshao 2004-08-07
<% if request.cookies("userid")="" then
request.cookies("userid")="12321"
end if
%>
我在页首加了这样的代码,可是不起作用!
应该怎样加?请朋友帮助!
回复
yinshao 2004-08-07
bugbug74(疯牛):你没理解我的要求,如果正常登陆,此代码没有任何问题的!
我要求的是,在这同一页面上检测request.cookies("userid")="" 为空时,则自动以用户12321为登陆者仍然可以观看!
回复
tutu944 2004-08-07
同1楼~
回复
bugbug74 2004-08-07
补充,用户名是取cookies的,所以不能使用userid="12321" password="111111"这样来处理。
回复
加载更多回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-07 06:22
社区公告
暂无公告