<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
Dim ErrString,action
action=Request("action")
Dvbbs.LoadTemplates("showerr")
Select Case action
	Case "stop"'论坛暂停
		Dvbbs.Stats=Template.Strings(1)
		Dvbbs.head()
		template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(2)&Template.Strings(1))
		Dim Otime
		Otime= Request("time")
		If Otime ="" Then 
			template.html(2)=Replace(template.html(2),"{$stopreadme}",Stopreadme)
		Else
			Otime=split(Otime,",")
			template.Strings(3)=Replace(template.Strings(3),"{$stime}",otime(0))
			template.Strings(3)=Replace(template.Strings(3),"{$etime}",otime(1))
			template.html(2)=Replace(template.html(2),"{$stopreadme}",template.Strings(3))
			
		End If 
		Response.Write Template.html(2)
	Case "iplock"'IP被限
		Dvbbs.Stats=Template.Strings(4)
		Dvbbs.head()
		Session(Dvbbs.CacheName & "UserID")=empty 
		template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(4))
		Template.Strings(5)=replace(Template.Strings(5),"{$ip}",Dvbbs.usertrueip)
		Template.Strings(5)=replace(Template.Strings(5),"{$email}",Dvbbs.Forum_Info(5))
		template.html(2)=Replace(template.html(2),"{$stopreadme}",Template.Strings(5))
		Response.Write Template.html(2)
	Case "limitedonline"'在线被限
		Dvbbs.Stats=Template.Strings(4)
		Dvbbs.head()
		template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(23))
		template.html(2)=Replace(template.html(2),"{$stopreadme}",Replace(Template.Strings(22),"{$onlinelimited}",Request("lnum")))
		Response.Write Template.html(2)
	Case "OtherErr"
		Dvbbs.Stats=action&"-"&Template.Strings(0)
		Dvbbs.head()
		Dvbbs.showtoptable()
		Dvbbs.Head_var 0,"",Template.Strings(0),""
		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}",Request("ErrCodes"))
		Response.Write Template.html(0)
		If dvbbs.userid=0 Then 
			Response.Write Template.html(1)
		End If
		Dvbbs.ActiveOnline()
		Dvbbs.footer()	
	Case Else
		Dvbbs.Stats=action
		Dvbbs.head()
		Dvbbs.showtoptable()
		Dvbbs.Head_var 0,"",Template.Strings(0),""
		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 Then 
			Response.Write Template.html(1)
		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 ErrCodes,i
	ErrCount=0
	ErrCodes=Request("ErrCodes")
	If ErrCodes<>"" Then
		ErrCodes=Split(ErrCodes,",")
		For i=0 to UBound(ErrCodes)
			If ErrCodes(i)<>"" Then 
				If i=0 Then
				ErrString=ErrString&"<li>"&ErrCodes(i)
				Else
				ErrString=ErrString&"<br><li>"&ErrCodes(i)
				End If
				ErrCount=ErrCount+1
			End If 
		Next 
	End If 
End Function 
%>