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