无插件方式图片上传

<%
'response.write "<script>alert('1');</script>"
set upload=new upload_5xSoft
set file=upload.file("file1")
formPath=trim(upload.form("filepath"))
fileExt=lcase(right(file.filename,3))
'response.write "<script>alert('2');</script>"
if fileExt="jpg" or fileExt="gif" or fileExt="png" or fileExt="bmp" or fileExt="swf" then
randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then 
'response.write "<script>alert('" & Server.mappath("/upload/files/") & FileName & "');</script>"
file.SaveAs Server.mappath("/upload/files/")&FileName
'response.write "<script>alert('/upload/files"&FileName&"');</script>"
'response.write "<script>window.opener.document.form1.testimg.value='"&FileName&"'</script>"
response.write "<script language=javascript>window.open('upfile.asp?filepath="&FileName&"','_self')</script>"
end if%>
<script language="javascript">
window.alert("文件上传成功!请不要修改生成的链接地址！");
'window.open('UPfile.asp','_self');

</script>

 

简单示例下载