呵呵，好像还有问题的，编辑博文后发布会提示“验证码输入不正确”。在Sub DoSave()这段函数里面好像霉看见ValidCode输出。暂时我加了句代码

ValidCode=KS.S("ValidCode")

你再测试下。