If KSUser.UserLoginChecked()=false or KSUser.UserLoginChecked()=true Then

。。我改成了这样。并且把Response.Write "nologin"
Else

这些删除了。才不会出现可以重复顶的效果。。！