[烛光生存狂]-一段上传文件的VBS代码

dim upload,file,formName,formPath,iCount,filename,fileExt

set upload=new upload_5xSoft ''建立上传对象

formPath=upload.form("filepath")

''在目录后加(/)

if right(formPath,1)<>"/" then formPath=formPath&"/"

response.write ""

iCount=0

for each formName in upload.file ''列出所有上传了的文件

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

if file.filesize>100*1000 then

response.write "文件大小超过了限制100K　[ 重新上传 ]"

response.end

end if

fileExt=lcase(right(file.filename,4))

uploadsuc=false

Forum_upload="gif,jpg,png,jpeg,bmp"

Forumupload=split(Forum_upload,",")

for i=0 to ubound(Forumupload)

if fileEXT="."&trim(Forumupload(i)) then

uploadsuc=true

exit for

else

uploadsuc=false

end if

if uploadsuc=false then

response.write "文件格式不正确　[ 重新上传 ]"

response.end

end if

randomize

ranNum=int(90000*rnd)+10000

filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt

if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据

file.SaveAs Server.mappath(FileName) ''保存文件

for i=0 to ubound(Forumupload)

if fileEXT="."&trim(Forumupload(i)) then

response.write ""&FileName&""

exit for

end if

iCount=iCount+1

end if

set file=nothing

set upload=nothing ''删除此对象

Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)

set upload=nothing

end sub

表单页面:

新用户注册返回首页
首页上一页下一页尾页页次1/1 转到第页