不知道细心的用户有没有发现，如果在系统里设置为不允许相同的邮件注册会员后，在用户注册时，就不允许有重复的邮件地址进行注册，这可以保证会员邮件地址的唯一性，但是，因为系统检测不严谨，导致在用户修改资料的时候可以更改成和别的会员相同的邮件地址，这就失去了邮件地址唯一性的目的，现在给出解决办法。

      打开系统目录下的/Member/User_EditInfo.asp的这个文件，在文件的第83行下面(注：如果有客户对此文件进行过更改可以找到

    
     Dim Email:Email=KSCMS.G("Email")
     if KSCMS.IsValidEmail(Email)=false then
      Response.Write("<script>alert('请输入正确的电子邮箱!');history.back();</script>")
      Exit Sub
     end if

这一段代码，在此代码后加入如下代码即可):

加入以下代码:

===================================代码开始============================

Dim EmailMultiRegTF:EmailMultiRegTF=KSCMS.GetConfig("EmailMultiRegTF")

If EmailMultiRegTF=1 Then

   
            Dim EmailRSCheck,UserRs
            Set UserRs = Conn.Execute("select Email from KS_User where UserName='" & KSUser.Get_username & "'")
            Set EmailRSCheck = Conn.Execute("select userID from KS_User where Email='" & Email & "'")
       if Email <> UserRs("Email") then
            If not (EmailRSCheck.eof and EmailRSCheck.bof) Then
                   EmailRSCheck.Close
                   Set EmailRSCheck = Nothing
                   Response.Write("<script>alert('您修改的Email已经存在！请更换Email再试试！');history.back();</script>")
                   Exit Sub
            End If
            EmailRSCheck.Close
            Set EmailRSCheck = Nothing
            UserRs.Close
            Set UserRs = Nothing
       end if
end if

===================================代码结束============================

[此贴子已经被作者于2006-6-7 11:08:02编辑过]

支持