给会员注册添加一个开关功能
给会员注册添加一个开关功能，后台可以选择注册用户默认是否通过审核。
本次修改适合FoosunCMS v3.*版本，修改前请备份自己的数据库和相关文件
1、在数据库中FS_Config表中添加一个字段：def_IsLockUser (是/否)
2、修改文件
/Users/sRegister_Success.asp找到
“
RsUserAddObj("ShopPoint") =RsConfigObj("SendPoint") '注册送金币”
下面
添加“
'添加判断是否注册不通过审核
If RsConfigObj("def_IsLockUser") Then
RsUserAddObj("Lock")=1
Else
RsUserAddObj("Lock")=0
End IF
”
===============================================
找到
“
Set RsConfigObj = Conn.Execute("Select SiteName,UserConfer,Copyright,isEmail,SendPoint from FS_Config")”
修改为“
Set RsConfigObj = Conn.Execute("Select SiteName,UserConfer,Copyright,isEmail,SendPoint,Def_IsLockUser from FS_Config")”
===============================================
找到
“
RsUserAddObj.Update”
下面添加
“
If RsConfigObj("def_IsLockUser") Then Response.Redirect "/"”
'////////////////////////////////////////////////////////////////////////
/Foosun/Admin/System/sysParameter.asp找到
“
RsConfig("IndexExtName")=Replace(Replace(request.form("IndexExtName"),"'",""),"""","")”
下面
添加“
'增加一个系统参数，默认注册是否通过审核
if Request.form("def_IsLockUser")=1 then
RsConfig("def_IsLockUser") = 1
Else
RsConfig("def_IsLockUser") = 0
End If”
===============================================
找到
“
<tr valign="middle" bgcolor="#f2f2f2">
<td height="21" colspan="2"><strong>会员参数</strong></td>”
下面
增加“
<!------------------修改：默认注册是否通过审核---------------------------->
<tr valign="middle" bgcolor="#F5F5F5">
<td height="21" > <div align="right">注册默认</div></td>
<td width="613" height="21" bgcolor="#F5F5F5"> <input name="def_IsLockUser" value=1 type=radio <%If RsConfig("def_IsLockUser") Then Response.write "checked"%> >不通过审核 <input name="def_IsLockUser" value=0 type=radio <%If RsConfig("def_IsLockUser")=0 Then Response.write "checked"%> >通过审核</td></tr>”
'/////////////////////////////////////////////////////////////////////////////////
/Users/register_Success.asp找到
“
%>
<HTML><HEAD>”
上面
添加“
'修改注册成功后的返回地址和提示信息
Dim retUrl,ReportMsg
If RsConfigObj("def_IsLockUser") Then
retUrl = "/"
ReportMsg = "注册会员需要通过审核才可以进入，10秒后返回<a href='/'>返回首页</a>"
Else
retUrl = "main.asp"
ReportMsg = "10秒后返回<a href=""main.asp""><font color=""#FF0000"">会员中心主页</font></a> "
End If”
'===========================================
找到
“
<meta http-equiv="refresh" content="10;URL=main.asp">”
替换“
<meta http-equiv="refresh" content="10;URL=<%=retUrl%>">”
'===========================================
找到
“
%>
10秒后返回<a href="main.asp"><font color="#FF0000">会员中心主页</font></a>
”
替换“
'注册后的返回信息
Response.write ReportMsg
%>”
[upload=rar]viewFile.asp?ID=2145[/upload]
这个功能用处不大，也可以说是没有用，写来玩玩而已。
[此贴子已经被作者于2005-12-25 20:26:04编辑过]
