动网特殊版块功能的实现FOR8.2
可以分别实现1.VIP版块
2.版主版块
3.贵宾版块
修改文件为admin/BoardSetting.asp
<tr>
<td colspan=2 class=td1>
<U>特殊版块设置</U></td>
<td colspan=2 class=td1>
<input type=text size=10 name=\"Board_Setting(46)\" value=\"<%=Board_Setting(46)%>\">
</td>
<input type=\"hidden\" id=\"b46\" value=\"<b>特殊版块设置</b><br><li>如果是正常的版块请填写0，1为vip版块，2为版主板块，3为贵宾版块，千万别填错！\">
<td class=td1><a href=#class=\"helplink\"><img src=\"skins/images/help.gif\" border=0 title=\"点击查阅管理帮助！\"></a></td>
</tr>
<tr>
<td colspan=2 class=td1>
<U>是否隐藏论坛</U></td>
然后把这行代码删除
<input type=hidden value=\"<%=Board_Setting(46)%>\" name=\"Board_Setting(46)\">
这行代码是阳光会员的，动网已经放弃不用
然后修改inc/Dv_ClsOther.asp，请注意你论坛的vip的id不一定是30，具体情况具体修改
If Dvbbs.Board_Setting(46)=\"1\" Then
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@usergroupid\").text)<>30 Then Response.redirect \"showerr.asp?ShowErrType=\"&Dvbbs.ErrType&\"&ErrCodes=<li>本版面设置了VIP用户才能进入&action=OtherErr\"
End If
If Dvbbs.Board_Setting(46)=\"2\" Then
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@usergroupid\").text)>3 Then Response.redirect \"showerr.asp?ShowErrType=\"&Dvbbs.ErrType&\"&ErrCodes=<li>本版面设置了版主才能进入&action=OtherErr\"
End If
If Dvbbs.Board_Setting(46)=\"3\" Then
If Clng(Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@usergroupid\").text)<>8 Then Response.redirect \"showerr.asp?ShowErrType=\"&Dvbbs.ErrType&\"&ErrCodes=<li>本版面设置了贵宾才能进入&action=OtherErr\"
End If
\'访问论坛限制(包括文章、积分、金钱、魅力、威望、精华、被删数、注册时间)
[ 本帖最后由 蓝雨 于 2008-4-12 22:22 编辑 ]
页:
[1]