便历某路径下文件夹,把所有MP3数据读到数据库

Biegral 2018/12/24 22:37:04 1626

  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. %>
本文转载:CSDN博客

阅读排行

分类

归档