如何实现VIP到期停止权限 - 编程论坛

#2

yms1232010-04-30 14:42

可以实现
用户表可以加个状态和VIP时长字段，或者单增加一个申请表，用户填写申请后台管理员批准后改变用户组为VIP即可.
自动降级可以在用户登录时就判断，用户是否超过VIP时长，超过自动更改用户数据为普通会员。

VIP和普通会员可以通过浏览网页时判断，让VIP浏览的网页判断是否是VIP会员，是就可以浏览，不是就转到别的网页不让浏览。

[ 本帖最后由 yms123 于 2010-4-30 14:43 编辑 ]

#3

故事人生2010-04-30 14:47

以下是引用yms123在2010-4-30 14:42:11的发言：

可以实现
用户表可以加个状态和VIP时长字段，或者单增加一个申请表，用户填写申请后台管理员批准后改变用户组为VIP即可.
自动降级可以在用户登录时就判断，用户是否超过VIP时长，超过自动更改用户数据为普通会员。

VIP和普通会员可以通过浏览网页时判断，让VIP浏览的网页判断是否是VIP会员，是就可以浏览，不是就转到别的网页不让浏览。

自动降级可以在用户登录时就判断，用户是否超过VIP时长，超过自动更改用户数据为普通会员。

这在USER里面加,更改数据库VIP会员成普通会员,

能给个详细点的代码吗?非常感谢!

我的数据库USER表里,vipdate列为VIP到期时间.就是不知怎么写个判断来验证VIP是否到期修改VIPDATE数据表为空.

<%if request.cookies("Cnhww")("reglx")=2 then%>
  <tr bgcolor="#ffffff" align="center">
    <td>VIP期限：</td>
    <td align="left"><%=cnhw("vipdate")%></td>
  </tr>
  <%end if%>
  <%

VIP和普通会员可以通过浏览网页时判断，让VIP浏览的网页判断是否是VIP会员，是就可以浏览，不是就转到别的网页不让浏览。
这个已实现了,VIP会员的价格,普通会员无法浏览.

[ 本帖最后由故事人生于 2010-4-30 14:58 编辑 ]

#4

yms1232010-04-30 15:19

自动降级
需要你用户表里有用户组的字段
比如如下设计
UserInfo（用户表)
UserID 用户编号数字型主键
UserName 用户名文本型主键
Password 密码文本型
GroupName 用户组名文本型 "普通会员|VIP"
ExpireTime 到期时长数字型单位"年份"
VIPStartTime VIP开始日期日期型

然后在登陆时判断
<%
  '省去数据库打开代码
  Dim UsName,rs
  UsName=Request.Form("UserName")'假设从表单提交过来
  Set rs=conn.Execute("select * from [UserInfo] Where UserName='"&UsName&"'")
  '判断VIP会员是否到期DateDiff函数时间长比较
  'DateDiff函数的相关解释
  'http://www.
  'http://wenku.baidu.com/view/69e2c022bcd126fff7050b68.html
  'http://topic.
  'http://baike.baidu.com/view/327446.htm?fr=ala0_1_1
  IF DateDiff("YYYY",Date(Now),rs("VIPStartTime"))>rs("ExpireTime") Then
     '将VIP降级为普通会员
     conn.Execute("Update [UserInfo] set GroupName='普通会员' Where UserName='"&UsName&"'")
  End IF
  rs.Close
  Set rs=Nothing
  conn.Close
  Set conn=Nothing
%>

#5

故事人生2010-04-30 15:25

回复 4楼 yms123

谢谢感谢,我在修改试试.

#6

hams2010-04-30 15:28

在其设定为VIP的时候就在该ID里记录一项VIP到期时间，每次登录时对比这个时间和当前的系统时间，如果VIP时间小于系统时间，就取消VIP功能。

#7

故事人生2010-05-02 20:29

    <%
  set cnhw=server.CreateObject("adodb.recordset")
  cnhw.open "select * from [user] where username='"&request.cookies("Cnhww")("username")&"' ",conn,1,1
  Dim UsName,rs
  UsName=Request.Form("UserName")'假设从表单提交过来
  Set rs=conn.Execute("select * from [User] Where UserName='"&UsName&"'")
  IF DateDiff("YYYY",Date(Now),rs("szshi"))>rs("vipdate") Then
     '将VIP降级为普通会员
     conn.Execute("Update [User] set reglx='1' Where UserName='"&UsName&"'")
  End IF
  rs.Close
  Set rs=Nothing
  conn.Close
  Set conn=Nothing
  %>

我是这样子测试的,reglx='1'为普通会员,reglx='2'VIP会员,szshi为数据库里一个不知名的列,我先测试用,我就没有在USER数据库里加入GroupName列.不知这样是否安全.
测试后登陆可以把过期VIP会员,不经人工操作即可降低成普通会员权根.
有点小问题就是,为何第一次登入还是显示VIP,要第二次退出登入才可以降级普通会员!
如果不退出就是VIP

[ 本帖最后由故事人生于 2010-5-2 20:30 编辑 ]

#8

yms1232010-05-02 20:37

那可能是你虽然降级了，但降级后应该再次数据库读取一下当前用户的信息，虽然数据库里的数据改变了，但页面数据没有跟数据库里的数据同步。所以可能就出现了不退出还是vip

#9

故事人生2010-05-02 20:38

回复 8楼 yms123

谢谢!谢谢版主这么及时的回答,哪我应当怎么样来加入代码重新在读取数据库,才能一登陆就可以降级权权为普通用户呢.我是菜鸟还是版主多多赐教.非常感谢!

#10

yms1232010-05-02 21:02

    <%
  set cnhw=server.CreateObject("adodb.recordset")
  cnhw.open "select * from [user] where username='"&request.cookies("Cnhww")("username")&"' ",conn,1,1
  Dim UsName,rs
  UsName=Request.Form("UserName")'假设从表单提交过来
  Set rs=conn.Execute("select * from [User] Where UserName='"&UsName&"'")
  IF DateDiff("YYYY",Date(Now),rs("szshi"))>rs("vipdate") Then
     '将VIP降级为普通会员
     conn.Execute("Update [User] set reglx='1' Where UserName='"&UsName&"'")
  End IF
  rs.Close
  Set rs=Nothing
  conn.Close
  Set conn=Nothing
  %>
这段降级代码所在页面的全部代码贴出来看一下。

#11

故事人生2010-05-02 21:03

#12

yms1232010-05-02 21:12

request.cookies("Cnhww")("username")=""
你这段代码里是使用cookies存的？里面只存了用户名？

#13

故事人生2010-05-02 21:14

以下是引用yms123在2010-5-2 21:12:29的发言：

request.cookies("Cnhww")("username")=""
你这段代码里是使用cookies存的？里面只存了用户名？

就是这样子的了.请版主赐教.

#14

yms1232010-05-02 21:25

user.asp页面还能使用VIP功能？

#15

故事人生2010-05-02 21:36

以下是引用yms123在2010-5-2 21:25:30的发言：

user.asp页面还能使用VIP功能？

我的USER.ASP代码如下,


<html><head><title><%=webname%>--我的专区</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <LINK href="eshop_img/css.css" type=text/css rel=stylesheet></head>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="980" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" class="menuer_linebg"></td>
  </tr>
</table>
<table width="980" height="200" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="21"></td>
    <td width="200" valign="top">
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="15"></td>
          </tr>
        </table>
        
        <table width="200" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="8"></td>
          </tr>
        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="15"></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td></td>
          </tr>
      </table></td>
    <td width="15"></td>
    <td width="720" valign="top"><table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
            <%xAction=lcase(request("action"))
    select case xAction
    case ""
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 我的信息</td>
            </tr>
            <%
    case "myinfo"
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 我的信息</td>
            </tr>
            <%
    case "userziliao"
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 个人资料</td>
            </tr>
            <%
    case "savepass"
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 修改密码</td>
            </tr>
                        <%
    case "viphd"
    %>
              <TR>
                <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> VIP活动</td>
              </tr>

                        <%
    case "sqvip"
    %>
              <TR>
                <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> VIP申请</td>
              </tr>


              <%
    case "dindan"
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 我的订单</td>
            </tr>
            <%
    case "shoucang"
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 我的收藏</td>
            </tr>
            <%
    case "jifen"
    %>
            <TR>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 我的积分</td>
            </tr>
            <%
    case else
    %>
            <tr>
              <td height=28 bgcolor="#f1f1f1">        <a href=index.asp><%=webname%></a> >> <%=request.cookies("Cnhww")("username")%> >> 专区首页</td>
            </tr>
            <%end select%>
          </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td> </td>
              </tr>
            </table>
            
            <%xAction=lcase(request("action"))
select case xAction
case ""
    call myinfo()
case "myinfo"
    call myinfo()
case "userziliao"
    call userziliao()
case "savepass"
    call savepass()
case "dindan"
    call dindan()
case "shoucang"
    call shoucang()
case "jifen"
    call jifen()
case "viphd"
    call viphd()
case "sqvip"
    call sqvip()
case "famess"
    call famess()
case "soumess"
    call soumess()
case else
%>
            <%end select%>
        </td>
      </tr>
    </table></td>
    <td width="24"> </td>
  </tr>
</table>
<table width="980"  border="0"  align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td></td>
  </tr>
</table>
</body>
</html>

#16

yms1232010-05-03 11:20

没看到你的读取用户信息的代码。

#17

故事人生2010-05-03 14:10

以下是引用yms123在2010-5-3 11:20:42的发言：

没看到你的读取用户信息的代码。

<%dim username,userpassword,comeurl,verifycode
username=replace(trim(request("username")),"'","")
userpassword=md5(replace(trim(request("userpassword")),"'",""))
verifycode=replace(trim(request("verifycode")),"'","")
if username="" or userpassword="" then
response.write "<script LANGUAGE='javascript'>alert('您的用户名或密码有误！');history.go(-1);</script>"
response.end
end if
if cstr(session("getcode"))<>cstr(trim(request("verifycode"))) then
response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码！');history.go(-1);</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where username='"&username&"' and userpassword='"&userpassword&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if userpassword=rs("userpassword") then
response.cookies("Cnhww")("username")=trim(request("username"))
response.cookies("Cnhww")("reglx")=rs("reglx")
response.cookies("Cnhww")("jifen")=rs("jifen")
response.cookies("Cnhww")("jiaoyijine")=rs("jiaoyijine")
rs("lastlogin")=now()
rs("logins")=rs("logins")+1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
set rs=nothing
username=trim(request("username"))
conn.execute("delete from orders where username='"&username&"' and zhuangtai=7")
conn.execute("delete from ordersaward where username='"&username&"' and zhuangtai=7")
if request("linkaddress")="" then
response.redirect request.servervariables("http_referer")
else
response.redirect request("linkaddress")
end if
else
response.write "<script LANGUAGE='javascript'>alert('对不起，您的用户名或密码有误！');history.go(-1);</script>"
end if
else
response.write "<script LANGUAGE='javascript'>alert('对不起！您的用户名或密码有误！');history.go(-1);</script>"
end if
sub loginok()
response.Write "欢迎您 <font color=red>"&request.cookies("Cnhww")("username")&"</font>"
response.redirect "index.asp"
end sub

%>

#18

yms1232010-05-03 19:59

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where username='"&UsName&"'" ,conn,1,3
if not(rs.bof and rs.eof) then
if userpassword=rs("userpassword") then
response.cookies("Cnhww")("username")=trim(request("username"))
response.cookies("Cnhww")("reglx")=rs("reglx")
response.cookies("Cnhww")("jifen")=rs("jifen")
response.cookies("Cnhww")("jiaoyijine")=rs("jiaoyijine")
rs("lastlogin")=now()
rs("logins")=rs("logins")+1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
set rs=nothing
降级后你要再执行一次这个代码

#19

故事人生2010-05-03 20:55

以下是引用yms123在2010-5-3 19:59:35的发言：

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from where username='"&UsName&"'" ,conn,1,3
if not(rs.bof and rs.eof) then
if userpassword=rs("userpassword") then
response.cookies("Cnhww")("username")=trim(request("username"))
response.cookies("Cnhww")("reglx")=rs("reglx")
response.cookies("Cnhww")("jifen")=rs("jifen")
response.cookies("Cnhww")("jiaoyijine")=rs("jiaoyijine")
rs("lastlogin")=now()
rs("logins")=rs("logins")+1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
set rs=nothing
降级后你要再执行一次这个代码

我上面的哪个文件里包含了,这段代码了.还是不行也.我在多测试测试.非常感谢版主的热心解答.

谢谢!

这代码是在前面哪个文件加会合适些呢?还是在最后这个文件里在加入这段代码?

[ 本帖最后由故事人生于 2010-5-3 21:00 编辑 ]

#20

yms1232010-05-04 00:16

要加在下面，加在降级代码上面没有意义