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

     Sub EditSave()
       Dim UserName,password,conpassword
            UserName=KS.S("UserName")
            IF UserName="" then 
                 Call KS.AlertHistory("设置失败:nn没有输入管理账号，请输入！","-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("设置失败:nn密码不能少于6位，请重新输入！","-1")
                 Response.End
                End If

                ConPassWord=KS.S("ConPassWord")
                IF PassWord<>ConPassWord then 
                 Call KS.AlertHistory("设置失败:nn两次输入密码不一致，请重新输入！","-1")
                 Response.End
                End If
                PassWord =MD5(KS.R(Request.form("PassWord")),16)    
                Conn.Execute("Update KS_Admin Set [password]='" & password & "' Where Supertf='1'")
         End If 
                response.write "<div align='center'>恭喜，后台管理员修改成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
    End Sub