ส่วนประกอบ FSO ใน ASP นั้นทรงพลังมาก หากคุณไม่มีฟังก์ชั่นนี้คุณจะไม่ทราบว่า ASP จะกลายเป็นอะไร ในความเป็นจริงเพื่อนที่ต้องการเรียนรู้การเขียนโปรแกรม ASP จะได้สัมผัสกับการดำเนินงานที่เกี่ยวข้องกับ FSO อย่างแน่นอน ช่องเทคโนโลยีใหม่ต่อไปนี้จะนำคอลเลกชันที่สมบูรณ์ของฟังก์ชั่นการประมวลผลไฟล์ ASP FSO
การคัดลอกรหัสมีดังนี้:-
'สร้างฟังก์ชันโฟลเดอร์
ฟังก์ชั่น createFolder (strfolder) 'พารามิเตอร์เป็นเส้นทางสัมพัทธ์
'ตัวเลือกแรกคือการพิจารณาว่ามีการสร้างโฟลเดอร์อยู่แล้วหรือยัง
Dim strtestfolder, objfso
strTestFolder = server.mappath (strfolder)
ตั้งค่า objfso = createObject ("scripting.filesystemobject")
'ตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่
ถ้าไม่ objfso.folderexists (strtestfolder) แล้ว
'ถ้าไม่มีอยู่ให้สร้างโฟลเดอร์
objfso.createfolder (strtestfolder)
สิ้นสุดถ้า
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ลบโฟลเดอร์
ฟังก์ชั่น delfolder (strfolder) 'พารามิเตอร์เป็นเส้นทางสัมพัทธ์
strTestFolder = server.mappath (strfolder)
ตั้งค่า objfso = createObject ("scripting.filesystemobject")
'ตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่
ถ้า objfso.folderexists (strtestfolder) แล้ว
objfso.deletefolder (strtestfolder)
สิ้นสุดถ้า
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'สร้างไฟล์ข้อความ
ฟังก์ชั่น createTextFile (fileUrl, fileContent) 'พารามิเตอร์เป็นพา ธ สัมพัทธ์และเนื้อหาที่จะเขียนลงในไฟล์
ตั้งค่า objfso = server.createObject ("scripting.filesystemobject")
ตั้งค่า fout = objfso.createtextfile (Server.mappath (fileUrl))
fout.writeline fileContent
fout.close
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ลบไฟล์ (เหมาะสำหรับไฟล์ทั้งหมด)
พารามิเตอร์ function deltextfile (fileUrl) เป็นพา ธ สัมพัทธ์
ตั้งค่า objfso = createObject ("scripting.filesystemobject")
fileUrl = server.mappath (fileUrl)
ถ้า objfso.fileexists (fileUrl) ให้ตรวจสอบว่ามีไฟล์อยู่หรือไม่
objfso.deleteFile (server.mappath (fileUrl))
สิ้นสุดถ้า
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'สร้างไฟล์รูปภาพและบันทึกสตรีมข้อมูลภาพ
ฟังก์ชั่น createImage (fileUrl, imageContent) 'พารามิเตอร์เป็นพา ธ สัมพัทธ์และเนื้อหาไฟล์
ตั้งค่า objstream = server.createObject ("adodb.stream") 'เพื่อสร้างวัตถุ adoDb.stream, ADO เวอร์ชัน 2.5 หรือสูงกว่า
objstream.type = 1 'เปิดในโหมดไบนารี
objstream.open
objstream.write imagecontent 'เนื้อหาสตริงเขียนเพื่อบัฟเฟอร์
objstream.savetofile server.mappath (fileUrl), 2 '-เขียนเนื้อหาบัฟเฟอร์เป็นไฟล์
objstream.close () 'วัตถุปิด
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'รับข้อมูลไฟล์จากระยะไกล
ฟังก์ชั่น gethttppage (url)
'เมื่อเกิดข้อผิดพลาดต่อไป
สลัว http
ตั้งค่า http = server.createObject ("microsoft.xmlhttp"))
http.open "get", url, false
http.send ()
ถ้า http.readystate <> 4 แล้ว
ฟังก์ชั่นออก
สิ้นสุดถ้า
gethttppage = bytestobstr (http.responsebody, "GB2312"))
ตั้งค่า http = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
gethttppage = "เซิร์ฟเวอร์มีข้อผิดพลาดเนื้อหาไฟล์"
err.lear
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bytestobstr (body, cset)
สลัว objstream
ตั้งค่า objstream = server.createObject ("adodb.stream"))
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write ร่างกาย
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readText
objstream.close
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'รับสตรีมข้อมูลรูปภาพ
ฟังก์ชั่น getpic (URL)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว http
ตั้งค่า http = server.createObject ("msxml2.xmlhttp") 'ใช้เมธอด xmlhttt เพื่อรับเนื้อหาของภาพ
http.open "get", url, false
http.send ()
ถ้า http.readystate <> 4 แล้ว
ฟังก์ชั่นออก
สิ้นสุดถ้า
getPic = http.responsebody
ตั้งค่า http = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
getPic = "เซิร์ฟเวอร์มีข้อผิดพลาดในการรับเนื้อหาไฟล์"
err.lear
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'เปิดไฟล์ (แบบฟอร์มข้อความ)
Function OpenFile (FILEURL) 'พา ธ สัมพัทธ์
ชื่อไฟล์สลัว, fso, hndfile
filename = fileUrl
filename = server.mappath (ชื่อไฟล์)
ตั้งค่า objfso = createObject ("scripting.filesystemobject")
ถ้า objfso.fileexists (ชื่อไฟล์) แล้ว
ตั้งค่า hndfile = objfso.opentextfile (ชื่อไฟล์)
openFile = hndfile.readall
อื่น
openFile = "ข้อผิดพลาดในการอ่านไฟล์"
สิ้นสุดถ้า
ตั้งค่า hndfile = ไม่มีอะไร
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'รับชื่อต่อท้ายของไฟล์
ฟังก์ชั่น getFileExtName (ชื่อไฟล์)
สลัว pos
pos = instrrev (ชื่อไฟล์, ".")
ถ้า pos> 0 แล้ว
getFileExtName = mid (ชื่อไฟล์, pos+1)
อื่น
getFileExtName = ""
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ข้างต้นเป็นคอลเลกชันที่สมบูรณ์ของฟังก์ชั่นการประมวลผลไฟล์ ASP FSO ที่แนะนำโดยบรรณาธิการของ Foxin Technology Channel ฉันเชื่อว่าทุกคนมีความเข้าใจที่แน่นอน Foxin Technology Channel จะแบ่งปันความรู้มากขึ้นกับคุณทำให้คุณดีขึ้นและดีขึ้นในอุตสาหกรรมนี้