system_zh-tw.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
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")
%>