西風藏經閣電腦網路軟體ASP → ASP要如何查詢檔案的摘要??


  共有606人關注過本帖平板打印

主題:ASP要如何查詢檔案的摘要??

帥哥喲,離線,有人找我嗎?
admin
  1樓 個性首頁 | 部落格 | 訊息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短訊 管理員
等級:管理員 帖子:89 積分:1185 威望:0 精華:9 註冊:2003/12/30 下午 04:34:32
ASP要如何查詢檔案的摘要??  發貼心情 Post By:2012/5/13 上午 10:47:39

Asp(Vbscript)對File內建的屬性如下

Attributes__檔案的屬性
DateCreated__檔案創建的日期和時間
DateLastAccessed__檔案最後被啟動的日期和時間
DateLastModified_檔案最後被修改的日期和時間
Drive__檔案儲存的磁碟機
Name__檔案名稱
ParentFolder__儲存檔案的目錄
Path__儲存檔案的路徑
ShortName__8.3命名的短名稱
ShortPath__8.3命名的短路徑
Size__檔案大小
Type_檔案類型(即啟動這個檔案的應用程式名)

檔案>右鍵>內容>摘要

 


此主題相關圖片如下:21.jpg
按此在新視窗瀏覽圖片
JPG檔
如上圖的[標題][主旨][關鍵字][註解][作者]等等等......

 


此主題相關圖片如下:22.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
%>

[此帖子已經被作者於2012/5/13 下午 11:02:30編輯過]


夜未央 玫瑰香 思念伊人巧模樣

蝶影飛 花芬芳 西風沉醉蟬繞樑

支持(0中立(0反對(0單帖管理 | 引用 | 回覆 回到頂部

返回版面帖子列表

ASP要如何查詢檔案的摘要??







簽名