kesion科讯V4.0管理员Key工具(9)

              Conn.Execute("Update KS_User Set GroupID=4 where username='" & PreUserName & "'")
                KS.DelCaches(KS.SiteSN)
                response.write "<div align='center'>恭喜，后台管理员设置成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
     End Sub

     Sub EditSave()
       Dim UserName,password,conpassword
            UserName=KS.S("UserName")
            IF UserName="" then 
                 Call KS.AlertHistory("设置失败:\n\n没有输入管理账号，请输入！","-1")
                 Response.End
            End If
          Conn.Execute("Update KS_Admin Set UserName='" & UserName & "' Where Supertf='1'")

             PassWord=KS.S("PassWord")
            IF PassWord<>"" then 
                IF Len(PassWord)<6 then 
                 Call KS.AlertHistory("设置失败:\n\n密码不能少于6位，请重新输入！","-1")
                 Response.End
                End If

                ConPassWord=KS.S("ConPassWord")
                IF PassWord<>ConPassWord then 
                 Call KS.AlertHistory("设置失败:\n\n两次输入密码不一致，请重新输入！","-1")
                 Response.End