<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer= True
const ChannelID=0
%>
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<%
Cl.LoadTemplates("showerr")
Cl.Path = Cl.lanstr(1)&"<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a>&nbsp;&gt;&gt;&nbsp;"&Template.Strings(0)
Cl.Title= Cl.Web_info(1) & " >> "&Template.Strings(0)
Dim action
action=LCase(Trim(Request("action")))
if action="" then
	Response.write "非法操作，此操作已被禁止！"
	Response.end
end if
TempStr = Replace(Template.html(0),"{%width%}",cl.mainsetting(0))
Select Case action
Case "close"
	TempStr = Replace(TempStr,"{%errtitle%}",Template.Strings(1))
	TempStr = Replace(TempStr,"{%errmsg%}",Cl.Web_Info(12))
	TempStr = Replace(TempStr,"{%errbottom%}",Template.html(1))
Case "iplock"
	TempStr = Replace(TempStr,"{%errtitle%}",Template.Strings(2))
	TempStr = Replace(TempStr,"{%errmsg%}",Template.Strings(3))
	TempStr = Replace(TempStr,"{%errbottom%}",Template.html(2))
Case else
	TempStr = Replace(TempStr,"{%errtitle%}",Template.Strings(4))
	TempStr = Replace(TempStr,"{%errmsg%}",Cl.DeCode(Request("ErrCodes"),Trim(Cl.Web_Setting(10))))
	TempStr = Replace(TempStr,"{%errbottom%}",Template.html(3))
End Select
Response.write Cl.ReplaceAllFlag(TempStr)
CloseAllObj
%>
<%
'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.Net
'
'邮箱: aspoo@126.com		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>