Direkomendasikan: Rutin: Gunakan ASP untuk menentukan apakah alamat file valid Berikut ini adalah konten yang dikutip: <% response.write (<head> <tyle> <!-span {font-size: 9pt}-> </style> </head & g
| Berikut ini adalah konten yang dikutip: Memasukkan konten formulir ke dalam basis data dengan ASP. <% ' -loader.asp - ' - Versi 1.5.2 ' - Terakhir diperbarui 12/5/2002 ' 'Faisal Khan 'www.stardeveloper.com 'Kelas untuk menangani unggahan biner Kelas Loader Dikt Pribadi Private Sub Class_initialize Set Dict = Server.CreateObject (Scripting.Dictionary) Akhir sub Sub Class_Terminate pribadi Jika IsObject (Intdict) maka Intdict.removeall Atur intdict = tidak ada Akhiri jika Jika isObject (dikt) lalu dikt.removeall Atur dict = tidak ada Akhiri jika Akhir sub Properti Publik Hitung Count = Dict.Count Akhir properti Sub umum diinisialisasi Jika request.totalbytes> 0 lalu Redup bindata bindata = request.binaryread (request.totalbytes) GetData Bindata Akhiri jika Akhir sub Fungsi publik getFiledata (nama) Jika dict.exists (nama) lalu getFiledata = dict (name) .item (value) Kalau tidak getFiledata = Akhiri jika Fungsi akhir Fungsi publik getValue (nama) Redup gv Jika dict.exists (nama) lalu gv = cstr (dict (name) .item (value)) GV = kiri (GV, Len (GV) -2) GetValue = GV Kalau tidak getValue = Akhiri jika Fungsi akhir Fungsi publik savetofile (nama, jalur) Jika dict.exists (nama) lalu Suhu redup temp = dict (name) .item (value) Redup fso Atur fso = server.createObject (scripting.filesystemObject) File redup Setel file = fso.createTextFile (path) Untuk tpoint = 1 ke lenb (temp) file.write chr (ascb (midb (temp, tpoint, 1)))) Berikutnya file.close savetofile = true Kalau tidak savetofile = false Akhiri jika Fungsi akhir Fungsi publik getFileName (nama) Jika dict.exists (nama) lalu Redup suhu, Temppos temp = dict (nama) .item (nama file) Temppos = 1 Instrev (Temp, /) getFileName = mid (temp, temppos) Kalau tidak getFileName = Akhiri jika Fungsi akhir Fungsi publik getFilePath (nama) Jika dict.exists (nama) lalu Redup suhu, Temppos temp = dict (nama) .item (nama file) Temppos = instrrev (temp, /) getFilePath = mid (temp, 1, temppos) Kalau tidak getFilePath = Akhiri jika Fungsi akhir Fungsi publik getFilePathComplete (nama) Jika dict.exists (nama) lalu getFilePathComplete = dict (name) .item (nama file) Kalau tidak getFilePathComplete = Akhiri jika Fungsi akhir Fungsi Publik GetFileSize (Nama) Jika dict.exists (nama) lalu getFilesize = lenb (dikt (nama) .item (nilai)) Kalau tidak getFileSize = 0 Akhiri jika Fungsi akhir Fungsi publik getFilesizetrantslated (nama) Jika dict.exists (nama) lalu temp = lenb (dict (name) .item (value)) Jika temp <= 1024 maka getFilesizetRanslated = Temp & bytes Kalau tidak Temp = FormatNumber ((Temp / 1024), 2) getFilesizetRanslated = Temp & Kilobytes Akhiri jika Kalau tidak getFilesizetRanslated = Akhiri jika Fungsi akhir Fungsi publik getContentType (nama) Jika dict.exists (nama) lalu getContentType = dict (name) .item (contentType) Kalau tidak getContentType = Akhiri jika Fungsi akhir Sub GetData Pribadi (RawData) Pemisah redup pemisah = midb (rawdata, 1, instrb (1, rawdata, chrb (13)) - 1) Redup lenseparator lenseparator = lenb (pemisah) Redup arus CurrentPos = 1 Redup instrbyte instrbyte = 1 Nilai redup, mvalue Redup Tempuale TempValue = Sedangkan instrbyte> 0 instrbyte = instrb (currentpos, rawdata, pemisah) mValue = instrbyte - currentpos Jika mvalue> 1 maka nilai = midb (rawdata, currentpos, mValue) Redup begpos, endpos, midvalue, nvalue Intdict redup Set Intdict = Server.CreateObject (Scripting.Dictionary) begpos = 1 instrb (1, nilai, chrb (34)) endpos = instrb (begpos 1, nilai, chrb (34)) nValue = endpos Namen redup namen = midb (nilai, begpos, endpos - begpos) Redup namevalue, isValid isValid = true If instrb (1, value, stringtobyte (tipe konten))> 1 begpos = 1 instrb (endpos 1, nilai, chrb (34)) endpos = instrb (begpos 1, nilai, chrb (34)) Jika endpos = 0 lalu endpos = begpos 1 isValid = false Akhiri jika midvalue = midb (nilai, begpos, endpos - begpos) Intdict.Add nama file, trim (bytetostring (midvalue)) begpos = 14 instrb (endpos 1, nilai, stringtobyte (tipe konten :)) endpos = instrb (begpos, nilai, chrb (13)) midvalue = midb (nilai, begpos, endpos - begpos) intdict.add contentType, trim (bytetoString (midvalue)) begpos = endpos 4 endpos = lenb (nilai) namevalue = midb (nilai, begpos, ((endpos - begpos) - 1)) Kalau tidak namevalue = trim (bytetostring (midb (nilai, nvalue 5)))) Akhiri jika Jika isValid = true maka Nilai Intdict.add, NamEvalue Intdict.add Name, Namen Dict.Add Bytetostring (Namen), Intdict Akhiri jika Akhiri jika currentpos = lenseparator instrbyte Pergi ke Akhir sub Kelas akhir Fungsi Pribadi StringTobyte (TOCONV) Redup tempchar Untuk i = 1 ke len (TOCONV) tempchar = mid (toconv, i, 1) StringToByte = StringToByte & Chrb (ASCB (Tempchar)) Berikutnya Fungsi akhir Fungsi Pribadi BytetoString (TOCONV) Untuk i = 1 ke lenb (TOCONV) BYTETOSTRING = BYTETOSTRING & CHR (ASCB (MIDB (TOCONV, I, 1)))) Berikutnya Fungsi akhir %> 1. Antarmuka pengguna: <bahasa skrip = javascript> Function Checkall (Form) {for (var i = 0; i <form.elements.length; i) {var e = form.elements [i]; if (e.name! = 'chkall') E.Checked = Form.chkall.Checked; } } </script> </head> <body> <Form Method = Post Action = Del.asp Name = Form1> <able> <tr> <td> <input type = nilai kotak centang = 111 name = tradename> Email 1 </td> </tr> <tr> <td> <input type = nilai kotak centang = 111 name = tradename> Email 2 </td> </tr> <tr> <td> <input type = nilai kotak centang = 111 name = tradename> Email 3 </td> </tr> <tr> <td> <input type = nilai kotak centang = 111 name = tradename> Email 4 </td> </tr> <tr> <td> <input type = nilai kotak centang = 111 name = tradename> Email 5 </td> </tr> <tr> <td> <input type = nilai kotak centang = 111 name = tradename> email 6 </td> </tr> <tr> <td bgcolor =#f1fbfc tinggi = 25 colspan = 2> <p align = left> <input type = centang nama kotak = chkall value = on onClick = checkAll (this.form)> <font color =#ff9900> Pilih semua pesan yang ditampilkan </font> </p> </td> <senter> </tr> </boable> </form> 2. Hapus file del.asp <% 'Baris ini menulis kode yang menghubungkan ke database redup id, strid strid = Untuk setiap strid in quest.form (tradename) Id = cint (strid) Jika Strid <> lalu Delrs = server.createObject (adodb.recordset) Conn.Execute Hapus dari TBName Where ID = & CSTR (ID) strid = akhiri jika Berikutnya Conn.Close Setel Conn = Tidak Ada Response.Redirect berhasil dihapus! %> |
Bagikan: ASP Advanced: Gunakan ASP untuk menentukan apakah alamat file valid <%Response.write (<head> <tyle> <!-span {font-size: 9pt}-> </style> </head>) pada kesalahan r