导航:首页 > 文件处理 > asp压缩文件夹

asp压缩文件夹

发布时间:2023-03-03 14:55:35

‘壹’ asp图片上传压缩小,现在的上传方法上传的都是原图,太大了,访问速度太慢

给你一个过程你看下
<%
dim arr(3)
dim upload,file,formName,formPath,iCount,filename,fileExt,i
set upload=new upload_5xSoft ''建立上传对象

formPath="../upImgFile/" '图片存放的路径:proct目录下的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=# onclick=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=# onclick=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)

'response.write file.FilePath&file.FileName&"("&file.FileSize&") => "&formPath&File.FileName&"上传成功<br>"
response.write "上传成功 <a href=# onclick=history.go(-1)>请返回</a>"

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

'指定宽度和高度生成
bigpic.Width = n_BuildWidth
bigpic.Height = n_BuildHeight

' 保存文件
bigpic.Save (FileName)
' 注销对象
Set bigpic = Nothing

end if
end sub
%>

‘贰’ win rar 通过asp。net调用压缩 如何指定压缩成zip格式

打开WinRAR主窗口,然后单击菜单“选项→设置”,在“设置”窗口中选择“压缩”选项卡,再单击“创建默认配置”,在打开的窗口中选择“压缩文件格式”为“RAR”,最后“确定”保存设置即可。

‘叁’ asp 实现图片上传的时候压缩他

按比例压缩图片:

SmallImgFilet = "SmallImg-"&smallname&".jpg" '小图片指定取名

If IsEmpty(SmallImgFile) then

'dim L as Single , H as Single

Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件

Path = Server.MapPath("../") & "\" & BigImgFile '待缩小图片路径 放在根目录 你可以制定文件夹 在../后面
Jpeg.Open Path '打开图片
L = 120/80'缩略图高与宽比 你如果只限制宽度就不用下面else的高度比例判断 只按宽度的对应大图比例缩小就可以了

H= jpeg.OriginalWidth/jpeg.OriginalHeight

If H > L Then
jpeg.Width = 120
jpeg.Height = (jpeg.OriginalHeight*120)/jpeg.OriginalWidth
Else
jpeg.Height = 80
jpeg.Width = (jpeg.OriginalWidth*80)/jpeg.OriginalHeight
End If
'保存图片
Jpeg.Save Server.MapPath("../") & "\"&SmallImgFilet'&".jpg"
set Jpeg=nothing
end if

阅读全文

与asp压缩文件夹相关的资料

热点内容
网通的宽带玩电信服务器地址 浏览:828
解压视频搞笑大全爆笑 浏览:614
米兔解压积木隐藏款金属 浏览:574
window命令行svn 浏览:616
8051单片机包含多大的ram 浏览:812
man文件linux 浏览:283
javaweb实现页面跳转 浏览:126
命令如什么 浏览:316
centos如何使用ftp服务器 浏览:982
直立车陀螺仪算法 浏览:70
coreldrawpdf下载 浏览:896
虚拟主机云服务器软件服务 浏览:372
苹果的怎么拉安卓的打游戏 浏览:414
游戏程序员负责角色 浏览:315
于丹pdf 浏览:718
反编译ref 浏览:551
鸿蒙智能文件夹怎么弄 浏览:548
grunt压缩html 浏览:792
macpdfword转换器 浏览:909
压缩面膜是什么材质 浏览:356