Fungsi khusus yang biasa digunakan dalam ASP untuk menangani pengunggahan dan penghapusan file
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
'Semua fungsi VBS khusus
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
Function DeleteFile (FileName) 'Delete File
Jika nama file <> maka
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”' '' '' '' '' '' '' '' '' '' '' '' ''
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”' '' '' '' '' '' '' '' '' '' '' '' ''
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) lain c_month = bulan (sekarang)
'if day (sekarang) <10 maka c_day = 0 & hari (sekarang) lain c_day = hari (sekarang)
'if hour (sekarang) <10 maka c_hour = 0 & jam (sekarang) lain c_hour = jam (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”' '' '' '' '' '' '' '' '' '' '' '' ''
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”' '' '' '' '' '' '' '' '' '' '' '' ''
Function Replaceplus (Strcontent, Start_String, end_string, Replace_string)