แนะนำ: รหัสการปนเปื้อนอย่างรวดเร็วของ ASP %@ language = vbscript codepage = 936 % ตัวเลือกที่ชัดเจน 'บังคับให้ตัวแปร dim idcount' จำนวนทั้งหมดของบันทึกสลัว 'จำนวนต่อหน้าสลัว pagec' จำนวนหน้าทั้งหมดของหน้าสลัว 'หมายเลขหน้าสลัว
สำหรับพื้นที่ที่รองรับ ASP และ FSO ทุกอย่างง่ายขึ้นมากด้วย FSO
ฉันยังเป็นมือใหม่และเขียนรหัสบางอย่างให้ทุกคนเรียนรู้และศึกษา
ก่อนอื่นคุณดูส่วนประกอบ FSO ที่รองรับหรือไม่?
-
'ชื่อองค์ประกอบ FSO
สลัว fsobject
fsobject = scripting.filesystemobject
-
'◆รองรับส่วนประกอบหรือไม่
-
ฟังก์ชั่น isobjinstalled (strclassstring)
เมื่อเกิดข้อผิดพลาดต่อไป
isobjinstalled = false
err = 0
dim xtestobj
SET XTESTOBJ = Server.CreateObject (StrClassString)
ถ้า 0 = err แล้ว isobjinstalled = true
ตั้งค่า xtestobj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
ถ้า isobjinstalled (fsobject) แล้ว
Response.write √
อื่น
Response.write ×
สิ้นสุดถ้า%>
-
-
-
'◆รองรับส่วนประกอบหรือไม่
-
ฟังก์ชั่น isobjinstalled (strclassstring)
เมื่อเกิดข้อผิดพลาดต่อไป
isobjinstalled = false
err = 0
dim xtestobj
SET XTESTOBJ = Server.CreateObject (StrClassString)
ถ้า 0 = err แล้ว isobjinstalled = true
ตั้งค่า xtestobj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
-
'การดำเนินการ FSO
-
'◆ตรวจสอบว่ามีไดเร็กทอรีอยู่หรือไม่
-
ฟังก์ชั่น checkdir (FolderPath)
FolderPath = Server.Mappath (.) &/& FolderPath
ตั้งค่า fso = createObject (fsobject)
ถ้า fso.folderexists (FolderPath) จากนั้น
checkdir = true
อื่น
checkdir = false
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆สร้างไดเรกทอรีตามชื่อที่ระบุ
-
ฟังก์ชั่น makenewsdir (folderName)
สลัว FS0
ตั้งค่า fso = createObject (fsobject)
ตั้งค่า fs0 = fso.createfolder (folderName)
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆สร้างโฟลเดอร์ใหม่หากไม่มีโฟลเดอร์อยู่◆
-
ฟังก์ชั่น checkfolder (FolderPath)
ถ้า checkdir (folderPath) = false แล้ว 'ถ้าโฟลเดอร์ไม่มีอยู่จริง
Makenewsdir (FolderPath) 'เพียงสร้างโฟลเดอร์
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'◆ลบโฟลเดอร์◆
-
ฟังก์ชั่น deletefoldera (FolderPath)
ทางเดินหรี่
ตั้งค่า fso = createObject (fsobject)
path = request.serverVariables (appl_physical_path) & FolderPath
fso.deletefolder (เส้นทาง)
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆เปลี่ยนชื่อโฟลเดอร์◆
-
ฟังก์ชั่น MoveFolder (folderName, newFolderName)
ISFSO
ตั้งค่า fso = createObject (fsobject)
FSO.MoveFolder & Request.ServerVariables (APPL_PHYSICAL_PATH) &/& folderName &, & request.ServerVariables (appl_physical_path) & & & newfoldername &
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆ลบไฟล์ที่ระบุ◆
-
ฟังก์ชั่น deleteFile (ไฟล์)
ตั้งค่า fso = createObject (fsobject)
fso.deletefile request.serverVariables (appl_physical_path) และไฟล์
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆สำรองไฟล์ที่ระบุ◆
-
ฟังก์ชั่น CopyFile (OldFile, NewFile)
ตั้งค่า fso = createObject (fsobject)
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า fso = server.createObject (fsobject)
OldFile = Server.Mappath (OldFile)
ถ้า err.number> 0 จากนั้นโทรแจ้งการแจ้งเตือน (ข้อผิดพลาดเส้นทางดั้งเดิม!,)
newFile = server.mappath (newfile)
ถ้า err.number> 0 จากนั้นโทรแจ้งการแจ้งเตือน (ข้อผิดพลาดเส้นทางใหม่!,)
fso.copyfile oldfile, newfile 'เขียนทับไฟล์ต้นฉบับ
ถ้า err.number> 0 จากนั้นโทรแจ้งเตือน (err.description,)
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆โอนไฟล์ที่ระบุ◆
-
ฟังก์ชั่น MoveFile (OldFile, NewFile)
ตั้งค่า fso = createObject (fsobject)
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า fso = server.createObject (fsobject)
OldFile = Server.Mappath (OldFile)
ถ้า err.number> 0 จากนั้นโทรแจ้งการแจ้งเตือน (ข้อผิดพลาดเส้นทางดั้งเดิม!,)
newFile = server.mappath (newfile)
ถ้า err.number> 0 จากนั้นโทรแจ้งการแจ้งเตือน (ข้อผิดพลาดเส้นทางใหม่!,)
'fso.movefile oldfile, newfile' ไม่สามารถเขียนทับไฟล์ต้นฉบับได้
fso.movefile d: /o/data/test.txt,d: /o/databackup/test3.txt
ถ้า err.number> 0 จากนั้นโทรแจ้งเตือน (err.description,)
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆อ่านรหัสไฟล์◆
-
ฟังก์ชั่น loadfile (ไฟล์) 'อ่านไฟล์
FTEMP สลัว
ตั้งค่า fso = createObject (fsobject)
ตั้งค่า ftemp = fso.opentextfile (server.mappath (& file &), 1)
loadfile = ftemp.readall
ftemp.close
fso.close
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆สร้างไฟล์จากรหัส◆
-
-
'■ไฟล์สร้างชื่อไฟล์
'■รหัสไฟล์รหัส
-
ฟังก์ชั่นบันทึกไฟล์ (ไฟล์, รหัส) 'บันทึกไฟล์
หรี่
ตั้งค่า fso = createObject (fsobject)
ตั้งค่า myfile = fso.createtextfile (server.mappath (ไฟล์), จริง)
MyFile.WriteLine (รหัส)
myfile.close
ตั้งค่า myfile = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'◆ฐานข้อมูลบีบอัด◆
-
-
'■เส้นทางไฟล์ข้อมูล dbpath
'■ boolis97 access97 การบีบอัด
-
ฟังก์ชั่น CompactDB (DBPath, Boolis97)
Dim Strdbpath, FSO, เครื่องยนต์
dbpath = server.mappath (dbpath)
strdbpath = ซ้าย (dbpath, instrrev (dbpath,/))
ตั้งค่า fso = createObject (fsobject)
ถ้า fso.fileexists (dbpath) แล้ว
Set Engine = CreateObject (JRO.JetEngine)
ถ้า boolis97 = จริงแล้ว
Dim Jet_3x
Engine.CompactDatabase ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & dbpath, _
ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & strdbpath & temp.mdb; -
& Jet OLEDB: ประเภทเครื่องยนต์ = & jet_3x
อื่น
Engine.CompactDatabase ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & dbpath, _
ผู้ให้บริการ = microsoft.jet.oledb.4.0; Jet OLEDB: รหัสผ่านฐานข้อมูล = & dbpw &; แหล่งข้อมูล = & strdbpath & temp.mdb
สิ้นสุดถ้า
fso.copyfile strdbpath & temp.mdb, dbpath
fso.deletefile (strdbpath & temp.mdb)
ตั้งค่า fso = ไม่มีอะไร
ตั้งค่าเครื่องยนต์ = ไม่มีอะไร
CompactDb = ฐานข้อมูลปัจจุบันถูกบีบอัดสำเร็จ!
อื่น
CompactDb = ชื่อฐานข้อมูลหรือเส้นทางไม่ถูกต้อง โปรดลองอีกครั้ง!
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
แชร์: ชุดฟังก์ชั่นการทำงานของไฟล์ ASP % '========================================================' รวบรวมโดย: zhang Hui 'รหัสโปรแกรมทั้งหมด: WJ008 ที่อยู่ '================================================================================================================ -