const.asp

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

<!--#include file="iXs_ClsMain.asp" -->
<%
Dim iXs, mCacheName, Temp, TempHtml, Templates, CharSet
Dim i, ValStr

mCacheName = Split("Admin,Member,Help,UpLoad,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

Set iXs = New iXuEr_CMSCore
CharSet = iXs.Main_Setting(4)
Set Templates = New iXuEr_CMSSkins

' 加载主模块模板
Call Templates.Load("Main_Style")
Templates.Path = MyPath
' 上传系统参数设置
' ----------------------------------------------------------------------------------------
Dim FileSavePath, FileUpMaxNum, FileAllowExt, FileMaxSize, FilePrevPath, UpFileObject
Dim PreviewFormName, GetCodeFormName, HaveGetCode, CreatPreview
Dim MainFileDir, UpLoaddingDataDir, MyUpLoadDir, MyUpLoadPath

mCacheName = Split(Request.ServerVariables("SCRIPT_NAME"), "/")
For i = 0 To UBound(mCacheName) - 2
	MyUpLoadPath = MyUpLoadPath & mCacheName(i) & "/"
Next
'MyUpLoadDir 		= "/iXuEr_UpLoad/" ' 从根目录到UpLoad的路径
' 以下路径必须是绝对根路径
MainFileDir 		= MyUpLoadPath & "UpLoadFile/" ' 文件主目录
UpLoaddingDataDir 	= MyUpLoadPath & "UpLoadFile/UpLoadData/" ' 无组件上传进度文件所在的文件夹

FileSavePath 		= "/" ' 保存路径
FilePrevPath 		= MyUpLoadPath & "UpLoadFile/PreviewImage/" ' 预览图保存路径

CreatPreview 		= 0' 是否允许生成水印、缩略图 属于强制性选项，0=强制全否，1=强制全是，2=默认为否但允许客户端自选，3=默认为是但允许客户端自选 推荐选3
HaveGetCode 		= 0 ' 是否采用验证码机制 1=是
PreviewFormName 	= "MakePreviewImage" ' 缩略图选项表单主名称（不得包含随后的数字，如果您对代码不熟悉，那么请不要改动此项）
GetCodeFormName 	= "iXs_GetCode" ' 验证码表单名称
UpFileObject 		= 0 ' 设置上传组件类型（0=无组件上传类，1=AspUpLoad3.0 ,2=SA-FileUp 4.0 ,3=DvFile.UpLoad V1.0
FileUpMaxNum 		= 10 ' 设置一次最多上传的文件数
FileAllowExt 		= "bmp|gif|jpg|jpeg|png" ' 文件类型
FileMaxSize  		= 409600 ' 文件大小限制
' ----------------------------------------------------------------------------------------

' ============================================
' 函数名称：SystemError
' ============================================
Sub SystemError(p_Msg, p_Type)
	On Error Resume Next
	Response.Clear()
	Session("iXuEr_CMS_ErrorType") = p_Type
	Session("iXuEr_CMS_SystemError") = p_Msg
	Dim FileName
	Select Case CharSet
		Case "zh-cn" ' 繁体中文 zh-tw
			FileName = "System_ZH-CN.asp"
		Case "en-tw" ' 英文 en-us
			FileName = "System_ZH-TW.asp"
		Case Else ' 默认：简体中文 zh-cn
			FileName = "System_EN-US.asp"
	End Select
	Server.Execute(MyRootPath & "Error/" & FileName)
	Response.End()
End Sub
%>