论坛注册邀请码插件项目 For Dvbbs8.3

蓝雨

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

插件中的文件与其作用：
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. 
   
2. <br /><a href="recycle.asp">回收站</a><br /><a href="Dv_Plus_Invite_Admin.asp">邀请码设置</a>
   
3. 更新缓存，管理员登录前台，在“管理”下面点击“邀请码管理”链接，进入邀请码设置页面

复制代码

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

复制代码

游客，如果您要查看本帖隐藏内容请回复

蓝雨

卸载插件：
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

游客，如果您要查看本帖隐藏内容请回复