<%@language=vbscript codepage=936 %> <% Option Explicit Response.Buffer = True %> <% IF Action="Save" Then Dim CheckCode CheckCode = LCase(Trim(Request("CheckCode"))) If Trim(Session("CheckCode")) = "" Then FoundErr = True ErrMsg = ErrMsg & "

你在管理登录停留的时间过长，导致验证码失效。请重新返回登录页面进行登录。
请返回上一页手动点击验证码刷新。

" End If If CheckCode <> Session("CheckCode") Then FoundErr = True ErrMsg = ErrMsg & "

您输入的验证码和系统产生的不一致，请重新输入。请返回上一页手动点击验证码刷新。

" End If If FoundErr = True Then Call WriteErrMsg(ErrMsg,"ol") response.end End If End if Call CloseConn Call Main Sub Main() On Error Resume Next Dim PE_Comment Set PE_Comment = Server.CreateObject("PE_Common6.Comment") If Err Then Err.Clear Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。" Exit Sub End If PE_Comment.iConnStr = ConnStr PE_Comment.iSystemDatabaseType = SystemDatabaseType PE_Comment.CurrentChannelID = ChannelID Call PE_Comment.Execute Set PE_Comment = Nothing If Err Then Response.Write "错 误 号：" & Err.Number & "
" Response.Write "错误描述：" & Err.Description & "
" Response.Write "错误来源：" & Err.Source & "
" Err.Clear End If End Sub IF Action="Save" Then Session("CheckCode") = "" End If %>