简单asp文件上传代码

2024年5月26日发(作者：)

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

<%@language=vbscript codepage=936 %>

<%

const upload_type=0 '上传方法：0=无惧无组件上传类，

2=lyfupload，3=aspupload，4=chinaaspupload

const SaveUpFilesPath="UploadFiles"

const UpFileType_pic="jpg|gif|bmp|png"

const UpFileType_flash="swf"

const UpFileType_media="wmv|asf|avi|mpg"

const UpFileType_rm="ram|rm|ra"

const MaxFileSize=102400

dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize

dim EnableUpload

上传 1=FSO

dim UpFileType,arrUpFileType

dim ranNum

dim msg,FoundErr

dim DialogType

msg=""

FoundErr=false

EnableUpload=false

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

if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)

%>