-
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')