<% dim arr(3) dim upload,file,formName,formPath,iCount,filename,fileExt,i set upload=new upload_5xSoft ''建立上传对象 formPath="../upImgFile/" '图片存放的路径:product目录下的uploadimages文件夹 ''在目录后加(/)
''列出所有上传了的文件 for each formName in upload.file set file=upload.file(formName) if file.filesize>0 then if file.filesize>10000000 then response.write "<font size=2>图片大小超小了限制[<a href=# οnclick=history.go(-1)>重新上传</a>]</font>" response.end end if fileExt=lcase(right(file.filename,4)) if fileExt<>".jpg" then response.write "<font size=2>文件格式限制[<a href=# οnclick=history.go(-1)>请重新上传</a>]</font>" response.end end if end if filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file.SaveAs Server.mappath(formpath&filename) ''保存文件
' 图片位置 dim PhotoPath PhotoPath = Server.MapPath(formpath&filename) '缩小大图 call OKbigpic(PhotoPath)
end if set file=nothing next set upload=nothing Response.Write "<script>parent.add.P_url.value='"&FileName&"'</script>"
sub OKbigpic(FileName) Dim bigpic,bigpicPath,fss Set bigpic = Server.CreateObject("Persits.Jpeg") set fss=createobject("scripting.filesystemobject") ' 设置图片质量 bigpic.Interpolation=2 bigpic.Quality=90 ' 图片位置 if fss.fileExists(FileName) then bigpic.Open FileName
'下面是按比例缩放 n_MaxWidth=900 n_MaxHeight=1500
'按比例取得缩略图宽度和高度 Dim n_OriginalWidth, n_OriginalHeight '原图片宽度、高度 Dim n_BuildWidth, n_BuildHeight '缩略图宽度、高度 Dim div1, div2 Dim n1, n2 '修改Jpeg n_OriginalWidth = bigpic.Width n_OriginalHeight = bigpic.Height div1 = n_OriginalWidth / n_OriginalHeight div2 = n_OriginalHeight / n_OriginalWidth n1 = 0 n2 = 0 If n_OriginalWidth > n_MaxWidth Then n1 = n_OriginalWidth / n_MaxWidth Else n_BuildWidth = n_OriginalWidth End If If n_OriginalHeight > n_MaxHeight Then n2 = n_OriginalHeight / n_MaxHeight Else n_BuildHeight = n_OriginalHeight End If If n1 <> 0 Or n2 <> 0 Then If n1 > n2 Then n_BuildWidth = n_MaxWidth n_BuildHeight = n_MaxWidth * div2 Else n_BuildWidth = n_MaxHeight * div1 n_BuildHeight = n_MaxHeight End If End If