If Conn.Execute("Select * From KS_User Where UserName='" & PreUserName & "'").eof then
Call KS.AlertHistory("设置失败:nn前台用户不存在，请重新输入！","-1")
Response.End
end if
UserName=KS.S("UserName")
IF UserName="" then
Call KS.AlertHistory("设置失败:nn没有输入管理账号，请输入！","-1")
Response.End
End If
PassWord=KS.S("PassWord")
IF PassWord="" then
Call KS.AlertHistory("设置失败:nn没有输入管理密码，请输入！","-1")
Response.End
End If
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")
