圖片管理源碼
⑴ C語言名片管理系統源代碼 怎麼在裡面添加圖片啊
C語言本身不提供該功能，不過可以用系統提供的API函數加入圖片
由你購app 中 可以發布，而且自己審批 很方便
⑶ 求一個圖片管理系統或開源相冊，支持無限分類和tag標簽
推薦使用Gallery，是一個專業的圖片管理軟體。。。
相關介紹：
Gallery是一款基於WEB的軟體。它使得你可以對自己網站中的相片進行管理。你的網站必須有php和資料庫的支持來安裝和使用Gallery。通過使用Gallery，你能輕松地在一個直觀的界面中創建和維護相冊。相片管理包括縮略圖的自動創建，圖像尺寸重設，旋轉，排序，字幕及搜索等。相冊和相片可以進行查看和刪除。通過身份驗證的用戶還可以擁有其他的許可權，從而獲取額外的隱私保護。它具有很好的社群向 - 將帳號分配給你的朋友與家人。然後他們就可以在你的網站里上傳和管理自己的相片了。
⑷ 網站源代碼怎麼下載
網站源代碼的下載你可能需要仿站工具或者ctrl+s直接保存網頁代碼，但一般來說這種做法沒有辦法把php文件這種互動式操作也給下載下來。
花費很大的精力也只是html/css/js這種顯性文件，不如直接去網站模板源碼找對應想要網站類型進行下載，這樣內容管理、注冊用戶管理、圖片管理等功能都有，搭建網站更快一些。
⑸ asp圖片管理系統
'功能：按照指定圖片生成縮略圖
'注意：以下提到的「路徑」都是值相對於調用本函數的文件的相對路徑
'參數：
' 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, fileex,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 = fileex '可以自定義,只要能區別大小圖片即可
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