自己编写的分名字上传程序，阶段性成功

为什么说是阶段性成功呢？因为不支持中文名，还有能不能让程序再精细一点？

upload.asp

<!--#include file="cls_load.asp"-->

<%

server.scripttimeout=1000000000

dim upload,file,sfilename,bfilename,formName,sPath,bPath,iCount,lj,fileobject

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

lj=upload.form("sname")

bPath =lj '图片路径

set fileobject=server.createobject("scripting.filesystemobject")

if fileobject.folderexists("d:\"&bpath&"\") then

set file=upload.file("file") '上传图片

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

bfilename=file.FileName

file.SaveAs ("d:\"&bpath&"\"&bfilename) ''保存文件

response.write Server.mappath(bpath&"\"&bfilename) & "<br>" '看看server.mappath的作用

end if

else

fileobject.createfolder "d:\"&bpath&"\"

set file=upload.file("file") '上传图片

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

bfilename=file.FileName

file.SaveAs ("d:\"&bpath&"\"&bfilename) ''保存文件

response.write Server.mappath(bpath&"\"&bfilename) & "<br>" '看看server.mappath的作用

end if

end if

set file=nothing

%>