8.0 修复邮件验证方法

蓝雨

共要修改2个文件

一个是reg.asp

把

If Dvbbs.Forum_Setting(25)=\"1\" Then
Rs(\"UserGroupID\")=5
Else
Rs(\"UserGroupID\")=Dvbbs.UserGroupID
End If

修改成

If Dvbbs.Forum_Setting(25)=\"1\" Then
Rs(\"UserGroupID\")=5
elseif Dvbbs.Forum_Setting(23)=\"1\" then
Rs(\"UserGroupID\")=6
Else
Rs(\"UserGroupID\")=Dvbbs.UserGroupID
End If

第二个是login.asp

把

If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then

修改成

If (rsUser(2)=1 and GroupID<>6 ) Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then