upprofile.asp

flash+asp图片上传源码.参照网上的代码.自己稍微做了点修改.现在拿上来共享

<!--#include FILE="upload.inc"-->
<%OPTION EXPLICIT%>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''建立上传对象
formPath="images/" '上传路径'
set file=upload.file("Filedata")  ''生成一个文件对象
if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName)   ''保存文件
end if
set file=nothing
set upload=nothing  ''删除此对象
response.end
%>