ข้อความ/Chen Cheng
คุณเคยคิดที่จะขยายขนาดไฟล์บีบอัดทางออนไลน์หรือไม่? ฮ่าๆ บางครั้งหลังจากอัพโหลดแพ็คเกจที่บีบอัดแล้ว การใช้โปรแกรม Asp ขยายขนาดมันสะดวกมาก โดยเฉพาะเว็บมาสเตอร์ที่อัพเดทเว็บไซต์บ่อยๆ เนื่องจากอัตราส่วนการบีบอัดไฟล์ข้อความมีขนาดใหญ่ พวกเขาจึงใช้การบีบอัดในการอัพโหลดแล้วขยายขนาด ซึ่งช่วยประหยัดเงินเมื่อเทียบกับการอัพโหลดโดยตรงซึ่งใช้เวลาอันมีค่ามากมาย คุณพร้อมหรือยัง? จากนั้นให้ทัน
หากต้องการใช้งานฟังก์ชันนี้ คุณต้องได้รับการรองรับไฟล์หลักสำหรับการขยายการบีบอัดของโปรแกรม Rar ก่อน (คุณสามารถดาวน์โหลดซอฟต์แวร์ WinRar จากนั้น "นำ" ไฟล์ WinRar.exe ออกจากกัน) และคุณยังต้องมี cmd ที่มาพร้อมกับ ระบบปฏิบัติการ Windows โปรแกรม .exe (โปรแกรมนี้ใช้รันไฟล์ WinRar.exe ซึ่งมาพร้อมกับระบบปฏิบัติการ ระบบปฏิบัติการ NT kernel สามารถค้นหาได้ในโฟลเดอร์ System32 ใต้ไดเร็กทอรีการติดตั้งระบบปฏิบัติการ Windows 9X สามารถติดตั้งระบบปฏิบัติการได้ในระบบปฏิบัติการ ค้นหาได้จากโฟลเดอร์ System ในไดเร็กทอรี) จากนั้นอัปโหลดไปยังไดเร็กทอรีเดียวกัน สร้างไฟล์ asp ดูรหัสต่อไปนี้:
<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `เส้นทางหลัง Winrar.exe และ cmd.exe หลังจากอัปโหลด
a=Server.mappath("rar")&"" 'พาธการจัดเก็บข้อมูลหลังจากคลายการบีบอัดไฟล์ rar
b=Server.mappath("rarhomepage.rar") 'หากต้องการแตกไฟล์ rar ให้เปลี่ยน homepage.rar เป็นไฟล์ที่ต้องแตกไฟล์
ตั้งค่าเชลล์ = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'ตั้งค่าคำสั่งเพื่อเรียกใช้การบีบอัดข้อมูล
Cmd=Run&b&" "&a
Runcode = Shell.Run (Cmd, 1, จริง)
-