แนะนำ: ASP ดำเนินการเพิ่มเติมและการดำเนินการลบในรูปแบบวันที่คำสั่ง SQL ฉันพบปัญหาในที่ทำงานในวันนี้และฉันต้องสอบถามตามเวลา แต่ผลลัพธ์การสืบค้นแสดงอย่างไม่ถูกต้อง ตัวอย่างเช่นเพื่อค้นหาสมาชิกที่ลงทะเบียนบนเว็บไซต์ระหว่าง 2007-10-12 และ 2007-10-31 หลังจากเลือกวันที่คลิก "Query & R
ASP ใช้ซอร์สโค้ดการบีบอัด RAR และการบีบอัดซอร์สโค้ดและสามารถทำได้ด้วยไฟล์เดียว ASP บีบอัดไดเรกทอรีหรือไฟล์, คลายไฟล์ RAR, ลบไฟล์เฉพาะและฟังก์ชั่นอื่น ๆ ซอร์สโค้ดนี้สะดวกสำหรับทุกคนในการพัฒนาและแบ่งปัน
นี่คือรหัส winrar.asp:
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: - ชื่อ - ปลั๊กอิน Winrar ออนไลน์ Ayan ลิขสิทธิ์ - BEIGUO Pharmaceutical Garden BBS (www.spubbs.com) สร้างขึ้น - 2006/5/17 ผู้แต่ง - Ayan: [email protected] QQ: 12895551 - <%@language = vbscript codepage = 936%> <title> ยินดีต้อนรับสู่ Ayan Online Winrar Plugin </title> <body> <table border = 0 width = 80% allign = center cellpacing = 1 cellpadding = 3 style = font-family: verdana; Font-size: 14px; border: #000000 1px solid; พื้นหลังสี: #f7f7f7> <tr> <th width = ความสูง 100% = 24 bgcolor =#e4e4e4> <strong> <font color =#ff0000> Ayan ออนไลน์ปลั๊กอิน winrar ออนไลน์ </font> </strong> เวลาอัปเดตล่าสุด 2006.5.17 [<a href = http: //ww.spubbs.com/dispbbs </th> </tr> <tr> <td> - Server.ScriptTimeOut = 99999 Dim Winrar, cmddir winrar = c:/program files/winrar/winrar.exe 'เส้นทางของ winrar.exeprogra ~ 1 cmddir =%windir%/system32/cmd.exe 'cmd.exe' เส้นทางไปยัง cmd.exe user = spubbs.com 'ชื่อผู้ใช้ pwd = spubbs.com 'เข้าสู่ระบบ, บีบอัด, การคลายรหัสผ่านเพื่อเหตุผลด้านความปลอดภัยโปรดตั้งรหัสผ่านนี้ให้แข็งแรงพอ ถ้า request.form (ผู้ใช้) = ผู้ใช้และ request.form (pwd) = pwd แล้ว Response.Write เส้นทางโฟลเดอร์นี้: & Server.Mappath (.) & <br> จาก = request.form (จาก) where = request.form (ที่ไหน) ถ้ามาจาก <> และที่ไหน <> แล้ว Dim A, B, Shell, Runing, RunCode, CMD ถ้า instr (โดยที่, :) = 0 ดังนั้น A = Server.Mappath (& where &) else a = โดยที่ ถ้า instr (จาก, :) = 0 ดังนั้น b = server.mappath (& จาก &) อื่น ๆ b = จาก 'response.write b ถ้าถูกต้อง (B, 1) <>/ และซ้าย (ขวา (B, 4), 1) <> จากนั้น b = b & .rar เมื่อเกิดข้อผิดพลาดต่อไป Set Shell = Server.CreateObject (wscript.shell) ถ้า request.QueryString (การกระทำ) = 1 จากนั้น 'decompress หากไม่มี reportfilestatus (b) จากนั้นตอบสนองการเขียน (b & ไม่มีอยู่!): response.end () runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & 'ตั้งค่าคำสั่งเพื่อเรียกใช้การบีบอัด cmd = runing & b & & a &/// elseif request.QueryString (การกระทำ) = 0 จากนั้น 'การบีบอัด ถ้า (ไม่ใช่ reportfilestatus (a)) และ (ไม่ใช่ reportfolderstatus (a)) จากนั้น response.write (a & ไม่มีอยู่!): response.end () cmd = cmddir & /c del /f /q & b runCode = shell.run (cmd, 1, true) runing = cmddir & /c & winrar & a -ibck -y -ep -o -p & pwd & 'การบีบอัด cmd = runing & b & & a ลบไฟล์ cmd = cmddir & /c del /f /q & b สิ้นสุดถ้า runCode = shell.run (cmd, 1, true) runing = shell.run (cmddir & /c taskkill /im winrar.exe, 1, false) runing = shell.run (ทางออก cmddir & /c, 1, false) ตั้งค่าเชลล์ = ไม่มีอะไร errinfo - <%อื่น%> <form name = method frm = post action =? action = 1 style = border: #d9d9d9 1px solid; พื้นหลังสี: #f7f7f7> - <br> <br> กรุณากรอกที่อยู่ไฟล์ RAR: <ชื่ออินพุต = จาก value = 1.rar size = 50> <br> คลายซิปถึง: <ชื่ออินพุต = โดยที่ค่า = ขนาด = 50> โปรดใช้เส้นทางสัมบูรณ์ไปยังโฟลเดอร์และเพิ่ม / <br> ในตอนท้าย <br> <ชื่ออินพุต = submit type = submit value = decompression> <input type = name hidden = ค่าผู้ใช้ = <%= request.form (ผู้ใช้)%>> <ประเภทอินพุต = ชื่อที่ซ่อน = ค่า pwd = <%= request.form (pwd)%>> </form> <form name = method frm = post action =? action = 0 style = border: #d9d9d9 1px solid; พื้นหลังสี: #f7f7f7> - <br> กรุณากรอกที่อยู่ไฟล์เพื่อบีบอัด: <ชื่ออินพุต = โดยที่ค่า =./data/dvbbs7#.mdb size = 50> โฟลเดอร์ยังมีอยู่ <br> <br> พา ธ การจัดเก็บและชื่อไฟล์ใหม่: <ชื่ออินพุต = จาก value = ../data/1.rar size = 50> เขียนทับไฟล์โดยอัตโนมัติด้วยชื่อเดียวกัน <br> <br> <ชื่ออินพุต = submit type = submit value = การบีบอัด> <อินพุตประเภท = ชื่อที่ซ่อน = ค่าผู้ใช้ = <%= request.form (ผู้ใช้)%>> <ประเภทอินพุต = ชื่อที่ซ่อน = ค่า pwd = <%= request.form (pwd)%>> </form> - errinfo สิ้นสุดถ้า อื่น เข้าสู่ระบบ () สิ้นสุดถ้า sub errinfo ถ้าไม่ isempty (runCode) และ runCode = 0 แล้ว Response.write (คำสั่งดำเนินการสำเร็จคำสั่งที่คุณส่งมีดังนี้: <br> & cmd) อื่นไม่ได้ isempty (runcode) แล้ว Response.write (คำสั่งดำเนินการล้มเหลว! มีการอนุญาตไม่เพียงพอหรือโปรแกรมไม่สามารถเรียกใช้ในสถานะ DOS ได้คำสั่งที่คุณส่งมีดังนี้: <br> & CMD) อื่น สิ้นสุดถ้า ถ้าเอ่อแล้ว Response.write <br> & err.description err.lear สิ้นสุดถ้า - <form name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solid; พื้นหลังสี: #f7f7f7> - <br> โปรดป้อนที่อยู่เพื่อลบไฟล์: <ชื่ออินพุต = จากขนาด = 50 ค่า = <%= จาก%>> โปรดใช้เส้นทางสัมบูรณ์ไปยังโฟลเดอร์และเพิ่ม / <br> ในตอนท้าย <ประเภทอินพุต = ชื่อที่ซ่อน = โดยที่ค่า = <%ถ้าอยู่ที่ไหน <> response.Write ที่อื่น response.write.%>> <br> <ชื่ออินพุต = submit type = submit value = delete> <ประเภทอินพุต = ชื่อที่ซ่อน = ค่าผู้ใช้ = <%= request.form (ผู้ใช้)%>> <อินพุตประเภท = ชื่อที่ซ่อน = ค่า pwd = <%= request.form (pwd)%>> </form> <br> - สิ้นสุดย่อย Function ReportFilestatus (FileSpec) สลัว fso ตั้งค่า fso = createObject (scripting.filesystemobject) ReportFilestatus = FALSE if (fso.fileexists (fileSpec)) จากนั้น reportFilestatus = true ตั้งค่า fso = ไม่มีอะไร ฟังก์ชันสิ้นสุด Function ReportFolderStatus (FLDR) สลัว fso ตั้งค่า fso = createObject (scripting.filesystemobject) ReportFolderStatus = FALSE if (fso.folderexists (fldr)) จากนั้น reportfolderstatus = true ตั้งค่า fso = ไม่มีอะไร ฟังก์ชันสิ้นสุด เข้าสู่ระบบย่อย () - <form name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solid; พื้นหลังสี: #f7f7f7> <p> --------------------------------------- <strong> ระบบเข้าสู่ระบบ </strong> ------------------------------------------------------- <br> <br> ชื่อผู้ใช้: <ชื่ออินพุต = ค่าผู้ใช้ = spubbs.com> </p> รหัสผ่าน: <ชื่ออินพุต = pwd type = รหัสผ่าน ID = PWD> <br> <br> <ชื่ออินพุต = submit type = submit value = เข้าสู่ระบบ> </form> <%end sub%> </td> </tr> <tr> <td ความสูง = 22 Align = Center BgColor =#e8e8e8> ขับเคลื่อนโดย: <a href = mailto: [email protected]> Ayan </a> & nbsp; <a target = blank href = http: //wpa.qq.com/msgrd? v = 1 & uin = 12895551 & site = www.spubbs.com ออนไลน์ winrar & menu = ใช่> <img border = 0 src = http: //wpa.q.com/pa QQ: 12895551 Align = absbottom> </a> ลิขสิทธิ์ & Copy; 2003 - 2006 <a href = http: //www.spubbs.com> beiguo Pharmaceutical Garden BBS </a> </td> </tr> </table> </body> |
แบ่งปัน: วิธีปรับปรุงความเร็วในการเข้าถึงโปรแกรม ASP เมื่อใช้โปรแกรม ASP สำหรับการออกแบบเว็บเพจส่วนใหญ่เป็นเพราะคุณจำเป็นต้องเข้าถึงฐานข้อมูลแล้วแสดงข้อมูลไปยังหน้า หากมีข้อมูลจำนวนมากความเร็วในการเข้าถึงของหน้าจะช้าลง เพื่อแก้ปัญหานี้คุณสามารถใช้เทคนิคต่อไปนี้เพื่อปรับปรุงความเร็วในการเข้าถึงของหน้า ทักษะ