修改User/CheckUserlogin.asp 文件

Response.Write("<script>alert('验证码有误，请重新输入！');history.back();</script>")
       Exit Sub
   End IF
           dim Sdays,BeginDate
   PassWord=MD5(PassWord,16)
   Dim UserRS:Set UserRS=Server.CreateObject("Adodb.RecordSet")
    UserRS.Open "Select * From KS_User Where UserName='" &UserName & "' And PassWord='" & PassWord & "'",Conn,1,3
    BeginDate=UserRS("BeginDate")
    Sdays=UserRS("Edays")-DateDiff("D",BeginDate,now())
    If UserRS.Eof And UserRS.BOf Then
      Response.Write("<script>alert('你输入的用户名或密码有误，请重新输入！');history.back();</script>")
      UserRS.Close:Set UserRS=Nothing
     Exit Sub
   ElseIf UserRS("Locked")=1 Then
      Response.Write("<script>alert('您还没有参加任何VIP营，请与我们的客服联系！');history.back();</script>")
      Exit Sub
    ElseIf Sdays<0 and UserRs("ChargeType")=2 Then
      Response.Write("<script>alert('您的营地账号已经过期，请及时续费！');history.back();</script>")
      Exit Sub
    Else

第一处红色  增加定义变量

第二处红色 Select KS_User 所有字段

第三处红色 增加剩余天数运算

第四处红色 判断剩余天数<0  并且 计费方式为 有效期 的，将不能登陆(否则无限期管理员都不能登陆了，呵~)

研究一下午了，终于调试成功，第一时间发布上来，与大家分享！