ใน ASP โดยเฉพาะอย่างยิ่งในระบบ CMS ที่จำเป็นต้องสร้างสถานะคงที่ไฟล์บางไฟล์มักจะต้องได้รับการตัดสินสร้างและลบ วันนี้บรรณาธิการของช่องทางเทคโนโลยีข้อผิดพลาดใหม่ได้จัดเรียงให้คุณที่นี่ซึ่งโดยทั่วไปตรงกับความต้องการขั้นพื้นฐาน
ฟังก์ชั่นที่กำหนดเองที่ใช้กันทั่วไปใน 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) & "/" else 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)
'ในเอกสารให้ลบอักขระทั้งหมดระหว่างจุดเริ่มต้นและจุดสิ้นสุด
เมื่อเกิดข้อผิดพลาดต่อไป
MarkCounts = ubund (แยก (strcontent, start_string)))
prestring = strcontent
สำหรับ i = 0 ถึง MarkCounts
startmark = instr (1, prestring, start_string, 1)
ถ้า startmark = 0 ออกจาก
compmark = instr (1, prestring, end_string, 1) + len (end_string)
verstring = mid (prestring, startmark, compmark - startmark)
prestring = แทนที่ (prestring, vertring, replact_string)
ต่อไป
แทนที่ PLUS = PRESTRING
ถ้า err.number <> 0 จากนั้น err.clear
ฟังก์ชันสิ้นสุด
- - - -
-
บทความข้างต้นเกี่ยวกับฟังก์ชั่นการประมวลผลไฟล์ที่ใช้กันทั่วไปใน ASP ฉันเชื่อว่าทุกคนรู้จักพวกเขาส่วนใหญ่ ช่องทางเทคโนโลยีใหม่ที่ไม่ถูกต้องจะยังคงรวบรวมความรู้ที่เป็นประโยชน์มากขึ้นสำหรับคุณ ฉันหวังว่าคุณจะเข้าใจความตั้งใจที่ดีของบรรณาธิการ ถ้าคุณชอบบทความนี้ให้ติดตามเราต่อไป!