Dim CheckCode CheckCode = LCase(Trim(Request("CheckCode"))) If Trim(Session("CheckCode")) = "" Then FoundErr = True ErrMsg = ErrMsg & " <li>你在管理登錄停留的時(shí)間過(guò)長(zhǎng)，導(dǎo)致驗(yàn)證碼失效。請(qǐng)重新返回登錄頁(yè)面進(jìn)行登錄。 請(qǐng)返回上一頁(yè)手動(dòng)點(diǎn)擊驗(yàn)證碼刷新。</li>" End If If CheckCode <> Session("CheckCode") Then FoundErr = True ErrMsg = ErrMsg & " <li>您輸入的驗(yàn)證碼和系統(tǒng)產(chǎn)生的不一致，請(qǐng)重新輸入。請(qǐng)返回上一頁(yè)手動(dòng)點(diǎn)擊驗(yàn)證碼刷新。</li>" End If If FoundErr = True Then Call WriteErrMsg(ErrMsg,"ol") response.end End If
