Const ChannelID=0 Dim LanguageObj Set LanguageObj = Cl.Language.selectSingleNode("//ShowErr") Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text&"" & Cl.Web_info(0) & " >> "&Cl.Language.selectSingleNode("//ShowErr/Title").text Cl.Title= Cl.Web_info(1) & " >> "&LanguageObj.selectSingleNode("Title").text Dim action action=LCase(Trim(Request("action"))) if action="" then Response.write "非法操作,此操作已被禁止!" Response.end end If Template.ProjectID = Cl.ProjectID Template.TemplateID = 0 Template.CssID = Cl.CssID Call Template.Load(0,5) TempStr = Template.Html Select Case action Case "close" TempStr = Replace(TempStr,"{$errtitle}",LanguageObj.selectSingleNode("Close").text) TempStr = Replace(TempStr,"{$errmsg}",Cl.Web_Info(12)) TempStr = Replace(TempStr,"{$errbottom}",LanguageObj.selectSingleNode("CloseBottom").text) Case "iplock" TempStr = Replace(TempStr,"{$errtitle}",LanguageObj.selectSingleNode("IPLock").text) TempStr = Replace(TempStr,"{$errmsg}",LanguageObj.selectSingleNode("IPLockBody").text) TempStr = Replace(TempStr,"{$errbottom}",LanguageObj.selectSingleNode("IPLockBottom").text) Case else TempStr = Replace(TempStr,"{$errtitle}",LanguageObj.selectSingleNode("Other").text) TempStr = Replace(TempStr,"{$errmsg}",Cl.DeCode(Request("ErrCodes"),Trim(Cl.Web_Setting(10)))) TempStr = Replace(TempStr,"{$errbottom}",LanguageObj.selectSingleNode("OtherBottom").text) End Select Response.write Template.ReplaceAllFlag(TempStr) Set LanguageObj = Nothing CloseAllObj %>