无插件方式图片上传

<%

'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>

简单示例下载