便曆某路徑下檔案夾,把所有MP3資料讀到資料庫

1. <!--#include file="Sql_Conn.asp"--><!--#include file="Inc/Inc.asp"--><!--#include file="Inc/Config.asp"-->
2. <%
3. '本版本為OK版1.0  add by ym on 2008.11.17
5. function GetExtendName(FileName) 
6. dim ExtName 
7. ExtName = LCase(FileName) 
8. ExtName = right(ExtName,3) 
9. ExtName = right(ExtName,3-Instr(ExtName,".")) 
10. GetExtendName = ExtName 
11. end function
14. '便曆某路徑下檔案夾,把所有MP3資料讀到資料庫 
15.     function bianli(path)
16.         dim fso            'fso對象
17.         dim objFolder      '檔案夾對象
18.         dim objSubFolders '子檔案夾集合
19.         dim objSubFolder   '子檔案夾對象
20.         dim objFiles       '檔案集合
21.         dim objFile        '檔案對象
23.         set fso=server.CreateObject("scripting.filesystemobject")    
24.         on error resume next
25.         set objFolder=fso.GetFolder(path)'建立檔案夾對象
26.         set objSubFolders=objFolder.Subfolders'建立的子檔案夾對象
27.         for each objSubFolder in objSubFolders
28.             'nowpath=path + "//" + objSubFolder.name
29.             nowpath=path  + objSubFolder.name
30.            ' Response.Write nowpath
31.             set objFiles=objSubFolder.Files
32.             for each objFile in objFiles
33.               if GetExtendName(objFile.name)  = "mp3" then
34.                               Response.Write "<br>"
35.                 'Response.Write objFile.name
36.                 
37.                 dim lc_lj 
38.                 lc_lj = nowpath + "/" +objFile.name
39.                 lc_lj=Mid(lc_lj,4)         ' 由lc_lj的第4個字元讀起，讀取後面的所有字元。
40.                 lc_lj=Replace(lc_lj,"/","/")
41.                 'response.Write(lc_lj)
42.                 
43.                 dim lc_now
44.                 lc_now = now()
45.                 response.write lc_now
46.                 
47.                 dim sql_in
48.                 'sql_in = "insert into ylmv_dj(djCat_Id,specialid,Dj_name,Hits,dj_url,path,dj_pic,dj_user,tjuser,dj_word,dj_desc,IsBest,istop,grade,DownHits,BoxHits,uHits,dHits,DayHits,WeekHits,MonthHits,error,passed,points,music,dj_date,lasthittime) values(11,0,'"+ objFile.name  +"',0,'"+ lc_lj +"',5,'rm','紫龍舞曲管理','admin','"+ objFile.name +"','☆☆★★★',1,1,1,0,0,0,0,0,0,0,0,0,0,0,'"+lc_now +"','"+lc_now+"')"
51.                 sql_in1 = "insert into ylmv_dj(djCat_Id,specialid,Dj_name,Hits,dj_url,path,dj_pic,dj_user,tjuser,dj_word,dj_desc,IsBest,istop,grade,DownHits,BoxHits,uHits,dHits,DayHits,WeekHits,MonthHits,error,passed,points,music,deleted) values(11,0,'"+ objFile.name  +"',0,'"+ lc_lj +"',5,'rm','紫龍舞曲管理','admin','"+ objFile.name +"','☆☆★★★',1,1,1,0,0,0,0,0,0,0,0,0,0,0,0)"
54.                 'Response.Write objFile.name
55.                 'response.Write sql_in1
56.                 conn.execute(sql_in1)
57.                  Response.Write "<br>"
58.                 response.Write("添加"+objFile.name+"!!!!!!")
59.               end if
60.             
62.             next
63.             Response.Write "<p>"
64.             bianli(nowpath)    '調用遞迴
65.         next
66.         set objFolder=nothing
67.         set objSubFolders=nothing
68.         set fso=nothing
69.     end function
70. %>
71. <%
72.     bianli("F:/Music/") '調用bianli()函數,這裡是遍曆F:盤
73. %>