无插件方式图片上传

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

 

简单示例下载