<%
sclassname = "華人男歌手"
a = 1
b = 1
c = 1
'做這個程式之前一定要設定超時時間，先研究一下原資料庫，
set objfso = server.createobject("scripting.filesystemobject") '建立檔案系統物件
for each abc in objfolder.subfolders
response.write "
"&abc.name&""
for each geshou in abc.subfolders
response.write "---"&a&":"&geshou.name&""
a=a+1
'取得資料夾的名字作為歌手名，第乙個引數為曙光**，第二個引數為華人男歌手，三個引數是歌手名字，四個引數是名字拼音
sql = "insert into nclass (classid,sclassid,nclass,abcd) values (1,1,'"&replace(geshou.name,"'","")&"','"&abc.name&"')"
conn.execute (sql)
'取得歌手所在資料庫的id
sql = "select nclassid from nclass"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.movelast
nclassid = rs(0)
rs.close
set rs = nothing
for each zhuanji in geshou.subfolders
response.write "----------"&b&":專集名："&zhuanji.name&""
b=b+1
'取得資料夾的名字作為專集的名字，引數為....
sql = "insert into special (classid,sclassid,sclass,nclassid,nclass,name,yuyan,gongsi,pic,intro,times,hits) values (1,1,'"&sclassname&"',"&nclassid&",'"&replace(geshou.name,"'","")&"','"&replace(zhuanji.name,"'","")&"','中文','曙光**','待定','曙光管理員的**','"&now()&"',0)"
conn.execute (sql)
'取得專集所在資料庫的id
sql = "select specialid from special"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.movelast
specialid = rs(0)
rs.close
set rs = nothing
for each gequ in zhuanji.files '得到乙個files集合
'把格式的檔案放在專集的表裡面作為專集的
response.write c&"：歌曲名："&replace(gequ.name,right(gequ.name,4),"")
'把歌曲名字記入資料庫，第乙個引數是位址，第二個引數是名稱，第三個引數是歌手名
sql = "insert into musiclist (wma,musicname,singer,classid,sclassid,nclassid,hits,specialid,song_path) values('"&sclassname&"/"&abc.name&"/"&geshou.name&"/"&zhuanji.name&"/"&gequ.name&"','"&replace(gequ.name,right(gequ.name,4),"")&"','"&geshou.name&"',1,1,"&nclassid&",0,"&specialid&",1)"
conn.execute sql
c = c+1
end if
next
next
next
next
set objfolder = nothing
set objfso = nothing
%>
把檔名寫進txt檔案中
在用深度學習跑實驗時，對資料集的處理需要把檔名寫進乙個txt文件中，結果是每個名字佔一行 049 286326 402601 602603 604605import os defselect path files os.listdir path 列出所有檔案 forfile in files fil...
遍歷資料夾修改檔名
php獲取目錄中的所有檔名 1 先開啟要操作的目錄，並用乙個變數指向它 開啟當前目錄下的目錄lala資料夾 handler opendir lala 檔名 2 迴圈的讀取目錄下的所有檔案 其中 filename readdir handler 是每次迴圈的時候將讀取的檔名賦值給 filename，為...
dir函式 遍歷檔名
dir 位址 返回該位址下的第乙個檔案的檔名 sub t dim sr as string sr dir g 社團 活動 jmr xlsx 這裡使用了萬用字元，並指定了副檔名 如果不指定，至少應當在位址後加 以實現遍歷 do msgbox sr sr dir loop until sr end su...