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