查看: 2753|回复: 4

广告公司 FOR DVBBS 8.1

5314 主题	8320 帖子	1万积分

管理员

出售国内外虚拟空间

Rank: 10

积分: 14665
帖子: 8320
精华: 67
体力: 14665 点
蓝豆: 2391 点

注册时间: 2007-6-8

发表于 2007-11-20 12:07:08 | 显示全部楼层 |阅读模式

后插入以下代码：

三、动网文件修改(reg.asp) （必须）

1、打开 reg.asp 文件，在第一个<%前插入：

2、在490行左右找到 rs.addnew 语句前插入以下代码：

\'输入邀请码成功的处理代码
dim pc,rd
pc=Request.Form(\"postcode\")
if checkpostcode(Request.Form(\"postcode\")) and FindCodeID(pc)<>0 then \'输入的邀请码有效
\'增加点数
Pconn.Execute(\"Update [adv_broker] Set count_b=count_b+1,count_z=count_z+1 Where userid=\"&FindCodeID(pc))
Pconn.Execute(\"Update [adv_config] Set adv_click1=adv_click1+1 where adv_type=1\")

Else \'如果输入的注册邀请码无效，则判断是否开启了限制注册的功能
if chkregcode() then \'开启了邀请码限制注册功能！
Response.redirect \"showerr.asp?ErrCodes=

您填写的注册邀请码无效。&action=OtherErr\"
exit Sub
end if
end if
\'代码结束

3、找到 Dvbbs.Execute(\"UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser=\'\"&Dvbbs.HtmlEncode(username)&\"\'\")下面插入

Pconn.Execute(\"Update [adv_codes] Set isreg=1,regid=\"&rs(\"userid\")&\" where codes=\'\"&pc&\"\'\")

四、插件（全新）安装
1、将压缩包内的文件解压缩到论坛的根目录，后台建立连接 x_advcom.asp，即可完成安装

一、安装说明：

增加了生成注册邀请码功能
增加了发送邀请信的功能，在“查看我的邀请记录”功能中
增加了删除邀请码的功能，在“查看我的邀请记录”功能中

二、模板修改：（必须）

1、进入后台修改分页面模板(page_login)的template.html(13)

2、在

新用户注册

注册邀请码：
请填写您的邀请注册码！没有的话，可以留空