论坛注册邀请码插件项目 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)
找到:<a href="myfile.asp">个人文件管理</a>紧跟着添加:<br /><a href="Dv_Plus_Invite_Apply.asp">申请邀请码</a>b.后台>风格界面>风格界面模板总管理>page_usermanager>界面风格>template.html(0)
找到:<li id="two8" onclick="setTab(8,'myfile.asp')">我的文件</li>下面添加:<li onclick="window.location='Dv_Plus_Invite_Apply.asp'">申请邀请码</li>用户登录前台，在“控制面板”下面点击“申请邀请码”，进入用户申请邀请码页面。
c.后台>风格界面>风格界面模板总管理>main_style界面风格>template.html(10)
找到：<br /><a href="recycle.asp">回收站</a>紧跟着添加：<br /><a href="Dv_Plus_Invite_Admin.asp">邀请码设置</a>添加后即变成：
<br /><a href="recycle.asp">回收站</a><br /><a href="Dv_Plus_Invite_Admin.asp">邀请码设置</a>
更新缓存，管理员登录前台，在“管理”下面点击“邀请码管理”链接，进入邀请码设置页面3． 打开reg.asp文件（修改前做好备份）
a.找到第一个<%修改为<!--#include file="Dv_Plus_Invite_ClsMain.asp"-->
<%
Dim DI_obj
Set DI_obj = New Cls_DI
DI_obj.Load_Setup()
If DI_obj.DI_IsOpen=1 Then '判断邀请码插件开关
DI_obj.Del_FailDate() '第二次更新撤掉此功能。不删除，修改为过期即标识为已使用
DI_obj.UpdateCodeStats(1) '判断邀请码使用时间
If Session("DI_Verify") Then _
DI_obj.UpdateCodeStats(3) '判断是否已使用
If Not Session("DI_Verify") Then _
Response.Redirect("Dv_Plus_Invite_Verify.asp")
End Ifb.找到：Dvbbs.Execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&Dvbbs.HtmlEncode(username)&"'")下面添加：If DI_obj.DI_IsOPen=1 Then '判断邀请码插件开关
DI_obj.UpdateCodeStats(2) '更新邀请码为已使用
Call DI_obj.SucAndGain(username,UserJoinTime,Session("DI_Code"),DI_obj.DI_UserGain1) '注册成功，赠送积分
Call DI_obj.DI_NoadSql("reg.asp","通过邀请码注册账号："&username)
End If**** Hidden Message ***** 卸载插件：
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
**** Hidden Message *****
页:
[1]