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

xuen30

为什么说是阶段性成功呢？因为不支持中文名，还有能不能让程序再精细一点？
upload.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
%>