?? upfile.asp

?? 購(gòu)物系統(tǒng)(本版為正式商業(yè)版
?? ASP
?? 第 1 頁(yè) / 共 3 頁(yè)
字號(hào):
12 3 下一頁(yè)
<!--#include FILE="Upload.inc"-->
<%if session("username")="" and session("admin")="" then%>
<script language="javascript">
 window.alert("警告：非法操作！");
 window.close();
</script>
<%response.end
end if%>
<%
'-----------------------------------------------------------------------
'--- 動(dòng)感購(gòu)物上傳處理類(lèi)模塊（模糊視線(xiàn)）
'--- Copyright (c) 2005 Snsn.Net, Inc.
'--- Mail: web@163.net   http://www.9911.com.cn
'--- 2005-9-14
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-- InceptFileType	: 設(shè)置上傳類(lèi)型屬性 (以逗號(hào)分隔多個(gè)文件類(lèi)型) String
'-- MaxSize			: 設(shè)置上傳文件大小上限 (單位：kb) Long
'-- InceptMaxFile	: 設(shè)置一次上傳文件最大個(gè)數(shù) Long
'-- UploadPath		: 設(shè)置保存的目錄相對(duì)路徑 String
'-- UploadType		: 設(shè)置上傳組件類(lèi)型 （0=無(wú)組件上傳類(lèi)，1=Aspupload3.0 ,2=SA-FileUp 4.0 ,3=DvFile.Upload V1.0）
'-- SaveUpFile		: 執(zhí)行上傳
'-- GetBinary		: 設(shè)置上傳是否返回文件數(shù)據(jù)流  Bloon值 : True/False
'-- ChkSessionName	: 設(shè)置SESSION名，防止重復(fù)提交，SESSION名與提交的表單名要一致。
'-- RName設(shè)置文件名	: 定義文件名前綴 (如默認(rèn)生成的文件名為200412230402587123.jpg
'									設(shè)置：RName="PRE_",生成的文件名為：PRE_200412230402587123.jpg)
'-----------------------------------------------------------------------
'-- 設(shè)置圖片組件屬性
'-- PreviewType		: 設(shè)置組件(0=CreatePreviewImage組件，1=AspJpegV1.2 ,2=SoftArtisans ImgWriter V1.21)
'-- PreviewImageWidth	: 設(shè)置預(yù)覽圖片寬度
'-- PreviewImageHeight	: 設(shè)置預(yù)覽圖片高度
'-- DrawImageWidth	: 設(shè)置水印圖片或文字區(qū)域?qū)挾?'-- DrawImageHeight	: 設(shè)置水印圖片或文字區(qū)域高度
'-- DrawGraph		: 設(shè)置水印圖片或文字區(qū)域透明度
'-- DrawFontColor	: 設(shè)置水印文字顏色
'-- DrawFontFamily	: 設(shè)置水印文字字體格式
'-- DrawFontSize	: 設(shè)置水印文字字體大小
'-- DrawFontBold	: 設(shè)置水印文字是否粗體
'-- DrawInfo		: 設(shè)置水印文字信息或圖片信息
'-- DrawType		: 設(shè)置加載水印模式：0=不加載水印 ，1=加載水印文字 ，2=加載水印圖片
'-- DrawXYType		: 圖片添加水印LOGO位置坐標(biāo)："0" =左上，"1"=左下,"2"=居中,"3"=右上,"4"=右下
'-- DrawSizeType	: 生成預(yù)覽圖片大小規(guī)則："0"=固定縮小，"1"=等比例縮小
'-----------------------------------------------------------------------
'-- 獲取上傳信息
'-- ObjName			: 采用的組件名稱(chēng)
'-- Count			: 上傳文件總數(shù)
'-- CountSize		: 上傳總大小字節(jié)數(shù)
'-- ErrCodes		: 錯(cuò)誤NUMBER (默認(rèn)為0)
'-- Description		: 錯(cuò)誤描述
'-----------------------------------------------------------------------
'-- CreateView Imagename,TempFilename,FileExt
'	創(chuàng)建預(yù)覽圖片過(guò)程: 原始文件的相對(duì)路徑,生成預(yù)覽文件相對(duì)路徑,原文件后綴
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-- 獲取文件對(duì)象屬性 : UploadFiles
'-- FormName		: 表單名稱(chēng)
'-- FileName		: 生成的文件名稱(chēng)
'-- FilePath		: 保存文件的相對(duì)路徑
'-- FileSize		: 文件大小
'-- FileContentType	: ContentType文件類(lèi)型
'-- FileType		: 0=其它,1=圖片,2=FLASH,3=音樂(lè),4=電影
'-- FileData		: 文件數(shù)據(jù)流 (若組件不支持直接獲取，則返回Null)
'-- FileExt			: 文件后綴
'-- FileWidth		: 圖片/Flash文件寬度	（其他文件默認(rèn)=-1）
'-- FileHeight		: 圖片/Flash文件高度	（其他文件默認(rèn)=-1）
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-- 獲取表單對(duì)象屬性 : UploadForms
'-- Count			: 表單數(shù)
'-- key				: 表單內(nèi)容
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------

Class UpFile_Cls
	Private UploadObj,ImageObj
	Private FilePath,InceptFile,FileMaxSize,MaxFile,Upload_Type,FileInfo,IsBinary,SessionName
	Private Preview_Type,View_ImageWidth,View_ImageHeight,Draw_ImageWidth,Draw_ImageHeight,Draw_Graph
	Private Draw_FontColor,Draw_FontFamily,Draw_FontSize,Draw_FontBold,Draw_Info,Draw_Type,Draw_XYType,Draw_SizeType
	Private RName_Str,Transition_Color
	Public ErrCodes,ObjName,UploadFiles,UploadForms,Count,CountSize
	'-----------------------------------------------------------------------------------
	'初始化類(lèi)
	'-----------------------------------------------------------------------------------
	Private Sub Class_Initialize
		SessionName = Empty
		IsBinary = False
		ErrCodes = 0
		Count = 0
		CountSize = 0
		FilePath = "./"
		InceptFile = ""
		FileMaxSize = -1
		MaxFile = 1
		Upload_Type = -1
		Preview_Type = 999
		ObjName = "未知組件"
		View_ImageWidth = 0
		View_ImageHeight = 0
		Draw_FontColor	= &H000000
		Draw_FontFamily	= "Arial"
		Draw_FontSize	= 10
		Draw_FontBold	= False
		Draw_Info		= "WWW.SNSN.NET"
		Draw_Type		= -1
		Set UploadFiles = Server.CreateObject ("Scripting.Dictionary")
		Set UploadForms = Server.CreateObject ("Scripting.Dictionary")
		UploadFiles.CompareMode = 1
		UploadForms.CompareMode = 1
	End Sub

	'-----------------------------------------------------------------------------------
	'銷(xiāo)毀類(lèi)
	'-----------------------------------------------------------------------------------
	Private Sub Class_Terminate
		If IsObject(UploadObj) Then
			Set UploadObj = Nothing
		End If
		If IsObject(ImageObj) Then
			Set ImageObj = Nothing
		End If
		UploadFiles.RemoveAll
		UploadForms.RemoveAll
		Set UploadForms = Nothing
		Set UploadFiles = Nothing
	End Sub

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳是否返回文件數(shù)據(jù)流
	'-----------------------------------------------------------------------------------
	Public Property Let GetBinary(Byval Values)
		IsBinary = Values
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳類(lèi)型屬性 (以逗號(hào)分隔多個(gè)文件類(lèi)型)
	'-----------------------------------------------------------------------------------
	Public Property Let InceptFileType(Byval Values)
		InceptFile = Lcase(Values)
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳類(lèi)型屬性 (以逗號(hào)分隔多個(gè)文件類(lèi)型)
	'-----------------------------------------------------------------------------------
	Public Property Let ChkSessionName(Byval Values)
		SessionName = Values
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳文件大小上限 (單位：kb)
	'-----------------------------------------------------------------------------------
	Public Property Let MaxSize(Byval Values)
		FileMaxSize = ChkNumeric(Values) * 1024
	End Property
	Public Property Get MaxSize
		MaxSize = FileMaxSize
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置每次上傳文件上限
	'-----------------------------------------------------------------------------------
	Public Property Let InceptMaxFile(Byval Values)
		MaxFile = ChkNumeric(Values)
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳目錄路徑
	'-----------------------------------------------------------------------------------
	Public Property Let UploadPath(Byval Path)
		FilePath = Replace(Path,Chr(0),"")
		If Right(FilePath,1)<>"/" Then FilePath = FilePath & "/"
	End Property

	Public Property Get UploadPath
		UploadPath = FilePath
	End Property

	'-----------------------------------------------------------------------------------
	'獲取錯(cuò)誤信息
	'-----------------------------------------------------------------------------------
	Public Property Get Description
		Select Case ErrCodes
			Case 1 : Description = "不支持 " & ObjName & " 上傳，服務(wù)器可能未安裝該組件。"
			Case 2 : Description = "暫未選擇上傳組件！"
			Case 3 : Description = "請(qǐng)先選擇你要上傳的文件!"
			Case 4 : Description = "文件大小超過(guò)了限制 " & (FileMaxSize\1024) & "KB!"
			Case 5 : Description = "文件類(lèi)型不正確!"
			Case 6 : Description = "已達(dá)到上傳數(shù)的上限！"
			Case 7 : Description = "請(qǐng)不要重復(fù)提交！"
			Case Else
				Description = Empty
		End Select
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置文件名前綴
	'-----------------------------------------------------------------------------------
	Public Property Let RName(Byval Values)
		RName_Str = Values
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳組件屬性
	'-----------------------------------------------------------------------------------
	Public Property Let UploadType(Byval Types)
		Upload_Type = Types
		If Upload_Type = "" or Not IsNumeric(Upload_Type) Then
			Upload_Type = -1
		End If
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置上傳圖片組件屬性
	'-----------------------------------------------------------------------------------
	Public Property Let PreviewType(Byval Types)
		Preview_Type = Types
		On Error Resume Next
		If Preview_Type = "" or Not IsNumeric(Preview_Type) Then
			Preview_Type = 999
		Else
			If PreviewType <> 999 Then
				Select Case Preview_Type
					Case 0
					'---------------------CreatePreviewImage---------------
						ObjName = "CreatePreviewImage組件"
						Set ImageObj = Server.CreateObject("CreatePreviewImage.cGvbox")
					Case 1
					'---------------------AspJpegV1.2---------------
						ObjName = "AspJpegV1.2組件"
						Set ImageObj = Server.CreateObject("Persits.Jpeg")
					Case 2
					'---------------------SoftArtisans ImgWriter V1.21---------------
						ObjName = "SoftArtisans ImgWriter V1.21組件"
						Set ImageObj = Server.CreateObject("SoftArtisans.ImageGen")
					Case Else
						Preview_Type = 999
				End Select
				If Err.Number<>0 Then
					ErrCodes = 1
				End If
			End If
		End If
	End Property

	Public Property Get PreviewType
		PreviewType = Preview_Type
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置預(yù)覽圖片寬度屬性
	'-----------------------------------------------------------------------------------
	Public Property Let PreviewImageWidth(Byval Values)
		View_ImageWidth = ChkNumeric(Values)
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置預(yù)覽圖片高度屬性
	'-----------------------------------------------------------------------------------
	Public Property Let PreviewImageHeight(Byval Values)
		View_ImageHeight = ChkNumeric(Values)
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印圖片或文字區(qū)域?qū)挾葘傩?	'-----------------------------------------------------------------------------------
	Public Property Let DrawImageWidth(Byval Values)
		Draw_ImageWidth = ChkNumeric(Values)
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印圖片或文字區(qū)域高度屬性
	'-----------------------------------------------------------------------------------
	Public Property Let DrawImageHeight(Byval Values)
		Draw_ImageHeight = ChkNumeric(Values)
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印圖片或文字區(qū)域透明度屬性
	'-----------------------------------------------------------------------------------
	Public Property Let DrawGraph(Byval Values)
		If IsNumeric(Values) Then
			Draw_Graph = Formatnumber(Values,2)
		Else
			Draw_Graph = 1
		End If
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印圖片透明度去除底色值
	'-----------------------------------------------------------------------------------
	Public Property Let TransitionColor(Byval Values)
		If Values<>"" or Values<>"0" Then
			Transition_Color = Replace(Values,"#","&h")
		End If
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印文字顏色
	'-----------------------------------------------------------------------------------
	Public Property Let DrawFontColor(Byval Values)
		If Values<>"" or Values<>"0" Then
			Draw_FontColor = Replace(Values,"#","&h")
		End If
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印文字字體格式
	'-----------------------------------------------------------------------------------
	Public Property Let DrawFontFamily(Byval Values)
		Draw_FontFamily = Values
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印文字字體大小
	'-----------------------------------------------------------------------------------
	Public Property Let DrawFontSize(Byval Values)
		Draw_FontSize = Values
	End Property

	'-----------------------------------------------------------------------------------
	'設(shè)置水印文字是否粗體 Boolean
	'-----------------------------------------------------------------------------------
	Public Property Let DrawFontBold(Byval Values)
		Draw_FontBold = ChkBoolean(Values)
	End Property
	'-----------------------------------------------------------------------------------
	'設(shè)置水印文字信息或圖片信息
	'-----------------------------------------------------------------------------------
	Public Property Let DrawInfo(Byval Values)
		Draw_Info = Values
12 3 下一頁(yè)
?? 文件大小 6846 K
?? 上傳用戶(hù) shanon
?? 所屬分類(lèi) 百貨/超市行業(yè)
??? 相關(guān)標(biāo)簽

#正 #商
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? upfile.asp

?? 快捷鍵說(shuō)明
