post_upfile.asp

功能强大的bbs

<!--#include File="conn.asp"-->
<!--#include File="upload.inc"-->
<!-- #include File="inc/const.asp" -->
<!-- #include File="inc/dv_clsother.asp" -->
<script>
parent.document.Dvform.Submit.disabled=false;
parent.document.Dvform.Submit2.disabled=false;
</script>
<table width="100%" height="100%" border=0 cellspacing=0 cellpadding=0>
<tr><td class=tablebody2 valign=top height=40>
<%
Dvbbs.Loadtemplates("")
Dvbbs.Head()
Call Dvbbs.ShowErr()
Server.ScriptTimeOut=999999'要是你的论坛支持上传的文件比较大，就必须设置。
Dim upload_type,upload_ViewType
'-----------------------------------------------------------------------------
'设置上传方式upload_type值： 0＝无组件，1＝lyfupload 1.2版，2＝Aspupload3.0，3＝SA-FileUp 4.0
'-----------------------------------------------------------------------------
upload_type=Cint(Dvbbs.Forum_Setting(43))
'-----------------------------------------------------------------------------
'创建生成预览图片,需要图片读写组件支持.(根目录下要有PreviewImage文件夹存放文件)
'设置支持组件upload_ViewType值： 
'0＝ CreatePreviewImage， 1＝ AspJpeg ，2=SoftArtisans ImgWriter V1.21，3=SJCatSoft V2.6 
Dim previewpath,F_Viewname
F_Viewname=""
previewpath="PreviewImage/"
upload_ViewType=Cint(Dvbbs.Forum_Setting(45))
'-----------------------------------------------------------------------------

'定义变量
Dim Forumupload
Dim FormName,FormPath,Filename,File_name,FileExt,Filesize,F_Type,rename
Dim upNum,dateupnum
Dim TempSize,ImageWidth,ImageHeight
Dim ImageMode
ImageMode=Dvbbs.Forum_Setting(73)
If ImageMode="0" Then ImageMode=""
ImageWidth=80
ImageHeight=80
TempSize=Split(Dvbbs.Forum_Setting(72),"|")
If Ubound(TempSize)=1 Then
	ImageWidth=TempSize(0)
	ImageHeight=TempSize(1)
End If

If Dvbbs.Userid=0 Then
	Response.write "你还未登陆！"
	Response.end
End If
FormPath=checkFolder
upNum=request.cookies("upNum")
If upnum ="" then upnum=0
upNum=int(upNum)

dateupnum=Clng(Dvbbs.UserToday(2))
If Cint(Dvbbs.GroupSetting(7))=0 then
	Response.write "您没有在本论坛上传文件的权限"
	Response.end
End If
If upNum >= Clng(Dvbbs.GroupSetting(40)) then
 	Response.write "一次只能上传"&Dvbbs.GroupSetting(40)&"个文件！"
	Response.end
End If

If dateupnum+upNum >= Clng(Dvbbs.GroupSetting(50)) then
 	Response.write "您今天上传的文件已超出了"&Dvbbs.GroupSetting(50)&"个！"
	Response.end
End If

'On Error Resume Next 
Select case upload_type
Case 0
	Call upload_0()
Case 1
	Call upload_1()
Case 2
	Call upload_2()
Case 3
	Call upload_3()
Case Else
	Response.write "本系统未开放插件功能"
	Response.End
End Select

'===========================无组件上传============================
Sub upload_0()
Dim upload,File,UpCount
UpCount=0
Set upload=new UpFile_Class						''建立上传对象
upload.GetDate (Dvbbs.GroupSetting(44)*1024)	'取得上传数据,限制大小
If upload.err > 0 then
    Select Case upload.err
	Case 1
		Response.write "请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
	Case 2
		Response.write "文件大小超过了限制 "&Dvbbs.GroupSetting(44)&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
		End Select
		Exit Sub
Else
	'在目录后加(/)
	If right(FormPath,1)<>"/" then FormPath=FormPath&"/"
	For Each FormName In upload.File		''列出所有上传了的文件
		Set File=upload.File(FormName)		''生成一个文件对象
		If upNum >= int(Dvbbs.GroupSetting(40)) or dateupnum+upNum >= clng(Dvbbs.GroupSetting(50)) then
			Response.write "已达到上传数的上限。"
			EXIT SUB
		End If
		FileExt=Lcase(File.FileExt)
		'判断文件类型
		If CheckFileExt(FileExt)=false then
 			Response.write "文件格式不正确,或不能为空　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
			EXIT SUB
		End If
		'付值变量
		F_Type		=	CheckFiletype(FileExt)
		File_name	=	CreateName()
		Filename	=	File_name&"."&FileExt
		rename		=	CreatePath()&Filename&"|"
		Filename	=	FormPath&CreatePath()&Filename
		Filesize	=	File.FileSize
		'记录文件
		If Filesize>0 then								'如果 FileSize > 0 说明有文件数据
		File.SaveToFile Server.mappath(FileName)		''执行上传文件
		'创建生成预览图片
			If upload_ViewType<>999 and F_Type=1 then
				F_Viewname=previewpath&"pre"&File_name&".jpg"
				Call CreateView(FileName,F_Viewname)
			End If
		'记录文件
		Call checksave()
		UpCount=UpCount+1
		End If
		Set File=Nothing
	Next
End If
Set upload=Nothing
Call Suc_upload(UpCount,upNum)
End Sub

''===========================lyfupload组件上传1.2版============================
Sub upload_1()
Dim obj,Filepath,FileExt_a,UpCount
Dim ss,i
Dim TempExt,TempFileValue
UpCount=0
Set obj = Server.CreateObject("LyfUpload.UploadFile")
'限制大小
obj.maxsize=int(Dvbbs.GroupSetting(44))*1024
'限制类型
obj.extname=replace(Dvbbs.Board_Setting(19),"|",",")
Filepath=Server.MapPath(FormPath)
'在目录后加(/)
If right(Filepath,1)<>"\" Then Filepath=Filepath&"\"
For i=1 to obj.Request("upcount")
	TempFileValue="file"&i
	FileExt_a	=split(obj.Request(TempFileValue),"""")
	TempExt		=FileExt_a(1)
	If TempExt="" or isnull(TempExt) then
		Response.write "请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
		Exit Sub
	End If
	TempExt		=Split(TempExt,".")
	FileExt		=TempExt(Ubound(TempExt))
	File_name	=CreateName()
	Filename	=File_name&"."&FileExt
	rename		=CreatePath()&Filename & "|"
	Filesize	=obj.Filesize
	'判断文件类型及付值变量
	F_Type		=CheckFiletype(FileExt)

	'判断文件类型
	If CheckFileExt(FileExt)=false then
 		Response.write "文件格式不正确,或不能为空　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
		EXIT SUB
	End If
	'保存文件
	ss=obj.SaveFile(TempFileValue,Filepath, false,Filename)
	If ss= "3" then
		Response.write ("文件名重复!　[ <a href=# onclick=history.go(-1)>重新上传</a> ]")
		EXIT SUB
	ElseIf ss= "0" then
		Response.write ("文件大小超过了限制 "&Dvbbs.GroupSetting(44)&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]")
		EXIT SUB
	ElseIf ss = "1" then
		Response.write ("文件不是指定类型文件!　[ <a href=# onclick=history.go(-1)>重新上传</a> ]")
		EXIT SUB
	ElseIf ss = "" then
		Response.write ("文件上传失败!　[ <a href=# onclick=history.go(-1)>重新上传</a> ]")
		EXIT SUB
	Else
		Filename=FormPath&Filename
		'创建生成预览图片
		If upload_ViewType<>999 and F_Type=1 then
			F_Viewname=previewpath&"pre"&File_name&".jpg"
			call CreateView(FileName,F_Viewname)
		End If
		'记录文件
		call checksave()
		UpCount=UpCount+1
	End If
Next
set obj=nothing
Call Suc_upload(UpCount,upNum)
End Sub

''===========================Aspupload3.0组件上传============================
sub upload_2()
On Error Resume Next
Dim Upload,File
Dim FilePath
Dim Count,UpCount
UpCount=0
Set Upload = Server.CreateObject("Persits.Upload") 
Upload.OverwriteFiles = false								'不能复盖
Upload.IgnoreNoPost = True
Upload.SetMaxSize int(Dvbbs.GroupSetting(44))*1024, True	'限制大小
Count = Upload.Save
If Err.Number = 8 Then 
   Response.write "文件大小超过了限制 "&Dvbbs.GroupSetting(44)&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]" 
Else 
	If Err <> 0 Then 
		Response.write "错误信息: " & Err.Description
		EXIT SUB
	Else
		If Count < 1 Then 
		Response.write "请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
		EXIT SUB
		End If 
	For Each File in Upload.Files	'列出所有上传文件
		If upNum >= int(Dvbbs.GroupSetting(40)) or dateupnum+upNum >= clng(Dvbbs.GroupSetting(50)) Then
			Response.write "已达到上传数的上限。"
			Exit Sub
		End If
		FileExt=Lcase(replace(File.ext,".",""))
		'判断文件类型
		If CheckFileExt(FileExt)=false then
 			Response.write "文件格式不正确,或不能为空　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
			EXIT SUB
		End If
		'文件变量付值
		File_name	=	CreateName()
		Filename	=	File_name&File.ext
		rename		=	CreatePath()&Filename & "|"
		Filename	=	FormPath&CreatePath()&Filename
		Filesize	=	File.Size
		F_Type		=	CheckFiletype(FileExt)
		File.saveas Server.MapPath(Filename)	'上传保存文件
		'创建生成预览图片
		If upload_ViewType<>999 and F_Type=1 then
			F_Viewname=previewpath&"pre"&File_name&".jpg"
			Call CreateView(FileName,F_Viewname)
		End If
		'记录文件
		Call checksave()			'记录文件
		UpCount=UpCount+1
	Next
	Call Suc_upload(UpCount,upNum)
	End If 
End If
Set Upload = Nothing

End Sub

''===========================SA-FileUp 4.0组件上传FileUpSE V4.09============================
sub upload_3()
Dim oFileUp,UpCount,FileExt_a
UpCount=0
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
'oFileUp.Path = Server.MapPath(FormPath)
For Each FormName In oFileUp.Form
	If IsObject(oFileUp.Form(FormName)) Then
		If Not oFileUp.Form(FormName).IsEmpty Then
			oFileUp.Form(FormName).Maxbytes=int(Dvbbs.GroupSetting(44))*1024	'限制大小
			Filesize=oFileUp.Form(FormName).TotalBytes
			If Filesize>int(Dvbbs.GroupSetting(44))*1024 then
				Response.write "文件大小超过了限制 "&Dvbbs.GroupSetting(44)&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]" 
				Exit sub
			End If
			Filename=oFileUp.Form(FormName).ShortFileName	 '原文件名
			FileExt_a=Split(Filename,".")
			FileExt=Lcase(FileExt_a(ubound(FileExt_a)))
			FileExt=replace(FileExt,".","")
			'判断文件类型
			If CheckFileExt(FileExt)=false then