经查看代码，如果邮箱已经过认证，是不允许修改的。

您可以打开

user/user_editinfo.asp

找到以下代码

if KSUser.GetUserInfo("isemailrz")<>"1" Then

       Dim Email:Email=KS.S("Email")

      if KS.IsValidEmail(Email)=false then

       Response.Write("<script>$.dialog.tips('请输入正确的电子邮箱!',1,'error.gif',function(){parent.document.getElementById('Email').focus();});</script>")

       Exit Sub

      end if

      Dim EmailMultiRegTF:EmailMultiRegTF=KS.ChkClng(KS.Setting(28))

     If EmailMultiRegTF=0 Then

      Dim EmailRSCheck:Set EmailRSCheck = Conn.Execute("sel ect top 1 UserID from KS_User where UserName<>'" & KSUser.UserName & "' And Email='" & Email & "'")

      If Not (EmailRSCheck.BOF And EmailRSCheck.EOF) Then

       EmailRSCheck.Close:Set EmailRSCheck = Nothing

       Response.Write("<script>$.dialog.tips('您注册的Email已经存在！请更换Email再试试！',1,'error.gif',function(){parent.document.getElementById('Email').focus();});</script>")

       Exit Sub

      End If

      EmailRSCheck.Close:Set EmailRSCheck = Nothing

      End If

   end if

把红色的代码删除