上传图片的同时把图片按照同样的比例缩小，重命名！在线等待！

[stium]

我想上传图片的同时，或者是上传之后，自动把图片按照同比例缩小，生成不同名的小图片。怎么样实现？谢谢！

[happymingnan]

高手

[zhanghao5188]

需要组件来实现的！！
aspupload


www.aspupload.com

[zhanghuazhanghome]

关注

[yangzixp]

如果逻辑缩小，只需要限制图片尺寸就可以。
如果物理缩小，则需要组件，图片的大小也要缩小。
该名字是很容易

[xxu333]

//-----------resize.asp------------------

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="resize_upload.asp">
Select a JPEG image:<BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
Scale: <SELECT NAME="Scale">
<OPTION VALUE="80">80%</OPTION>
<OPTION VALUE="50">50%</OPTION>
<OPTION VALUE="25">25%</OPTION>
<OPTION VALUE="10">10%</OPTION>
</SELECT><P>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>

//----------------------resize_upload.asp---------------
<%

Set Upload = Server.CreateObject("Persits.Upload")

' Use AspJpeg to resize image
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Capture and save uploaded image to the same directory as script
Upload.Save Server.MapPath(".")

For Each File in Upload.Files
If File.ImageType <> "JPG" Then
Response.Write "This is now a JPGE image."
File.Delete
Response.End
End If

Jpeg.Open File.Path

Scale = Upload.Form("Scale")
Jpeg.Width = Jpeg.OriginalWidth * Scale / 100
Jpeg.Height = Jpeg.OriginalHeight * Scale / 100

Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height

Jpeg.Save Server.MapPath(".") & "\small_" & File.FileName
%>
<IMG SRC="<% = File.FileName %>"><BR>
<IMG SRC="<% = "small_" & File.FileName %>"><P>
<%
Next
%>

[「已注销」]

//-----------resize.asp------------------

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="resize_upload.asp">
Select a JPEG image:<BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
Scale: <SELECT NAME="Scale">
<OPTION VALUE="80">80%</OPTION>
<OPTION VALUE="50">50%</OPTION>
<OPTION VALUE="25">25%</OPTION>
<OPTION VALUE="10">10%</OPTION>
</SELECT><P>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>

//----------------------resize_upload.asp---------------
<%

Set Upload = Server.CreateObject("Persits.Upload")

' Use AspJpeg to resize image
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Capture and save uploaded image to the same directory as script
Upload.Save Server.MapPath(".")

For Each File in Upload.Files
If File.ImageType <> "JPG" Then
Response.Write "This is now a JPGE image."
File.Delete
Response.End
End If

Jpeg.Open File.Path

Scale = Upload.Form("Scale")
Jpeg.Width = Jpeg.OriginalWidth * Scale / 100
Jpeg.Height = Jpeg.OriginalHeight * Scale / 100

Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height

Jpeg.Save Server.MapPath(".") & "\small_" & File.FileName
%>
<IMG SRC="<% = File.FileName %>"><BR>
<IMG SRC="<% = "small_" & File.FileName %>"><P>
<%
Next
%>

[xxu333]

FSO，ASPupload都可以重命名

[stium]

谢谢！
我正在调试。

[stium]

xxu333(小笑) 和 kalen808(cn Bill Gages) 提供的方法是需要组件的吗？组件在哪里下载？

[萝卜波]

图像的缩小图
用vc写一个组件 很简单的

[stium]

组件都是要注册的，注册码哪里有？