亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

用AspJpeg組件,按寬高比例,真正生成縮略圖

系統 1866 0

在網站前臺產品展示時,一般用縮略圖,點擊進入然后看到大圖。
縮略圖帶來了兩個煩勞:
1.如果后臺只傳一張大圖,顯示縮略圖時只是將大圖固定寬度和高度,這樣不但造成縮略圖變形,而且使得頁面訪問速度緩慢。
2.如果后臺每次上傳時,都上傳兩張圖片,一張大圖,一張縮略圖。這樣的話,沒有1中的問題,但是給后臺人員造成很大麻煩。因為后臺人員并不一定知道處理生成縮略圖;即使知道并能快速處理,也浪費掉一些時間。

下面的代碼可以幫您用AspJpeg組件,按寬高比例,真正生成縮略圖
AspJpeg組件下載: http://www.aspjpeg.com/download.html
AspJpeg組件使用: http://www.mydw.cn/tech/1/766.html
<%
Dim sOriginalPath
sOriginalPath = "images/1.gif"
'原圖片路徑一般上傳完畢后獲取,或者從 數據庫 獲取

Dim sReturnInfo, sSmallPath '函數返回信息, 縮略圖路徑
sReturnInfo = BuildSmallPic(sOriginalPath, "images", 100, 100)

Response.Write "返回信息:" & sReturnInfo & "<br/>"
If InStr(sReturnInfo, "Error_") <= 0 Then
sSmallPath = sReturnInfo '返回信息就是
'將sSmallPath寫入數據庫
'
Else
Response.Write "詳細錯誤:"
Select Case sReturnInfo
Case "Error_01"
Response.Write "<font color='red'>創建AspJpeg組件失敗,沒有正確安裝注冊該組件</font>" & "<br/>"
Case "Error_02"
Response.Write "<font color='red'>原圖片不存在,檢查s_OriginalPath參數傳入值</font>" & "<br/>"
Case "Error_03"
Response.Write "<font color='red'>縮略圖存盤失敗.可能原因:縮略圖保存基地址不存在,檢查s_OriginalPath參數傳入值;對目錄沒有寫權限;磁盤空間不足</font>" & "<br/>"
Case "Error_Other"
Response.Write "<font color='red'>未知錯誤</font>" & "<br/>"
End Select
Response.End
End If

%>
原文件名:<%=sOriginalPath%><br/>
縮略圖文件名:<%=sSmallPath%><br/>
原圖片:<img src='<%=sOriginalPath%>' border=0><br/><br/>
縮略圖:<img src='<%=sSmallPath%>' border=0>


<%
'================================================================
'Author:laifangsong QQ:25313644
'功能:按照指定圖片生成縮略圖
'注意:以下提到的“路徑”都是值相對于調用本函數的文件的相對路徑
'參數:
' s_OriginalPath: 原圖片路徑 例:images/image1.gif
' s_BuildBasePath: 生成圖片的基路徑,不論是否以“/”結尾均可 例:images或images/
' n_MaxWidth: 生成圖片最大寬度
' 如果在前臺顯示的縮略圖是 100*100,這里 n_MaxWidth=100,n_MaxHeight=100.
' n_MaxHeight: 生成圖片最大高度
'返回值:
' 返回生成后的縮略圖的路徑
'錯誤處理:
' 如果函數執行過程中出現錯誤,將返回錯誤代碼,錯誤代碼以 “Error”開頭
' Error_01:創建AspJpeg組件失敗,沒有正確安裝注冊該組件
' Error_02:原圖片不存在,檢查s_OriginalPath參數傳入值
' Error_03:縮略圖存盤失敗.可能原因:縮略圖保存基地址不存在,檢查s_OriginalPath參數傳入值;對目錄沒有寫權限;磁盤空間不足
' Error_Other:未知錯誤
'調用例子:
' Dim sSmallPath '縮略圖路徑
' sSmallPath = BuildSmallPic("images/image1.gif", "images", 100, 100)
'================================================================
Function BuildSmallPic(s_OriginalPath, s_BuildBasePath, n_MaxWidth, n_MaxHeight)
Err.Clear
On Error Resume Next

'檢查組件是否已經注冊
Dim AspJpeg
Set AspJpeg = Server.Createobject("Persits.Jpeg")
If Err.Number <> 0 Then
Err.Clear
BuildSmallPic = "Error_01"
Exit Function
End If

'檢查原圖片是否存在
Dim s_MapOriginalPath
s_MapOriginalPath = Server.MapPath(s_OriginalPath)
AspJpeg.Open s_MapOriginalPath '打開原圖片
If Err.Number <> 0 Then
Err.Clear
BuildSmallPic = "Error_02"
Exit Function
End If

'按比例取得縮略圖寬度和高度
Dim n_OriginalWidth, n_OriginalHeight '原圖片寬度、高度
Dim n_BuildWidth, n_BuildHeight '縮略圖寬度、高度
Dim div1, div2
Dim n1, n2
n_OriginalWidth = AspJpeg.Width
n_OriginalHeight = AspJpeg.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

'指定寬度和高度生成
AspJpeg.Width = n_BuildWidth
AspJpeg.Height = n_BuildHeight

'--將縮略圖存盤開始--
Dim pos, s_OriginalFileName, s_OriginalFileExt '位置、原文件名、原文件擴展名
pos = InStrRev(s_OriginalPath, "/") + 1
s_OriginalFileName = Mid(s_OriginalPath, pos)
pos = InStrRev(s_OriginalFileName, ".")
s_OriginalFileExt = Mid(s_OriginalFileName, pos)

Dim s_MapBuildBasePath, s_MapBuildPath, s_BuildFileName '縮略圖絕對路徑、縮略圖文件名
Dim s_EndFlag '小圖片文件名結尾標識 例: 如果大圖片文件名是“image1.gif”,結尾標識是“_small”,那么小圖片文件名就是“image1_small.gif”
If Right(s_BuildBasePath, 1) <> "/" Then s_BuildBasePath = s_BuildBasePath & "/"
s_MapBuildBasePath = Server.MapPath(s_BuildBasePath)
s_EndFlag = "_small" '可以自定義,只要能區別大小圖片即可
s_BuildFileName = Replace(s_OriginalFileName, s_OriginalFileExt, "") & s_EndFlag & s_OriginalFileExt
s_MapBuildPath = s_MapBuildBasePath & "\" & s_BuildFileName

AspJpeg.Save s_MapBuildPath '保存
If Err.Number <> 0 Then
Err.Clear
BuildSmallPic = "Error_03"
Exit Function
End If
'--將縮略圖存盤結束--

'注銷實例
Set AspJpeg = Nothing
If Err.Number <> 0 Then
BuildSmallPic = "Error_Other"
Err.Clear
End If
BuildSmallPic = s_BuildBasePath & s_BuildFileName
End Function

%>

轉自:動態網站制作指南 | www.knowsky.com
from
動態網站制作指南

google_ad_client = "pub-2416224910262877"; google_ad_width = 728; google_ad_height = 90; google_ad_format = "728x90_as"; google_ad_channel = ""; google_color_border = "FFFFFF"; google_color_bg = "FFFFFF"; google_color_link = "0000FF"; google_color_text = "000000"; google_color_url = "008000";

其他文章:

用ASPJPEG組件制作圖片的縮略圖和加水印

在VC中使用 Flash 美化你的程序

獲得WebBrowser控件中的HTML源碼

使用IE控件的一些有趣方法

為Pocket PC上的IE創建ActiveX控件

ASP服務器端組件編程實例1

aspjpeg組件高級使用方法介紹

用AspJpeg組件,按寬高比例,真正生成縮略圖


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 伊人情人综合成人久久网小说 | 精品国产美女 | 久久99精品麻豆国产 | 亚洲伊人久久综合 | 久青草国产在线视频亚瑟影视 | 中文字幕最新中文字幕中文字幕 | 中文国产成人精品少久久 | 深夜免费福利视频 | 美女bbxx美女bbb | 免费精品精品国产欧美在线 | 久久人人爽人人爽人人片av不 | 亚洲精品久久久久久久无 | 国产精品香蕉在线观看不卡 | 色综合中文字幕在线亚洲 | 99热福利| 毛片黄| 亚洲国产女人aaa毛片在线 | 四虎影视在线观看2413 | 成人午夜影院在线观看 | 亚洲一区二区免费在线观看 | 色婷婷久久免费网站 | 亚洲欧美国产中文 | 中文字暮文字暮 | 国产亚洲欧美ai在线看片 | 亚洲天天做日日做天天欢毛片 | 国产精品99久久久久久人 | 欧洲一级做a爱在线观看 | 国产香蕉一区二区在线观看 | 久久亚洲影院 | 久久精品国产精品亚洲艾 | 色综合五月激情综合色一区 | 精品国产成人高清在线 | 国产日| 欧美一级毛片国产一级毛片 | 成人免费视频在线看 | 色综合成人丁香 | 99视频免费在线观看 | 久草在线观看视频 | 色停停| 2020国产成人精品视频人 | 免费看日韩欧美一级毛片 |