สำหรับนักออกแบบเว็บไซต์เป็นสิ่งที่หลีกเลี่ยงไม่ได้ที่จะประมวลผลไฟล์ขนาดใหญ่บ่อยครั้งโดยเฉพาะรูปภาพและไฟล์ข้อความบางไฟล์ซึ่งบ่อยครั้งยิ่งขึ้น เนื่องจากไฟล์จำนวนมากบนเว็บไซต์การตั้งชื่อไฟล์ประเภทเดียวกันมักจะใช้ตัวเลขที่เพิ่มขึ้นโดยตรงโดยมีความสม่ำเสมอบางอย่างเป็นชื่อไฟล์ ตัวอย่างเช่นการตั้งชื่อไฟล์ภาพทั่วไปมักใช้ 1001.jpg และ 1002.jpg ข้อได้เปรียบนี้คือชื่อไฟล์จะไม่ซ้ำกันและง่ายต่อการจัดการ ที่นี่เราแนะนำวิธีที่ง่ายและง่ายในการใช้ ASP เพื่อใช้การเปลี่ยนชื่อแบทช์เพื่อเปลี่ยนชื่อไฟล์ทั้งหมด แน่นอนชื่อไฟล์หลังจากการเปลี่ยนชื่อจะเพิ่มขึ้นตามความต้องการของผู้ออกแบบเว็บไซต์
เราใช้ ASP เพื่อใช้ฟังก์ชั่นข้างต้น ควรสังเกตว่าเนื่องจากการออกแบบการดำเนินการไฟล์และการใช้วัตถุ FileSystemObject การใช้งานฟังก์ชั่นนี้จะต้องดำเนินการบนเว็บไซต์ที่มีสิทธิ์การใช้งานไฟล์ โดยทั่วไปความสนใจเสมือนคือการพิจารณาข้อกำหนดด้านความปลอดภัยไฟล์อาจไม่ได้รับอนุญาตซึ่งเป็นสิ่งที่เราต้องให้ความสนใจก่อน ในโปรแกรมต่อไปนี้เราจะใช้ไฟล์ทั้งหมดในโฟลเดอร์ที่ระบุ strfromdir ตราบใดที่มันเป็นไฟล์ในโฟลเดอร์นี้ไม่ว่าประเภทไฟล์จะเป็นอย่างไรโปรแกรมจะเปลี่ยนชื่อ แน่นอนประเภทไฟล์จะไม่เปลี่ยนแปลง ไฟล์หลังจากชื่อจะไม่ถูกบันทึกในโฟลเดอร์ดั้งเดิม แต่จะถูกย้ายไปยังโฟลเดอร์ใหม่ strtargetDir โปรดทราบว่าเรากำลังย้ายที่นี่ไม่ใช่การคัดลอกดังนั้นหลังจากการดำเนินการไฟล์ทั้งหมดในโฟลเดอร์ดั้งเดิมจะไม่มีอยู่; โปรแกรมใช้ประโยชน์จากคุณลักษณะและคุณสมบัติต่าง ๆ ที่จัดทำโดยวัตถุ FileSystemObject และการใช้งานนั้นง่ายและชัดเจนและเพื่อนที่ใช้ภาษาอื่นอาจรู้สึกได้อย่างลึกซึ้ง ทีนี้มาดูรหัสการใช้งานฟังก์ชั่น:
< % @Language = VBScript %>
<%ตัวเลือกที่ชัดเจน%>
%
'ชุดโปรแกรมต่อไปนี้เปลี่ยนชื่อไฟล์ในโฟลเดอร์และย้ายไฟล์ทั้งหมดไปยังโฟลเดอร์ใหม่
response.write "<html>" & vbcrlf & "<head>" & vbcrlf
Response.write "<ชื่อ> ชื่อไฟล์แบตช์เปลี่ยน </title>" & vbcrlf
Response.write "</head>" & vbcrlf & "body>" & vbcrlf
'คำอธิบายตัวแปร
Dim Gbolgoprocedure
โฟลเดอร์ Dim Strfromdir'Source
โฟลเดอร์ Dim StrtargetDir'target
dim objfs
Dim Objrootfolder
สลัว objfile
สลัว strfilenamelen
dim strprevfilename
ส่วนขยายไฟล์ของ Dim StrFileext
สลัว strfilenamecount
dim strnewfilename
Dim StrrealCount จำนวนไฟล์ที่ประมวลผล
gbolgoprocedure = false
'หากคลิกปุ่มเริ่มต้นให้ทำการประมวลผลต่อไปนี้
ถ้า (request.form ("gobutton")) = "เริ่ม" แล้ว
'ระบุโฟลเดอร์ต้นทางและโฟลเดอร์ปลายทาง
strfromdir = "d: test/"
strtargetDir = "d:/test1/"
'ตั้งจำนวนไฟล์ประมวลผลเป็น 0
StrrealCount = 0
ตั้งค่า objfs = server.createObject ("scripting.filesystemobject")
ตั้งค่า objrootfolder = objfs.getFolder (strtargetDir)
'การตั้งค่าเฉพาะของชื่อไฟล์ตั้งค่าเป็น 10,0001 ที่นี่แสดงว่าชื่อไฟล์จะมาจาก 10,0001
'เริ่มต้นเพิ่มขึ้นทีละน้อยสามารถตั้งค่าได้ตามต้องการ
strfilenamecount = 100001
สำหรับแต่ละ objfile ใน objrootfolder.files
'สำหรับไฟล์เฉพาะพวกเขาจะไม่ถูกประมวลผลและสามารถตั้งค่าได้ตามต้องการ
ถ้า objfile.name = "thumbs.db" แล้ว strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
ต่อไป
ตั้งค่า objrootfolder = objfs.getfolder (strfromdir)
สำหรับแต่ละ objfile ใน objrootfolder.files
strfilenamelen = len (objfile.name)
ถ้า mid (objfile.name, (strfilenamelen - 3), 1) = "." แล้ว
strfileext = ขวา (objfile.name, 4)
อื่น
strfileext = ขวา (objfile.name, 5)
สิ้นสุดถ้า
strprevfilename = objfile.name
strNewFileName = strfilenamecount & strfileext
objfile.Move strtargetdir & strnewfilename
response.write "ไฟล์ต้นฉบับ:" & strfromdir & strprevfilename & "> ย้ายและเปลี่ยนเป็น:" & strtargetdir & strnewfilename & "<br>" & vbcrlf
strfilenamecount = strfilenamecount + 1
strrealCount = strealCount + 1
ต่อไป
Response.write "<P >< B> การประมวลผลทั้งหมด:" & (strrealCount) & "ไฟล์ </b>" & vbcrlf
ตั้งค่า objrootfolder = ไม่มีอะไร
ตั้งค่า objfs = ไม่มีอะไร
gbolgoprocedure = true
สิ้นสุดถ้า
ถ้า gbolgoprocedure แล้ว
Response.write ("<p >< b> แบตช์ไฟล์การย้ายและเปลี่ยนชื่อ </b>") & vbcrlf
อื่น
Response.write ("<center ><br> <วิธีการแบบฟอร์ม =" "โพสต์" "แอ็คชั่น =" "filenameconverter.asp" "id = form1 name =" "form1" ""> ") & vbcrlf
Response.write ("<อินพุตประเภท =" "ส่ง" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
Response.write ("</form>") & vbcrlf
Response.write ("<p >< b> คลิกปุ่มเพื่อย้ายแบทช์และเปลี่ยนชื่อไฟล์ </b ></center>") & vbcrlf
สิ้นสุดถ้า
Response.write "</body>" & vbcrlf & "</html>"
%
ข้างต้นเป็นเนื้อหาทั้งหมดของ ASP เพียงแค่ใช้การเปลี่ยนชื่อแบทช์ของไฟล์ทั้งหมด เนื้อหาที่น่าตื่นเต้นยิ่งขึ้นอยู่ในช่องเทคโนโลยี Miaoxin