便历某路径下文件夹,把所有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. %>