showerr.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<%
Const ChannelID=0
Dim LanguageObj
Set LanguageObj = Cl.Language.selectSingleNode("//ShowErr")
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text&"<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; "&Cl.Language.selectSingleNode("//ShowErr/Title").text
Cl.Title= Cl.Web_info(1) & " &gt;&gt; "&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
%>
<%
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>