作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关软件：