Dalam ASP, terutama dalam sistem CMS yang perlu menghasilkan status statis, beberapa file sering diperlukan untuk dinilai, dibuat, dan dihapus. Saat ini, editor saluran Teknologi Baru telah mengurutkannya untuk Anda di sini, yang pada dasarnya memenuhi kebutuhan dasar.
Fungsi khusus yang biasa digunakan dalam ASP untuk menangani pengunggahan dan penghapusan file
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
'Semua fungsi VBS khusus
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
Function DeleteFile (FileName) 'Delete File
Jika nama file <> "" lalu
Atur fso = server.CreateObject ("Scripting.FilesystemObject")
Jika fso.fileexists (nama file) lalu
nama file fso.deleteFile
akhiri jika
atur fso = tidak ada
akhiri jika
fungsi akhir
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
Fungsi CreateDir (ByVal Localpath) 'Program yang membuat direktori. Jika ada banyak level direktori, membuatnya satu tingkat pada satu waktu
pada kesalahan resume berikutnya
Localpath = ganti (localpath, "/", "/")
Set FileObject = Server.CreateObject ("Scripting.FilesyStemObject")
patharr = split (localpath, "/")
path_level = ubund (patharr)
untuk i = 0 ke path_level
jika i = 0 maka pathtmp = patharr (0) & "/" else pathtmp = pathtmp & patharr (i) & "/"
cpath = kiri (pathtmp, len (pathtmp) -1)
Jika tidak FileObject.FolderExists (CPath) maka FileObject.CreateFolder CPath
Berikutnya
atur fileObject = tidak ada
Jika err.number <> 0 lalu
CreateRir = false
err.clear
kalau tidak
CreateRir = true
akhiri jika
fungsi akhir
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
function saverandfilename (byval szfileName) 'menghasilkan nama file acak baru berdasarkan nama file asli
mengacak
'rannum = int (90000*rnd) +10000
'if month (sekarang) <10 lalu c_month = "0" & bulan (sekarang) else c_month = bulan (sekarang)
'if day (sekarang) <10 maka c_day = "0" & day (sekarang) lain c_day = day (sekarang)
'if hour (sekarang) <10 maka c_hour = "0" & hour (sekarang) else c_hour = hour (sekarang)
'Jika menit (sekarang) <10 maka c_minute = "0" & menit (sekarang) lain c_minute = menit (sekarang)
'Jika kedua (sekarang) <10 maka c_second = "0" & kedua (sekarang) lain c_second = menit (sekarang)
fileext_a = split (szfilename, ".")
fileExt = lcase (fileext_a (ubund (fileext_a))))
SaverandfileName = ganti (ganti (ganti (sekarang, ":", ""), "-", ""), "", "") & int (10*rnd) & "." & Fileext
'Generaterandomfilename = tahun (sekarang) & c_month & c_day & c_hour & c_minute & c_second & "_" & rannum & "." & Fileext
fungsi akhir
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
Function Jaron_replacer (Strcontent, Start_String, end_string, Replace_String)
'Fungsi Penggantian CMS: String Sumber, Bagian Pertama, Bagian Terakhir, Karakter Ganti
'Mengembalikan string yang diganti
Jaron_replacer = ganti (strcontent, mid (strcontent, instr (strcontent, start_string), instr (strcontent, end_string)+len (end_string) -1), ganti_string)
fungsi akhir
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
Function Replaceplus (Strcontent, Start_String, end_string, Replace_string)
'Dalam dokumen, hapus semua karakter antara awal dan akhir
pada kesalahan resume berikutnya
MarkCounts = ubund (split (strcontent, start_string))
Prestring = Strcontent
Untuk i = 0 ke MarkCounts
Startmark = instr (1, prestring, start_string, 1)
Jika startmark = 0 maka keluar untuk
Compmark = instr (1, prestring, end_string, 1) + len (end_string)
Verstring = mid (prestring, startmark, compmark - startmark)
Prestring = ganti (prestring, verstring, ganti_string)
Berikutnya
replaceplus = prestring
Jika err.number <> 0 maka err.clear
fungsi akhir
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Yang ”yang” ”yang” '' '' '' '' '' '' '' '
%>
Artikel di atas adalah tentang fungsi pemrosesan file yang umum digunakan di ASP. Saya percaya semua orang tahu sebagian besar dari mereka. Saluran Teknologi Baru yang salah akan terus mengumpulkan pengetahuan yang lebih berguna untuk Anda. Saya harap Anda dapat memahami niat baik editor. Jika Anda menyukai artikel ini, terus ikuti kami!