『壹』 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