แนะนำ: วิธีกำหนดค่า IIS เพื่อเรียกใช้ทั้ง ASP และ PHP หลังจากเสร็จสิ้นการถอดรหัสของ Baidump3, Base64 บวกกับการเปลี่ยนแปลง Unicode บางอย่างฉันพบว่าอัลกอริทึม Base64 ในรุ่น JS และเวอร์ชัน ASP ไม่เหมาะสำหรับการสนับสนุนจีนดังนั้นฉันจึงใช้ PHP และเซิร์ฟเวอร์คือ IIS6.0 ดังนั้นฉันจึงสามารถทำให้มันทำงาน PHP 1. เตรียม 3 ไฟล์ php.ini, php5ts.dll และ php5isapi.dll ในหมู่พวกเขา PHP5 เป็นเวอร์ชัน PHP ที่คุณมี
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: <% ฟังก์ชั่นดาวน์โหลดไฟล์ (strfile) strfilename = strfile response.buffer = true Response.Clear SET S = Server.CreateObject (ADODB.Stream) S.Open S.Type = 1 เมื่อเกิดข้อผิดพลาดต่อไป ตั้งค่า fso = server.createObject (scripting.filesystemobject) ถ้าไม่ใช่ fso.fileexists (strfilename) แล้ว from_url = cstr (request.serverVariables (http_referer)) serv_url = cstr (request.serverVariables (server_name)) ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว Response.write ไม่มีอยู่หรือถูกลบ Response.end สิ้นสุดถ้า Response.redirect Request.ServerVariables (http_referer) Response.end สิ้นสุดถ้า fileext = mid (strfilename, instrrev (strfilename,.)+1) เลือก Case Ucase (Fileext) Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTM, HTML, HTM, TV, ข้อมูลข้อมูล from_url = cstr (request.serverVariables (http_referer)) serv_url = cstr (request.serverVariables (server_name)) ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว Response.write ไม่มีอยู่หรือถูกลบ Response.end สิ้นสุดถ้า Response.redirect Request.ServerVariables (http_referer) Response.end สิ้นสุดเลือก ตั้งค่า f = fso.getFile (strfilename) intFileLength = F.Size s.loadfromfile (strfilename) ถ้าเอ่อแล้ว from_url = cstr (request.serverVariables (http_referer)) serv_url = cstr (request.serverVariables (server_name)) ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว Response.write ข้อมูลไฟล์ไม่สมบูรณ์หรืออาจเสียหาย Response.end สิ้นสุดถ้า Response.redirect Request.ServerVariables (http_referer) Response.end สิ้นสุดถ้า ตั้งค่า upload = server.createObject (ไม่ว่าจะโหลด) หากการอัปโหลดไม่มีอะไรแล้ว Response.addheader เนื้อหา-การจัดสรร, สิ่งที่แนบมา; ชื่อไฟล์ = & f.name Response.addheader ความยาวเนื้อหาความยาว intfilelength Response.charset = UTF-8 Response.ContentType = Application/X-Download Response.BinaryWrite S.Read Response.flush s.close ตั้งค่า s = ไม่มีอะไร อื่น upload.sendbinary strfilename, true, application/x-download, false สิ้นสุดถ้า ฟังก์ชันสิ้นสุด - |
แบ่งปัน: วิธีเพิ่มฟังก์ชั่นการส่งออนไลน์ใน SDCMS SDCMS โปรแกรมส่งออนไลน์ตอบกลับ http://bbs.sdcms.cn/dispbbs.asp?boardId=2