system_en-us.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=========================================================
' 文件：Index.asp
' 功能：为全站输出系统型错误
' 版本：爱雪儿内容管理系统 Version 1.1.0
' 时间：2006-01-09
' 作者：Guidy
' 版权：爱雪儿工作室 [iXuEr Studio]
'=========================================================
' Copyright (C) 2005-2008 iXuEr.Net All Rights Reserved .
' 官方网站：http://www.ixuer.net/
' 技术论坛：http://bbs.ixuer.net/
' 电子信箱：[e-mail]
'=========================================================
Option Explicit
Response.Buffer = True
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then Response.Redirect("../")

Dim ErrCode, ErrType, ErrorType, ErrMsg
Dim MyRootPath, mCacheName, i

mCacheName = Split("Admin,Member,Help,Article,News,Notice,Download,Music,Movie,Flash,Tools,Shop,Psy,Web,Bbs", ",")
For i = 0 To UBound(mCacheName)
	If InStr(UCase(Request.ServerVariables("SCRIPT_NAME")), UCase("/" & mCacheName(i) & "/")) Then
		MyRootPath = "../" : MyPath = mCacheName(i) & "/"
		Exit For
	End If
Next
Server.Execute(MyRootPath & "Error/System_ZH-CN.asp")
%>