主頁 > 知識庫 > 利用ASPUPLOAD,ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印

利用ASPUPLOAD,ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印

熱門標(biāo)簽:為什么外呼系統(tǒng)需要預(yù)存話費呢 寧夏怎么申請400電話 辦理400電話一年多少錢 常用地圖標(biāo)注范圍點 企數(shù)外呼系統(tǒng)能用多久 離線電子地圖標(biāo)注軟件注冊 咸陽銷售外呼系統(tǒng) 外呼回?fù)芟到y(tǒng)圖片 蘭州智能語音電銷機(jī)器人功能

今天在站長站看到一網(wǎng)友寫的相冊程序,功能挺簡單的,看到他用了ASPJPEG生成縮略圖,不由想起再用上ASPUPLOAD上傳,于是花了一個小時時間完善了他的代碼。

以下代碼均加有簡單的注釋,如果你看不懂,請先看ASPJPEG以及ASPUPLOAD的說明文檔(E文,希望有心理準(zhǔn)備),看不懂的可以問我。

以下是代碼: 

復(fù)制代碼 代碼如下:


if session("admin")>"on" then 
Response.Redirect"login.asp" 
end if 
%> 
!--#include file="config.asp" --> 
!--#include file="mdb/conn.asp" --> 


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

 FilePath=Server.MapPath(".") 

   Count = Upload.Save(FilePathBigPhotoPath) '傳大圖 

 SmallFilePath=FilePath  SmallPhotoPath 

 For Each File in Upload.Files 

 Set Jpeg = Server.CreateObject("Persits.Jpeg") 
 Jpeg.Open (File.Path) 

BigFP=BigPhotoPath(File.FileName) '大圖相對路徑 
SFP=SmallPhotoPath"S_"(File.FileName)'小圖相對路徑 
FileSize=File.Size'備寫入數(shù)據(jù)庫 


 '開始判斷哪邊為長邊,以長邊進(jìn)行縮放,并生成小圖 
 imgWidth=Jpeg.OriginalWidth 
 imgHeight=Jpeg.OriginalHeight 

 if imgWidth>=imgHeight and imgWidth>120 then  
 Jpeg.Width=150 
 Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/150) 
 end if 
 if imgHeight>imgWidth and imgHeight>113 then  
 Jpeg.Height=113 
 Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/113) 
 end if 
Jpeg.Sharpen 1, 130 
Jpeg.Save (SmallFilePath"S_"File.FileName) 


'給大圖加上水印(僅對大圖加水印) 
Jpeg.Open Server.MapPath(""BigFP"") 

Jpeg.Canvas.Font.Color = HFF0000 
Jpeg.Canvas.Font.Family = "Courier New" 

Jpeg.Canvas.Pen.Color = H000000 
Jpeg.Canvas.Pen.Width = 2 

Jpeg.Canvas.Brush.Solid = False 
Jpeg.Canvas.Font.BkMode = "Opaque" '處理平滑 

Jpeg.Canvas.PrintText 10, 10, "www.LuanLuan.cn" 
'Jpeg.Canvas.DrawBar 1, 1, 100, 100 

Jpeg.Save Server.MapPath(BigFP) 
Next 

strSQL= "insert into desktop ([name],typeid,zhuanti,jj,[time],imgh,imgw,filesize,url,surl) values ('"Upload.Form("name")"','"Upload.Form("typeid")"','"Upload.Form("zhuanti")"','"Upload.Form("photointro")"','"Now()"','"imgheight"','"imgwidth"','"FileSize "','"BigFP"','"SFP"')" 
conn.execute strSQL 

set upload=nothing  '刪除對象 
typeid=Request.QueryString("typeid") 
response.write "SCRIPT language=JavaScript>alert('文件上傳成功,返回!');" 
response.write "this.location.href='addfile.asp?typeid="typeid"';/SCRIPT>" 

function HTMLEncode2(fString) 
fString = Replace(fString, CHR(13), "") 
fString = Replace(fString, CHR(10)  CHR(10), "/P>P>") 
fString = Replace(fString, CHR(10), "BR>") 
HTMLEncode2 = fString 
end function 
%> 



您可能感興趣的文章:
  • Asp無組件生成縮略圖的代碼
  • ASP保存遠(yuǎn)程圖片到本地 同時取得第一張圖片并創(chuàng)建縮略圖的代碼
  • ASP.Net 上傳圖片并生成高清晰縮略圖
  • asp.net 自定義控件實現(xiàn)無刷新上傳圖片,立即顯示縮略圖,保存圖片縮略圖
  • Asp.Net平臺下的圖片在線裁剪功能的實現(xiàn)代碼(源碼打包)
  • ASP組件AspJpeg(加水印)生成縮略圖等使用方法
  • asp.net 圖片超過指定大小后等比例壓縮圖片的方法
  • ASP.NET簡單好用功能齊全圖片上傳工具類(水印、縮略圖、裁剪等)
  • ASP固定比例裁剪縮略圖的方法

標(biāo)簽:昆明 家電維修 昌都 泰州 鐵嶺 溫州 咸陽 麗江

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《利用ASPUPLOAD,ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印》,本文關(guān)鍵詞  利用,ASPUPLOAD,ASPJPEG,實現(xiàn),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《利用ASPUPLOAD,ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印》相關(guān)的同類信息!
  • 本頁收集關(guān)于利用ASPUPLOAD,ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章