การพัฒนาที่ตามมาของตัวจัดการไฟล์เว็บ - - เลือกจากบล็อกของ IUHXQ
การพัฒนาที่ตามมาของ Manager Web File Manager - -
แหล่งที่มา
วันนี้ฉันดูที่ CCOPUS 'DM45 และมันทำได้ดีมาก ก่อนหน้านั้นฉันยังต้องการสร้างโปรแกรมที่คล้ายกับ Windows Explorer มาก หลังจากเห็น DM45 ฉันรู้สึกว่าฉันควรยอมแพ้ การจัดการไฟล์เว็บดำเนินการภายในสิทธิ์ในทุกกรณีและสิ่งที่ทุกคนใช้นั้นคล้ายกัน มันไม่มีอะไรมากไปกว่าการสร้างความยุ่งยากเกี่ยวกับรูปลักษณ์และการทำงานที่ง่าย การจัดการไฟล์ไม่มีประโยชน์มาก หากได้รับอนุญาตจากผู้ใช้หลายคนมันยากที่จะควบคุม เนื่องจากคนอื่นทำมันฉันคิดว่ามันจะดีกว่าที่จะไม่ทำงานซ้ำ ๆ และอาจเป็นไปไม่ได้ที่จะทำได้ดี รหัสต่อไปนี้ถูกโพสต์เพื่อระลึกถึงมันโดยตระหนักถึงการเรียงลำดับไฟล์ในเครื่อง แต่ระดับระหว่างไดเรกทอรียังไม่ดีนัก หากคุณสนใจคุณสามารถอ้างอิงได้ ในทางทฤษฎีมันควรจะสามารถใช้อินเทอร์เฟซและวิธีการทำงานที่คล้ายกับ Windows Explorer มาก อินเทอร์เฟซทั้งหมดใช้วิธีการที่ปราศจากการรีเฟรช ใช้ XMLHTTP เพื่อเรียกใช้รหัสพื้นหลังและใช้ JS เพื่อแก้ไขการแสดงผลเบื้องหน้า สิ่งนี้สะท้อนให้เห็นถึงความคิดประเภทหนึ่งและฉันหวังว่ามันจะเป็นประโยชน์สำหรับผู้เริ่มต้น
รหัสมีดังนี้:
<title> เว็บจัดการไฟล์เวอร์ชัน 2.0 http://asp2004.net </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">>
<styleType = "text/css">
-
A {
ขนาดฟอนต์: 9pt;
สี:#3300cc;
การตกแต่งข้อความ: ไม่มี;
-
ร่างกาย{
ขนาดฟอนต์: 9pt;
ขอบซ้าย: 0px;
ระยะขอบด้านบน: 0px;
มาร์จิ้น-ขวา: 0px;
มาร์จิ้น-ก้น: 0px;
ความสูงของสาย: 20px;
พื้นหลังสี: #eeeeee;
-
td {
ขนาดฟอนต์: 9pt;
ความสูงของสาย: 20px;
-
.tx {
สีชายแดน:#000000;
ความกว้างของชายแดนซ้าย: 0px;
ความกว้างด้านบนชายแดน: 0px;
ความกว้างของชายแดนขวา: 0px;
ความกว้างของชายแดนด้านล่าง: 1px;
ขนาดฟอนต์: 9pt;
พื้นหลังสี: #eeeeee;
-
.tx1 {
ขนาดฟอนต์: 9pt;
ชายแดน: 1pxsolid;
สีชายแดน:#000000;
สี:#000000;
-
-
</style>
-
'คำสั่งลิขสิทธิ์: รหัสนี้มีไว้สำหรับการศึกษาและการวิจัยเท่านั้น ฉันไม่รับผิดชอบต่อผลกระทบใด ๆ ที่เกิดจากการใช้โปรแกรมนี้ ไม่มีการใช้งานเชิงพาณิชย์โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษรจากผู้เขียน
'qq: 103895
'อีเมล: [email protected]
'http://asp2004.net
Server.scriptTimeOut = 999
action = request ("action")
temp = split (request.serverVariables ("url"), "/")
url = temp (ubound (temp))
constpass = "" 'รหัสผ่านเข้าสู่ระบบ
'การตรวจสอบเข้าสู่ระบบ
setfso = createObject ("Scripting.filesystemObject")
path = request ("folderName")
ifpath = "" Themaph = server.mappath ("./")