还有一处需要修改：

Response.Cookies(KS.SiteSn)("PassWord") = password

改成：

Response.Cookies(KS.SiteSn)("PassWord") = MD5(KS.R(PassWord),16)

否则只会注册，没有记住登录状态。