ASP要如何查詢檔案的摘要??
作者:CHOME 日期:2012-05-11
Asp(Vbscript)對File內建的屬性如下
Attributes__檔案的屬性
DateCreated__檔案創建的日期和時間
DateLastAccessed__檔案最後被啟動的日期和時間
DateLastModified_檔案最後被修改的日期和時間
Drive__檔案儲存的磁碟機
Name__檔案名稱
ParentFolder__儲存檔案的目錄
Path__儲存檔案的路徑
ShortName__8.3命名的短名稱
ShortPath__8.3命名的短路徑
Size__檔案大小
Type_檔案類型(即啟動這個檔案的應用程式名)
檔案>右鍵>內容>摘要
JPG檔
如上圖的[標題][主旨][關鍵字][註解][作者]等等等......
MP3檔
如上圖的[演出者][專輯標題][年份][曲目][類型][標題][註解][保護] 等等等...
這些資訊如何利用ASP讀出來??(更新部份以後再來研究)
JPG檔查到了
9. 作者 = CHOME
10. 標題 = 吉野櫻
11. 主旨 = 日本櫻花
14. 註解 = 攝於2008.03.04
MP3檔查到了
9. 作者 = S.H.E
10. 標題 = 紫藤花
11. 主旨 = 紫藤花
12. 類別目錄 = Other
14. 註解 = 花纏繞的剩僅旋律
16. 演出者 = S.H.E
17. 專輯標題 = 紫藤花
18. 年份 = 2010
20. 類型 = Other
21. 時間長度 = 00:04:06
22. 位元率 = 128kbps
33. 音訊取樣速率 = 44 kHz
34. 頻道 = 2 (立體聲)
<%
Set fs = CreateObject("Scripting.FileSystemObject")
FPath = "img/1/紫藤花.mp3"
filepath=Server.MapPath(FPath)
if fs.fileexists(filepath) then
set fo=fs.getFile(filepath)
tmp=split(fo.name,".")
fn=replace(fo.name,"."&tmp(ubound(tmp)),"")
fd=fo.ParentFolder
set fo=nothing
response.write "ParentFolder = " & fd & "<br>"
response.write "fn = " & fn & "<br>"
response.write getAttr(fd,fn)
'response.write getAttr(fd,fn'14)
end if
set fs=nothing
'讀取文件所有屬性
'function getAttr(folder,filename,i)
function getAttr(folder,filename)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(folder)
Set objFile = objFolder.ParseName(filename)
For Each strFileName in objFolder.Items
if lcase(strFileName) = lcase(filename) then
For i = -1 to 127
'getAttr=objFolder.GetDetailsOf(strFileName, i)
getAttr=getAttr& i & ". "& objFolder.GetDetailsOf(objFolder.Items, i) & " = " & Replace(objFolder.GetDetailsOf(strFileName, i),chr(10),"<br>") & "<BR>"
Next
end if
Next
set objshell=nothing
set objFolder=nothing
end function
%>
Attributes__檔案的屬性
DateCreated__檔案創建的日期和時間
DateLastAccessed__檔案最後被啟動的日期和時間
DateLastModified_檔案最後被修改的日期和時間
Drive__檔案儲存的磁碟機
Name__檔案名稱
ParentFolder__儲存檔案的目錄
Path__儲存檔案的路徑
ShortName__8.3命名的短名稱
ShortPath__8.3命名的短路徑
Size__檔案大小
Type_檔案類型(即啟動這個檔案的應用程式名)
檔案>右鍵>內容>摘要
JPG檔
如上圖的[標題][主旨][關鍵字][註解][作者]等等等......
MP3檔
如上圖的[演出者][專輯標題][年份][曲目][類型][標題][註解][保護] 等等等...
這些資訊如何利用ASP讀出來??(更新部份以後再來研究)
JPG檔查到了
9. 作者 = CHOME
10. 標題 = 吉野櫻
11. 主旨 = 日本櫻花
14. 註解 = 攝於2008.03.04
MP3檔查到了
9. 作者 = S.H.E
10. 標題 = 紫藤花
11. 主旨 = 紫藤花
12. 類別目錄 = Other
14. 註解 = 花纏繞的剩僅旋律
16. 演出者 = S.H.E
17. 專輯標題 = 紫藤花
18. 年份 = 2010
20. 類型 = Other
21. 時間長度 = 00:04:06
22. 位元率 = 128kbps
33. 音訊取樣速率 = 44 kHz
34. 頻道 = 2 (立體聲)
復制內容到剪貼板
歌詞或引言或程序代碼
歌詞或引言或程序代碼<%
Set fs = CreateObject("Scripting.FileSystemObject")
FPath = "img/1/紫藤花.mp3"
filepath=Server.MapPath(FPath)
if fs.fileexists(filepath) then
set fo=fs.getFile(filepath)
tmp=split(fo.name,".")
fn=replace(fo.name,"."&tmp(ubound(tmp)),"")
fd=fo.ParentFolder
set fo=nothing
response.write "ParentFolder = " & fd & "<br>"
response.write "fn = " & fn & "<br>"
response.write getAttr(fd,fn)
'response.write getAttr(fd,fn'14)
end if
set fs=nothing
'讀取文件所有屬性
'function getAttr(folder,filename,i)
function getAttr(folder,filename)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(folder)
Set objFile = objFolder.ParseName(filename)
For Each strFileName in objFolder.Items
if lcase(strFileName) = lcase(filename) then
For i = -1 to 127
'getAttr=objFolder.GetDetailsOf(strFileName, i)
getAttr=getAttr& i & ". "& objFolder.GetDetailsOf(objFolder.Items, i) & " = " & Replace(objFolder.GetDetailsOf(strFileName, i),chr(10),"<br>") & "<BR>"
Next
end if
Next
set objshell=nothing
set objFolder=nothing
end function
%>
上一篇: 
下一篇: 
文章來自: 
引用通告: 
Tags: 
相關日志:
評論: 0 | 引用: 0 | 查看次數: -
發表評論