Dim CheckCode CheckCode = LCase(Trim(Request("CheckCode"))) If Trim(Session("CheckCode")) = "" Then FoundErr = True ErrMsg = ErrMsg & " <li>你在管理登录停留的时间过长,导致验证码失效。请重新返回登录页面进行登录。 请返回上一页手动点击验证码刷新。</li>" End If If CheckCode <> Session("CheckCode") Then FoundErr = True ErrMsg = ErrMsg & " <li>您输入的验证码和系统产生的不一致,请重新输入。请返回上一页手动点击验证码刷新。</li>" End If If FoundErr = True Then Call WriteErrMsg(ErrMsg,"ol") response.end End If