Direkomendasikan: Kode pagination cepat ASP %@ language = vbscript codepage = 936 % % Opsi eksplisit 'memaksa variabel redup idcount' jumlah total catatan redup halaman 'jumlah per halaman redup pagec' jumlah total halaman redup halaman 'nomor halaman dim disedikan halaman pagenmax' pagenmax 'pagenmax' pagenmax 'Page page pagen pagenping' pagenmax 'pagenmax' page page pagene pagenmax 'pagenmax' pagenmax 'page page pagene pagene pagenmax' dimeder page pagene pagenmax 'pagenmax' pagenmax 'page page pagene pagenmax' dimeder page pagene pagenmaX
Untuk ruang yang mendukung ASP dan FSO, semuanya jauh lebih mudah dengan FSO
Saya juga seorang pemula dan menulis beberapa kode untuk dipelajari dan dipelajari semua orang
Pertama, apakah Anda melihat komponen pendukung FSO?
<%
'Nama komponen FSO
redup fsObject
FsObject = scripting.filesystemObject
'==================================================================================================
'◆ Apakah komponen didukung
'==================================================================================================
Fungsi isobjinstalled (strclassstring)
Pada kesalahan resume berikutnya
Isobjinstalled = false
Err = 0
Redup xtestobj
Set xtestoBj = server.createObject (strclassString)
Jika 0 = err maka isobjinstalled = true
Atur xtestoBj = tidak ada
Err = 0
Fungsi akhir
Jika isobjinstalled (fsObject) maka
Response.write √
kalau tidak
Response.write ×
akhiri jika%>
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<%
'==================================================================================================
'◆ Apakah komponen didukung
'==================================================================================================
Fungsi isobjinstalled (strclassstring)
Pada kesalahan resume berikutnya
Isobjinstalled = false
Err = 0
Redup xtestobj
Set xtestoBj = server.createObject (strclassString)
Jika 0 = err maka isobjinstalled = true
Atur xtestoBj = tidak ada
Err = 0
Fungsi akhir
'==================================================================================================
Operasi FSO
'==================================================================================================
'◆ Periksa apakah ada direktori
'==================================================================================================
Function checkdir (folderpath)
folderPath = server.mappath (.) &/& folderPath
Atur fso = createObject (fsObject)
Jika FSO.Folderexists (FolderPath) maka
Checkdir = true
Kalau tidak
Checkdir = false
Akhiri jika
Atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Hasilkan direktori berdasarkan nama yang ditentukan
'==================================================================================================
Fungsi MakenewsDir (FolderName)
redup fs0
Atur fso = createObject (fsObject)
Set FS0 = FSO.CreateFolder (FolderName)
Atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Buat folder baru jika folder tidak ada ◆
'==================================================================================================
Function Checkfolder (FolderPath)
Jika checkdir (folderpath) = false maka 'folder tidak ada
Makenewsdir (FolderPath) 'Cukup buat folder
akhiri jika
fungsi akhir
'==================================================================================================
'◆ Hapus folder ◆
'==================================================================================================
Function deletefoldera (folderpath)
Jalur redup
Atur fso = createObject (fsObject)
path = request.serverVariable (appl_physical_path) & folderpath
fso.deleteFolder (jalur)
Atur fso = tidak ada
fungsi akhir
'==================================================================================================
'◆ Ubah nama folder ◆
'==================================================================================================
Function moveFolder (FolderName, newfoldername)
isfso
Atur fso = createObject (fsObject)
fso.moveFolder & request.serverVariable (appl_physical_path) &/& folderName &, & request.serverVariable (appl_physical_path) &/& newfoldername &
Atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Hapus file yang ditentukan ◆
'==================================================================================================
Function deleteFile (file)
Atur fso = createObject (fsObject)
fso.deleteFile request.serverVariables (appl_physical_path) & file
Atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Cadangkan file yang ditentukan ◆
'==================================================================================================
Fungsi copyfile (oldfile, newfile)
Atur fso = createObject (fsObject)
Pada kesalahan resume berikutnya
Atur fso = server.createObject (fsObject)
OldFile = Server.Mappath (OldFile)
Jika err.number> 0 maka hubungi peringatan (kesalahan jalur asli!,)
newfile = server.mappath (newfile)
Jika err.number> 0 maka hubungi peringatan (kesalahan jalur baru!,)
fso.copyfile oldfile, newfile 'menimpa file aslinya
Jika err.number> 0 maka hubungi peringatan (err.description,)
Atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Transfer file yang ditentukan ◆
'==================================================================================================
Function Movefile (Oldfile, Newfile)
Atur fso = createObject (fsObject)
Pada kesalahan resume berikutnya
Atur fso = server.createObject (fsObject)
OldFile = Server.Mappath (OldFile)
Jika err.number> 0 maka hubungi peringatan (kesalahan jalur asli!,)
newfile = server.mappath (newfile)
Jika err.number> 0 maka hubungi peringatan (kesalahan jalur baru!,)
'fso.movefile oldfile, newfile' tidak dapat menimpa file aslinya
fso.movefile d: /o/data/test.txt,d: /o/databackup/test3.txt
Jika err.number> 0 maka hubungi peringatan (err.description,)
Atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Baca kode file ◆
'==================================================================================================
Function LoadFile (File) 'Baca file
redup ftemp
Atur fso = createObject (fsObject)
Atur ftemp = fso.opentextFile (server.mappath (& file &), 1)
LoadFile = ftemp.readall
ftemp.close
fso.close
atur fso = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Hasilkan file dari kode ◆
'==================================================================================================
'========================================================
'■ File menghasilkan nama file
'■ Kode file kode
'========================================================
Fungsi saveFile (file, kode) 'Simpan file
redup myfile
Atur fso = createObject (fsObject)
Setel myFile = fso.createTextFile (server.mappath (file), true)
Myfile.writeLine (kode)
Myfile.close
atur myfile = tidak ada
Fungsi akhir
'==================================================================================================
'◆ Database terkompresi ◆
'==================================================================================================
'========================================================
'■ jalur file data dbpath
'■ Boolis97 Access97 Kompresi
'========================================================
Fungsi compactdb (dbpath, boolis97)
redup strdbpath, fso, mesin
dbpath = server.mappath (dbpath)
strdbpath = kiri (dbpath, instrrev (dbpath,/))
Atur fso = createObject (fsObject)
Jika fso.fileexists (dbpath) maka
Set engine = createObject (jro.jetengine)
Jika boolis97 = true maka
DIM JET_3X
Mesin.
Penyedia = microsoft.jet.oledb.4.0; sumber data = & strdbpath & temp.mdb; _
& Jet oledb: jenis mesin = & jet_3x
Kalau tidak
Mesin.
Provider = microsoft.jet.oledb.4.0; jet oledb: kata sandi basis data = & dbpw &; sumber data = & strdbpath & temp.mdb
Akhiri jika
fso.copyfile strdbpath & temp.mdb, dbpath
fso.deleteFile (strdbpath & temp.mdb)
Atur fso = tidak ada
Setel mesin = tidak ada
Compactdb = Basis data saat ini telah berhasil dikompresi!
Kalau tidak
Compactdb = Nama atau jalur basis data salah. Tolong coba lagi!
Akhiri jika
Fungsi akhir
%>
Bagikan: Set Fungsi Operasi File ASP % '======================================================' Disusun oleh: Kode Programmer Nuxes Zhang HUI yang dikompilasi dengan Allete 'FUNIONS' FUNIONS 'FUNIONS' FUNIONS 'FUNIONS' FUNIONS 'FUNIONS' 2008 ' alamat '======================================================================== =================================================================================