Direkomendasikan: ASP mengimplementasikan operasi penambahan dan pengurangan dalam format tanggal pernyataan SQL Saya mengalami masalah di tempat kerja hari ini, dan saya perlu meminta demi waktu, tetapi hasil kueri ditampilkan secara tidak benar. Misalnya, untuk mengetahui anggota yang terdaftar di situs web antara 2007-10-12 dan 2007-10-31, setelah memilih tanggal, klik "Query & R
ASP mengimplementasikan kompresi rar dan kode sumber dekompresi, dan dapat dilakukan hanya dengan satu file. ASP mengompres direktori atau file, mendekompres file RAR, menghapus file tertentu dan fungsi lainnya. Kode sumber ini nyaman bagi semua orang untuk dikembangkan dan dibagikan.
Ini kode WinRar.asp:
| Berikut ini adalah konten yang dikutip: <!- Nama - Plugin Winrar Online Ayan Hak Cipta - Beiguo Pharmaceutical Garden BBS (www.spubbs.com) Dibuat - 2006/5/17 Penulis - Ayan: [email protected] QQ: 12895551 -> <%@Language = vbscript codepage = 936%> <title> Selamat datang di plugin Winrar Online Ayan </iteme> <body> <Border Table = 0 Lebar = 80% Align = CentS CellPacing = 1 CellPadding = 3 Gaya = Font-Family: Verdana; Font-size: 14px; Border: #000000 1px padat; latar belakang-warna: #f7f7f7> <tr> <Lebar TH = 100% Tinggi = 24 BGColor =#E4E4E4> <strong> <font color =#ff0000> ayan online plugin winrar </font> </strong> waktu pembaruan terbaru 2006.5.17 [<a href = http = //www.spubbs.com/dispbbs.asp? Halaman </a>] </th> </tr> <tr> <td> <% Server.ScriptTimeout = 99999 Dim Winrar, Cmddir WinRar = C:/Program Files/WinRar/WinRar.exe 'Path of Winrar.Exeprogra ~ 1. cmddir =%windir%/system32/cmd.exe 'cmd.exe' jalur ke cmd.exe user = spubbs.com 'nama pengguna pwd = spubbs.com 'login, kompres, kata sandi dekompres, untuk alasan keamanan, harap atur kata sandi ini cukup kuat Jika request.Form (user) = user dan request.form (pwd) = PWD kemudian response.write path folder ini: & server.mappath (.) & <br> dari = request.form (dari) where = request.form (where) Jika dari <> dan di mana <> lalu Redup a, b, shell, runing, runcode, cmd if instr (where,:) = 0 lalu a = server.mappath (& di mana &) else a = di mana if instr (from,:) = 0 lalu b = server.mappath (& from &) else b = from 'Response.write b Jika kanan (b, 1) <>/ dan kiri (kanan (b, 4), 1) <>. lalu b = b & .rar Pada kesalahan resume berikutnya Set Shell = Server.CreateObject (wscript.shell) Jika request.QueryString (tindakan) = 1 lalu 'dekompresi Jika tidak reportfilestatus (b) maka response.write (b & tidak ada!): response.end () Runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & 'atur perintah untuk menjalankan dekompresi. Cmd = runing & b & & a &/ elseif request.querystring (tindakan) = 0 lalu 'kompresi Jika (bukan ReportFilestatus (a)) dan (bukan Reportfolderstatus (a)) maka response.write (a & tidak ada!): 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 & 'kompresi. Cmd = runing & b & & a hapus file lain Cmd = cmddir & /c del /f /q & b akhiri jika Runcode = shell.run (cmd, 1, true) Runing = shell.run (cmddir & /c taskkill /im winrar.exe, 1, false) Runing = shell.run (cmddir & /c exit, 1, false) Atur shell = tidak ada Errinfo %> <%else%> <Form Name = FRM Metode = Post Action =? Action = 1 Style = Border: #d9d9d9 1px solid; latar belakang-warna: #f7f7f7> ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> <br> Harap masukkan alamat file rar: <input name = dari value = 1.Rar size = 50> <br> Unzip ke: <input name = where value =. ukuran = 50> Harap gunakan jalur absolut ke folder dan tambahkan / <br> di akhir <br> <Input Name = Kirim Jenis = Kirim Nilai = Decompression> <Input Type = Hidden Name = Nilai Pengguna = <%= Request.Form (Pengguna)%>> <input type = name tersembunyi = nilai pwd = <%= request.form (pwd)%>> </form> <Form Name = FRM Metode = Post Action =? Action = 0 Style = Border: #d9d9d9 1px solid; latar belakang-warna: #f7f7f7> ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> Harap masukkan alamat file untuk mengompres: <Input Name = Where Value =./Data/DVBBS7#.MDB Ukuran = 50> Folder juga tersedia <br> <br> Jalur penyimpanan dan nama file baru: <input name = from value = ../data/1.Rar size = 50> Secara otomatis menimpa file dengan nama yang sama <br> <br> <Input Name = Kirim Jenis = Kirim Nilai = Kompresi> <Input Type = Hidden Name = Nilai Pengguna = <%= Request.Form (Pengguna)%>> <input type = name tersembunyi = nilai pwd = <%= request.form (pwd)%>> </form> <% Errinfo akhiri jika kalau tidak login() akhiri jika Sub errinfo Jika tidak sama (runcode) dan runcode = 0 lalu Response.write (perintah itu berhasil dieksekusi, perintah yang Anda kirimkan adalah sebagai berikut: <br> & cmd) elseif tidak sama sekali (runcode) Response.Write (Eksekusi Perintah Gagal! Ada izin yang tidak mencukupi atau program tidak dapat dijalankan dalam keadaan DOS. Perintah yang Anda kirimkan adalah sebagai berikut: <br> & cmd) kalau tidak akhiri jika Jika err maka Response.write <br> & err.description err.clear Akhiri jika %> <Form Name = FRM Metode = Post Action =? Action = 2 Style = Border: #d9d9d9 1px solid; latar belakang-warna: #f7f7f7> ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> Harap masukkan alamat untuk menghapus file: <input name = dari size = 50 value = <%= dari%>> Harap gunakan jalur absolut ke folder dan tambahkan / <br> di akhir <input type = hidden name = where value = <%jika <> lalu response.write di mana lagi response.write.%>> <br> <Input Name = Kirim Jenis = Kirim Nilai = Hapus> <input type = hidden name = nilai pengguna = <%= request.form (user)%>> <input type = name tersembunyi = nilai pwd = <%= request.form (pwd)%>> </form> <br> <% Akhir sub Function ReportFilestatus (filespec) Redup fso Atur fso = createObject (scripting.filesystemObject) ReportFilestatus = false If (fso.fileexists (filespec)) kemudian reportFilestatus = true Atur fso = tidak ada Fungsi akhir Function Reportfolderstatus (FLDR) Redup fso Atur fso = createObject (scripting.filesystemObject) Reportfolderstatus = false If (fso.folderexists (FLDR)) kemudian reportfolderstatus = true Atur fso = tidak ada Fungsi akhir Sub login () %> <Form Name = FRM Metode = Post Action =? Action = 2 Style = Border: #d9d9d9 1px solid; latar belakang-warna: #f7f7f7> <p> ------------------------------------------- <strong> Sistem Login </strong> ------------------------------------------------------- <br> <br> nama belakang: <input name = nilai pengguna = spubbs.com> </p> kata sandi: <input name = pwd type = kata sandi id = pwd> <br> <br> <Input Name = Kirim Jenis = Kirim Nilai = Login> </form> <%End sub%> </td> </tr> <tr> <td tinggi = 22 align = tengah bgcolor =#e8e8e8> Didukung oleh: <a href = mailto: [email protected]> ayan </a> & nbsp; <a target = blank href = http: //wpa.qq.com/msgrd? v = 1 & uin = 1289551 & situs = www.spubbs.com Winrar & menu online = ya> <Img Border = 0 src = http: //wpa.qq.com/pa? P = 0: 128.128.128 QQ: 12895551 ALIGN = ABSBOTTOM> </a> Hak Cipta & Salin; 2003 - 2006 <a href = http: //www.spubbs.com> Taman farmasi Beiguo BBS </a> </td> </tr> </boable> </body> |
Bagikan: Cara meningkatkan kecepatan akses ke program ASP Saat menggunakan program ASP untuk desain halaman web, sebagian besar karena Anda perlu mengakses database dan kemudian menampilkan data ke halaman. Jika ada banyak data, kecepatan akses halaman akan melambat. Untuk menyelesaikan masalah ini, Anda dapat menggunakan teknik berikut untuk meningkatkan kecepatan akses halaman. Keterampilan