请选择 进入手机版 | 继续访问电脑版
 找回密码
 注册
查看: 12230|回复: 2
收起左侧

[分享] 论坛注册邀请码插件项目 For Dvbbs8.3

  [复制链接]

5311

主题

8316

帖子

1万

积分

管理员

出售国内外虚拟空间

Rank: 10Rank: 10Rank: 10

积分
14658
帖子
8316
精华
67
体力
14658 点
蓝豆
2391 点
注册时间
2007-6-8

终身成就奖LY官方团队会员身份ID卡

发表于 2010-4-1 18:41:00 | 显示全部楼层 |阅读模式
1.gif

新注册用户需要得到一个邀请码,使用该邀请码通过一道注册防线后,才进行论坛的正常注册页面。
第一个用户注册成功后,该用户满足已设定条件后可以在控制面板中,消耗其相应积分“申请邀请码”,
并发送给下一个新注册用户。起到促进效果,没有得到邀请码的垃圾注册用户,当然就注册不了。
后台论坛系统日志中记录邀请码相关操作,方便查看,过期邀请码会被自动清理掉。
管理员登录前台,即有权限进行邀请码设置与管理。

插件中的文件与其作用:
Dv_Plus_Invite_Install.asp——安装与卸载
Dv_Plus_Invite_Admin.asp——邀请码设置
Dv_Plus_Invite.asp——管理员创建/管理邀请码
Dv_Plus_Invite_ClsMain.asp——插件主类
Dv_Plus_Invite_Apply.asp——注册用户申请邀请码
Dv_Plus_Invite_Verify.asp——验证邀请码

插件安装:
1. 将程序上传至论坛根目录,访问http://论坛地址/Dv_Plus_Invite_Install.asp进行安装,安装成功可将该文件删除。
2. 修改模板(修改前做好备份):
a.后台>风格界面>风格界面模板总管理>main_style>界面风格>template.html(17)
找到:
  1. <a href="myfile.asp">个人文件管理</a>
复制代码
紧跟着添加:
  1. <br /><a href="Dv_Plus_Invite_Apply.asp">申请邀请码</a>
复制代码
b.后台>风格界面>风格界面模板总管理>page_usermanager>界面风格>template.html(0)
找到:
  1. <li id="two8" onclick="setTab(8,'myfile.asp')">我的文件</li>
复制代码
下面添加:
  1. <li onclick="window.location='Dv_Plus_Invite_Apply.asp'">申请邀请码</li>
复制代码
用户登录前台,在“控制面板”下面点击“申请邀请码”,进入用户申请邀请码页面。
c.后台>风格界面>风格界面模板总管理>main_style界面风格>template.html(10)
找到:
  1. <br /><a href="recycle.asp">回收站</a>
复制代码
紧跟着添加:
  1. <br /><a href="Dv_Plus_Invite_Admin.asp">邀请码设置</a>
复制代码
添加后即变成:

  1. <br /><a href="recycle.asp">回收站</a><br /><a href="Dv_Plus_Invite_Admin.asp">邀请码设置</a>
  2. 更新缓存,管理员登录前台,在“管理”下面点击“邀请码管理”链接,进入邀请码设置页面
复制代码
3. 打开reg.asp文件(修改前做好备份)
a.找到第一个
  1. <%
复制代码
修改为
  1. <!--#include file="Dv_Plus_Invite_ClsMain.asp"-->
  2. <%
  3. Dim DI_obj
  4. Set DI_obj = New Cls_DI
  5. DI_obj.Load_Setup()
  6. If DI_obj.DI_IsOpen=1 Then '判断邀请码插件开关
  7. DI_obj.Del_FailDate() '第二次更新撤掉此功能。不删除,修改为过期即标识为已使用
  8. DI_obj.UpdateCodeStats(1) '判断邀请码使用时间
  9. If Session("DI_Verify") Then _
  10.   DI_obj.UpdateCodeStats(3) '判断是否已使用
  11. If Not Session("DI_Verify") Then _
  12.   Response.Redirect("Dv_Plus_Invite_Verify.asp")
  13. End If
复制代码
b.找到:
  1. Dvbbs.Execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&Dvbbs.HtmlEncode(username)&"'")
复制代码
下面添加:
  1. If DI_obj.DI_IsOPen=1 Then '判断邀请码插件开关
  2. DI_obj.UpdateCodeStats(2) '更新邀请码为已使用
  3. Call DI_obj.SucAndGain(username,UserJoinTime,Session("DI_Code"),DI_obj.DI_UserGain1) '注册成功,赠送积分
  4. Call DI_obj.DI_NoadSql("reg.asp","通过邀请码注册账号:"&username)
  5. End If
复制代码
游客,如果您要查看本帖隐藏内容请回复
出售国内或美国高性能虚拟空间,高速VPS以及服务器! 同时承接各种类型的网站制作,网站维护,支付宝交易安全放心!    联系QQ:6102031

5311

主题

8316

帖子

1万

积分

管理员

出售国内外虚拟空间

Rank: 10Rank: 10Rank: 10

积分
14658
帖子
8316
精华
67
体力
14658 点
蓝豆
2391 点
注册时间
2007-6-8

终身成就奖LY官方团队会员身份ID卡

 楼主| 发表于 2010-4-1 18:41:32 | 显示全部楼层
卸载插件:
1. 上传Dv_Plus_Invite_Install.asp卸载安装时添加的表。
2. 删除安装上传的文件:
Dv_Plus_Invite_Install.asp
Dv_Plus_Invite_Admin.asp
Dv_Plus_Invite.asp
Dv_Plus_Invite_ClsMain.asp
Dv_Plus_Invite_Apply.asp
Dv_Plus_Invite_Verify.asp
游客,如果您要查看本帖隐藏内容请回复
出售国内或美国高性能虚拟空间,高速VPS以及服务器! 同时承接各种类型的网站制作,网站维护,支付宝交易安全放心!    联系QQ:6102031
hudiednf 该用户已被删除
发表于 2010-12-15 20:28:40 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
懒得打字嘛,点击右侧快捷回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

网站公告上一条 /2 下一条

GMT+8, 2024-3-29 05:24 , Processed in 0.125000 second(s), 34 queries , Gzip On.

© 2006-2022 Powered by Discuz! X3.4

快速回复 返回顶部 返回列表