Untuk desainer situs web, tidak dapat dihindari untuk memproses kumpulan file yang besar, terutama gambar dan beberapa file teks, yang bahkan lebih sering. Karena sejumlah besar file di situs web, penamaan file dari jenis yang sama sering secara langsung menggunakan nomor tambahan dengan keteraturan tertentu sebagai nama file. Misalnya, penamaan file gambar umum sering menggunakan 1001.jpg dan 1002.jpg. Keuntungan ini adalah bahwa nama file tidak akan digandakan dan mudah dikelola. Di sini, kami secara khusus memperkenalkan cara sederhana dan mudah untuk menggunakan ASP untuk hanya menggunakan ganti nama batch untuk mengganti nama semua file. Tentu saja, nama file setelah ganti nama bertambah sesuai dengan kebutuhan perancang situs web.
Kami menggunakan ASP untuk mengimplementasikan fungsi di atas. Perlu dicatat bahwa karena merancang operasi file dan menggunakan objek fileSystemObject, implementasi fungsi ini harus dilakukan di situs web dengan izin operasi file. Secara umum, perhatian virtual adalah bahwa mempertimbangkan persyaratan keamanan, file tersebut mungkin tidak diberikan izin, yang perlu kita perhatikan terlebih dahulu; Dalam program berikut, kami akan mengoperasikan semua file di folder yang ditentukan STRFROMDIR. Selama ini adalah file di folder ini, tidak peduli apa jenis file tersebut, program akan mengganti nama. Tentu saja, jenis file tidak akan diubah. File setelah nama tidak akan disimpan di folder asli, tetapi akan dipindahkan ke folder baru StrtargetDir. Perhatikan bahwa kami pindah ke sini, tidak menyalin, jadi setelah operasi, semua file di folder asli tidak akan ada; Program ini memanfaatkan berbagai atribut dan fitur yang disediakan oleh Objek FileSystemObject, dan implementasinya sederhana dan jelas, dan teman -teman yang menggunakan bahasa lain mungkin merasakannya secara mendalam; Sekarang, mari kita lihat kode implementasi fungsi:
＜ % @ganguage = vbscript % ＞
＜%Opsi Eksplisit%＞
＜%
'Program berikut ini mengganti nama nama file di folder dan memindahkan semua file ke folder baru;
Response.write "＜ html ＞" & vbcrlf & "＜ head ＞" & vbcrlf
Response.write "＜ judul ＞ Ubah nama file batch </title ＞" & vbcrlf
Response.write "＜/head>" & vbcrlf & "＜ body>" & vbcrlf
'Deskripsi variabel
Redup gbolgoprocedure
Folder Sumber STRFROMDIR
Folder redup strtargetDir'target
Redup objfs
Redup objrootfolder
Redup objfile
Redup strfilenamelen
Redup strprevfilename
Ekstensi File Dim Strfilext '
Redup strfilenamecount
Redup strnewfileName
Jumlah file yang diproses di DIM STRREALCOUNT
gbolgoprocedure = false
'Jika tombol Mulai diklik, lakukan pemrosesan berikut
If (request.form ("gobutton")) = "mulai" lalu
'Tentukan folder sumber dan folder tujuan
strfromdir = "D: tes/"
strtargetDir = "d:/test1/"
'Atur jumlah file pemrosesan ke 0
Strrealcount = 0
Set OBJFS = Server.CreateObject ("Scripting.FilesystemObject")
Setel objrootfolder = objfs.getfolder (strTargetDir)
'Pengaturan spesifik dari nama file, diatur ke 100001 di sini, menunjukkan bahwa nama file akan dari 100001
'Mulai, bertambah secara bertahap, dapat ditetapkan sesuai kebutuhan;
Strfilenamecount = 100001
Untuk setiap objfile di objrootfolder.files
'Untuk file tertentu, mereka tidak diproses dan dapat ditetapkan sesuai kebutuhan;
Jika objfile.name = "thumbs.db" maka strfilenamecount = strfilenamecount - 1
Strfilenamecount = Strfilenamecount + 1
Berikutnya
Setel objrootfolder = objfs.getfolder (strFromDir)
Untuk setiap objfile di objrootfolder.files
strfilenamelen = len (objfile.name)
Jika mid (objfile.name, (strfilenamelen - 3), 1) = "." Kemudian
strfileext = kanan (objfile.name, 4)
Kalau tidak
strfileext = kanan (objfile.name, 5)
Akhiri jika
strprevfilename = objfile.name
strnewfilename = strfilenamecount & strfileext
objfile.move strtargetdir & strnewfilename
Response.write "File Sumber:" & StrfromDir & StrPrevFileName & "＞ Pindahkan dan ubah ke:" & strtargetDir & strnewfilename & "＜br>" & vbcrlf
Strfilenamecount = Strfilenamecount + 1
Strrealcount = StrrealCount + 1
Berikutnya
Response.write "＜ p ＞＜ b ＞ pemrosesan total:" & (strreealcount) & "file </b>" & vbcrlf
Atur objrootfolder = tidak ada
Atur objfs = tidak ada
gbolgoprocedure = true
Akhiri jika
Jika gbolgoprocedure maka
Response.write ("＜ p ＞＜ b ＞ file batch batch dan ganti nama </b ＞") & vbcrlf
Kalau tidak
Response.write ("＜ Center ＞＜Br> ＜ Form Metode =" "POST" "ACTION =" "FILENAMECONVERTER.ASP" "ID = Form1 Name =" "Form1" ""> ") & vbcrlf
Response.write ("＜ input type =" "kirim" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
Response.write ("＜/form>") & vbcrlf
Response.write ("＜ p ＞＜ b ＞ klik tombol untuk memindahkan dan mengubah nama file </b ＞＜/center ＞") & vbcrlf
Akhiri jika
Response.write "＜/body>" & vbcrlf & "＜/html>"
%＞
Di atas adalah semua konten ASP yang hanya mengimplementasikan ganti nama batch dari semua file. Konten yang lebih menarik ada di saluran teknologi miaoxin.