џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџmplate.html(0),"{$ErrCount}",1) template.html(0)=Replace(template.html(0),"{$ErrString}",ErrCodes) If Request("autoreload")=1 Then Response.Write "" End If Response.Write Template.html(0) If dvbbs.userid=0 and Dvbbs.ErrType <> 1 and Request("autoreload")<>1 Then Response.Write Replace(Template.html(1),"{$comeurl}",ComeUrl) End If Dvbbs.ActiveOnline() Dvbbs.footer() Case "iOtherErr" 'ЯдЪОЖЅВПМАЕМКНЕФДэЮѓаХЯЂЬсЪОЃЌПЩЪЙгУhtmlгяЗЈ ErrCodes=CheckErrCodes(Request("ErrCodes"),1) Dvbbs.Stats=action&"-"&Template.Strings(0) Dvbbs.head() If ShowErrType<>"1" Then Dvbbs.showtoptable() Dvbbs.Head_var 0,"",Template.Strings(0),"" End If template.html(0)=Replace(template.html(0),"{$color}",Dvbbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Dvbbs.Forum_Info(0)&"-"&Dvbbs.Stats) template.html(0)=Replace(template.html(0),"{$action}","ЗУЮЪТлЬГ") template.html(0)=Replace(template.html(0),"{$ErrCount}",1) template.html(0)=Replace(template.html(0),"{$ErrString}",ErrCodes) If Request("autoreload")=1 Then Response.Write "" End If Response.Write Template.html(0) If dvbbs.userid=0 and Dvbbs.ErrType <> 1 and Request("autoreload")<>1 Then Response.Write Replace(Template.html(1),"{$comeurl}",ComeUrl) End If Dvbbs.ActiveOnline() Dvbbs.footer() Case "NoHeadErr" 'ВЛЯдЪОЖЅВПМАЕМКНЕФДэЮѓаХЯЂЬсЪО ErrCodes=CheckErrCodes(Request("ErrCodes"),0) Dvbbs.Stats=action&"-"&Template.Strings(0) Dvbbs.head() template.html(0)=Replace(template.html(0),"{$color}",Dvbbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Dvbbs.Forum_Info(0)&"-"&Dvbbs.Stats) template.html(0)=Replace(template.html(0),"{$action}","ЗУЮЪТлЬГ") template.html(0)=Replace(template.html(0),"{$ErrCount}",1) template.html(0)=Replace(template.html(0),"{$ErrString}",ErrCodes) If Request("autoreload")=1 Then Response.Write "" End If Response.Write Template.html(0) If dvbbs.userid=0 and Dvbbs.ErrType <> 1 and Request("autoreload")<>1 Then Response.Write Replace(Template.html(1),"{$comeurl}",ComeUrl) End If Dvbbs.ActiveOnline() Dvbbs.footer() Case "readonly" Dvbbs.Stats="ЕБЧАТлЬГЮЊжЛЖС" Dvbbs.head() If ShowErrType<>"1" Then Dvbbs.showtoptable() Dvbbs.Head_var 1,Dvbbs.boardtype,"","" End If template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(2)&"ЕБЧАЪБМфТлЬГЮЊжЛЖС") If Dvbbs.BoardID>0 Then If Dvbbs.Board_Setting(21)="2" Then Dvbbs.Board_Setting(22)=Split(Dvbbs.Board_Setting(22),"|") showstr="
  "&Dvbbs.boardtype&"ЩшжУСЫЕБЧАЪБМфЮЊЪЧЗёжЛЖСзДЬЌЃЌЧыдкЙцЖЈЕФЪБМфФкЗЂЬљЃК
" End If End If If Dvbbs.Forum_Setting(69) ="2" Then Dvbbs.Forum_Setting(70)=Split(Dvbbs.Forum_Setting(70),"|") showstr="
  "&Dvbbs.Forum_Info(0)&"ЩшжУСЫЕБЧАЪБМфЮЊЪЧЗёжЛЖСзДЬЌЃЌЧыдкЙцЖЈЕФЪБМфФкЗЂЬљЃК
" 'template.html(2)=Replace(template.html(2),"{$stopreadme}",showstr) End If template.html(2)=Replace(template.html(2),"{$stopreadme}",showstr) Response.Write Template.html(2) Dvbbs.ActiveOnline() Dvbbs.footer() Case "lock" Dvbbs.Stats="ТлЬГвбЫјЖЈ" Dvbbs.head() If ShowErrType<>"1" Then Dvbbs.showtoptable() Dvbbs.Head_var 0,"",Dvbbs.boardtype,"" End If template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(2)&"ТлЬГвбЫјЖЈ") template.html(2)=Replace(template.html(2),"{$stopreadme}","БОТлЬГвбО­БЛЫјЖЈЃЌВЛдЪаэЗЂЬљЛиЬљЁЃ") Response.Write Template.html(2) Dvbbs.ActiveOnline() Dvbbs.footer() Case "plus" ErrCodes=CheckErrCodes(Request("ErrCodes"),0) Dvbbs.Stats=action&"-"&Template.Strings(0) Dvbbs.head() If ShowErrType<>"1" Then Dvbbs.showtoptable() Dvbbs.Head_var 0,"",Template.Strings(0),"" End If template.html(0)=Replace(template.html(0),"{$color}",Dvbbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Dvbbs.Forum_Info(0)&"-"&Dvbbs.Stats) template.html(0)=Replace(template.html(0),"{$action}","ЪЙгУТлЬГВхМў") template.html(0)=Replace(template.html(0),"{$ErrCount}",1) template.html(0)=Replace(template.html(0),"{$ErrString}",ErrCodes) Response.Write Template.html(0) If dvbbs.userid=0 and Dvbbs.ErrType <> 1 Then Response.Write Replace(Template.html(1),"{$comeurl}",ComeUrl) End If Dvbbs.ActiveOnline() Dvbbs.footer() Case Else Dvbbs.Stats = Action & Template.Strings(0) Dvbbs.head() If ShowErrType<>"1" Then Dvbbs.showtoptable() Dvbbs.Head_var 0,"",Template.Strings(0),"" End If template.html(0)=Replace(template.html(0),"{$color}",Dvbbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Dvbbs.Forum_Info(0)&"-"&Dvbbs.Stats) template.html(0)=Replace(template.html(0),"{$action}",action) template.html(0)=Replace(template.html(0),"{$ErrCount}",ErrCount) template.html(0)=Replace(template.html(0),"{$ErrString}",ErrString) Response.Write Template.html(0) If dvbbs.userid=0 and Dvbbs.ErrType <> 1 Then Response.Write Replace(Template.html(1),"{$comeurl}",ComeUrl) End If Dvbbs.ActiveOnline() Dvbbs.footer() End Select Function Stopreadme() Dim Setting Setting=Dvbbs.CacheData(1,0) Setting=split(Setting,"|||") Stopreadme=Setting(5) End Function Function ErrCount() Dim i ErrCount=0 ErrCodes=Request("ErrCodes") If ErrCodes<>"" Then ErrCodes=Split(ErrCodes,",") For i=0 to UBound(ErrCodes) If IsNumeric(ErrCodes(i)) Then If i=0 Then ErrString=ErrString&"
  • "&Template.Strings(ErrCodes(i)) Else ErrString=ErrString&"
  • "&Template.Strings(ErrCodes(i)) End If ErrCount=ErrCount+1 End If Next End If End Function Function CheckErrCodes(ErrCode,sType) Dim Re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(a.[^>]*|\/a|li|br|B|\/li|\/B)>" ErrCode=re.Replace(ErrCode,"[$1]") If sType = 0 Then ErrCode=Server.htmlencode(ErrCode) End If re.Pattern="\[(a.[^\]]*|\/a|li|br|B|\/li|\/B)\]" ErrCode=re.Replace(ErrCode,"<$1>") Set Re=Nothing CheckErrCodes=ErrCode End Function %>