烟雨江南

首页 » 社区&站务 » 『 江南站务 』 » 『 江南工作室 』 » = 技术工作室 = » 轻松实现限制每日所发主题数而不限制回贴数
霸王枪 - 2004-6-11 13:00:00

论坛后台管理功能中只有用户组限制每日发贴功能,没有限制每日发主题功能。现作如下修改可以实现对某一用户组每日所发主题数的限制,而不限制其每日回贴数。


修改二个文件post.asp及savepost.asp
post.asp中
If Clng(Dvbbs.GroupSetting(62))<=Clng(Dvbbs.UserToday(0)) Then Response.redirect "showerr.asp?ErrCodes=<li>"&Replace(template.Strings(27),"{$topiclimited}",Dvbbs.GroupSetting(62))&"&action=OtherErr"
  End If
改成
If Clng(Dvbbs.GroupSetting(62))<=Clng(Dvbbs.UserToday(0)) and (action=1) Then Response.redirect "showerr.asp?ErrCodes=<li>"&Replace(template.Strings(27),"{$topiclimited}",Dvbbs.GroupSetting(62))&",达到后,你不能发主题,但可以回贴。&action=OtherErr"
  End If
在savepost.asp中
If Clng(Dvbbs.GroupSetting(62))<=Clng(Dvbbs.UserToday(0)) Then Response.redirect "showerr.asp?ErrCodes=<li>"&Replace(template.Strings(27),"{$topiclimited}",Dvbbs.GroupSetting(62))&"&action=OtherErr"
  End If


改成
If Clng(Dvbbs.GroupSetting(62))<=Clng(Dvbbs.UserToday(0)) and (action=1 or action=5) Then Response.redirect "showerr.asp?ErrCodes=<li>"&Replace(template.Strings(27),"{$topiclimited}",Dvbbs.GroupSetting(62))&"&action=OtherErr"
  End If
然后可以在后台管理中,设置用户组权限,比如说将注册用户每日发贴限制改成10,那么此人当天最多发10个主题,但回复不限。如果一个主题未发就回复10贴以上者,当天就无法再发主题了!这一点还不完美,希望有高手能修改!

1
查看完整版本: 轻松实现限制每日所发主题数而不限制回贴数