ฟังก์ชั่นที่กำหนดเองที่ใช้กันทั่วไปใน ASP เพื่อจัดการการอัปโหลดและลบไฟล์
-
-
'ฟังก์ชั่น VBS ที่กำหนดเองทั้งหมด
-
Function DELETEFILE (ชื่อไฟล์) 'ลบไฟล์
ถ้าชื่อไฟล์ <> แล้ว
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
ถ้า fso.fileexists (ชื่อไฟล์) จากนั้น
fso.deletefile filename
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นสร้างขึ้น (Byval localpath) 'โปรแกรมที่สร้างไดเรกทอรี หากมีไดเรกทอรีหลายระดับให้สร้างทีละระดับ
เมื่อเกิดข้อผิดพลาดต่อไป
localpath = แทนที่ (localpath,/,/)
ตั้งค่า fileObject = server.createObject (scripting.filesystemobject)
patharr = split (localpath,/)
path_level = ubund (patharr)
สำหรับ i = 0 ถึง path_level
ถ้า i = 0 แล้ว pathtmp = patharr (0) & / อื่น ๆ pathtmp = pathtmp & patharr (i) & /
cPath = ซ้าย (pathtmp, len (pathtmp) -1)
ถ้าไม่ใช่ fileobject.folderexists (cPath) จากนั้น fileObject.createFolder cpath
ต่อไป
ตั้งค่า fileObject = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
createDir = false
err.lear
อื่น
createDir = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ฟังก์ชัน saverandfilename (byval szfilename) 'สร้างชื่อไฟล์สุ่มใหม่ตามชื่อไฟล์ต้นฉบับ
สุ่ม
'rannum = int (90000*rnd) +10000
'ถ้าเดือน (ตอนนี้) <10 แล้ว c_month = 0 & เดือน (ตอนนี้) อื่น c_month = เดือน (ตอนนี้)
'ถ้าวัน (ตอนนี้) <10 แล้ว c_day = 0 & วัน (ตอนนี้) อื่น c_day = วัน (ตอนนี้)
'ถ้าชั่วโมง (ตอนนี้) <10 แล้ว c_hour = 0 & ชั่วโมง (ตอนนี้) อื่น c_hour = ชั่วโมง (ตอนนี้)
'ถ้านาที (ตอนนี้) <10 จากนั้น c_minute = 0 & นาที (ตอนนี้) อื่น c_minute = นาที (ตอนนี้)
'ถ้าวินาที (ตอนนี้) <10 จากนั้น c_second = 0 & วินาที (ตอนนี้) อื่น c_second = นาที (ตอนนี้)
fileext_a = split (szfilename,.)
fileext = lcase (fileext_a (ubund (fileext_a)))))))))))))
saverandfileName = แทนที่ (แทนที่ (แทนที่ (ตอนนี้,:,),-,),) & int (10*rnd) &. & fileext
'generaterandomfilename = ปี (ตอนนี้) & c_month & c_day & c_hour & c_minute & c_second & rannum &. & fileext
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น jaron_replacer (strcontent, start_string, end_string, replic_string)
'ฟังก์ชั่นการแทนที่ CMS: สตริงต้นทางส่วนแรกส่วนสุดท้ายแทนที่อักขระ
'ส่งคืนสตริงที่ถูกแทนที่
jaron_replacer = แทนที่ (strcontent, mid (strcontent, instr (strcontent, start_string), instr (strcontent, end_string)+len (end_string) -1), replic_string)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น inductPlus (strcontent, start_string, end_string, replic_string)