简单asp文件上传代码.pdf

简单_asp文件上传代码_程序

%@language=vbscriptcodepage=936%

!--#includefile=Inc/upfile_class.asp--

%

constupload_type=0上传方法：0=无惧无组件上传类，1=FSO上传2=lyfupload，

3=aspupload，4=chinaaspupload

constSaveUpFilesPath=UploadFiles

constUpFileType_pic=jpg|gif|bmp|png

constUpFileType_flash=swf

constUpFileType_media=wmv|asf|avi|mpg

constUpFileType_rm=ram|rm|ra

constMaxFileSize=102400

dimupload,oFile,formName,SavePath,filename,fileExt,oFileSize

dimEnableUpload

dimUpFileType,arrUpFileType

dimranNum

dimmsg,FoundErr

dimDialogType

msg=

FoundErr=false

EnableUpload=false

SavePath=SaveUpFilesPath存放上传文件的目录

ifright(SavePath,1)/thenSavePath=SavePath/在目录后加(/)

%

html

head

title上传文件/title

metahttp-equiv=Content-Typecontent=text/html;charset=gb2312

linkrel=stylesheettype=text/csshref=editor_dialog.css

/head

bodybgColor=menuleftmargin=2topmargin=5marginwidth=0marginheight=0

%

ifEnableUploadFile=Nothen

response.write系统未开放文件上传功能

else

ifsession(AdminName)=then

response.Write(请登录后再使用本功能！)

else

selectcaseupload_type

case0

callupload_0()使用化境无组件上传类

caseelse

response.write本系统未开放插件功能

response.end

endselect

endif

endif

%

/body

/html

%

subupload_0()使用化境无组件上传类

setupload=newupfile_class建立上传对象

upload.GetData(104857600)取得上传数据,限制最大上传100M

ifupload.err0then如果出错

selectcaseupload.err

case1

response.write请先选择你要上传的文件！

case2

response.write你上传的文件总大小超出了最大限制（100M）

endselect

response.end

endif

DialogType=trim(upload.form(DialogType))

selectcaseDialogType

casepic

UpFileType=UpFileType_pic

caseflash

UpFileType=UpFileType_flash

casemedia

UpFileType=UpFileType_media

caserm

UpFileType=UpFileType_rm

caseelse

UpFileType=

endselect

foreachformNameinupload.file列出所有上传了的文件

setofile=upload.file(formName)生成一个文件对象

oFileSize=ofile.filesize

ifoFileSize100then

msg=请先选择你要上传的文件！

FoundErr=Tr