Direkomendasikan: Cara menggunakan ASP untuk menampilkan gambar GIF dari database Access Tulis: 1: Baca file gambar GIF ke dalam memori (variabel strtemp). 2: Tulis ke database. Berikut ini adalah konten yang dikutip: redup bintmp () sebagai byte redn conn sebagai adodb.conn
| Berikut ini adalah konten yang dikutip: <% Response.buffer = true Server.ScriptTimeout = 9999999 Pada kesalahan resume berikutnya %> <!-#Sertakan file = conn.asp-> <!-#Sertakan file = function.asp-> <! Doctype html public -// w3c // dtd xhtml 1.0 transisi // en http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd> <html xmlns = http: //www.w3.org/1999/xhtml> <head> <meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312 /> <meta http-equiv = konten-konten konten = zh-cn /> <konten meta = semua nama = robot /> <Tipe Gaya = Teks/CSS> <!- body, input {font-size: 12px;} -> </tyle> <iteme> Unggah file ASP </iteme> </head> <body id = body> <% checkuser () Extname = xls 'Izinkan ekstensi SavePath = unggah 'savePath Jika benar (savePath, 1) <>/ lalu savePath = savePath &/ 'add (/) setelah direktori CHECKANDCREATEFolder (SavePath) UnggahAll_a = request.totalbytes 'Dapatkan semua konten klien If (uploadAll_a> 0) lalu Set unggahanstream_c = server.createObject (adodb.stream) Unggahstream_c.type = 1 Unggahstream_c.open Uploadstream_c.write request.binaryread (unggahAll_a) Unggahstream_c.position = 0 FormDataAll_D = unggahtream_c.read Crlf_e = chrb (13) & chrb (10) FormStart_f = instrb (formdataall_d, crlf_e) Formend_g = instrb (formstart_f 1, formdataall_d, crlf_e) Setel formstream_h = server.CreateObject (adodb.stream) Formstream_h.type = 1 Formstream_h.open Uploadstream_c.position = formstart_f 1 Unggahtream_c.copyto formstream_h, formend_g-formstart_f-3 Formstream_h.position = 0 FormStream_h.type = 2 Formstream_h.charset = GB2312 FormStreamText_i = formstream_h.readtext Formstream_h.close Filename_j = mid (formstreamText_i, instrrev (formstreamText_i,) 1, formend_g) If (checkFileExt (filename_j, extname)) lalu SaveFile = server.mappath (savePath & filename_j) Jika err maka Response.Write File Unggah: <span style = color: red;> The File Eboad Error! </span> <a href = & request.serverVariable (url) &> Ubah ulang file </a> <br/> Err.clear Kalau tidak SaveFile = checkFileExists (saveFile) SaveFilename = mid (saveFile, instrrev (saveFile,) 1) sesi (file) = saveFileName k = instrb (formdataall_d, crlf_e & crlf_e) 4 l = instrb (k 1, formdataall_d, leftb (formdataall_d, formstart_f-1))-k-2 Formstream_h.type = 1 Formstream_h.open Unggahstream_c.position = k-1 Unggahstream_c.copyto formstream_h, l Formstream_h.savetofile saveFile, 2 SaveFilename = mid (saveFile, instrrev (saveFile,) 1) Dim Conn1, Driver1, DBPath1, RS1, SQL1 'Buat Objek Koneksi Set Conn1 = Server.CreateObject (ADODB.Connection) Driver1 = driver = {Microsoft Excel Driver (*.xls)}; Dbpath1 = dbq = & server.mappath (unggah/& saveFileName) 'Hubungi metode terbuka untuk membuka database Conn1.Open Driver1 & DBPath1 SQL1 = SELECT * dari [Sheet1 $] Set RS1 = Conn1.Execute (SQL1) Jika Rs1.eof dan Rs1.bof maka Response.Trite data yang Anda butuhkan tidak ditemukan !! Kalau tidak Lakukan sementara bukan rs1.eof 'Masukkan ke dalam database Opendatabase pilih * dari ABC jika len (rs1 (0)) = 7 lalu ctime = kiri (rs1 (0), 4) kalau tidak ctime = kiri (rs1 (0), 5) akhiri jika rs.addnew RS (waktu) = CTime rs.update Closedatabase () RS1.Movenext Lingkaran Akhiri jika Rs1.close Atur rs1 = tidak ada Conn1.close Atur conn1 = tidak ada 'Akhiri dalam database Response.write File Unggah: <span style = color: red;> & saveFileName & </span> Unggah file berhasil! <a href = 'choise.asp' '> Lanjutkan untuk mengunggah file </a> <br /> Akhiri jika Kalau tidak Response.Write File Upload: <span style = color: red;> Format file salah! </span> <a href = & request.servarivariables (url) &> file unggul ulang </a> <br/> Akhiri jika Kalau tidak %> <bahasa skrip = javascript> <!- fungsi validInput () { if (document.upform.upfile.value ==) { Peringatan (silakan pilih file unggah!) document.upform.upfile.focus () mengembalikan false } kembali benar } // -> </script> <Form Action = '< %= request.serverVariable (url) %>' Method = 'Post' name = upform onsubmit = return validInput () enctype = multipart/form-data> Unggah file: <input type = 'file' name = 'upFile' size = 40> <input type = 'kirim' value = unggah> </form> <% Akhiri jika Atur formstream_h = tidak ada Unggah. CLOSE Set uploadstream = tidak ada %> </body> </html> |
Bagikan: Menafsirkan Kode Injeksi Anti-SQL ASP Berikut ini adalah konten yang direferensikan: DIM SQL_INJDATA, SQL_INJ, SQL_GET, SQL_DATA, SQL_POST SQL_INJDATA = '| dan | EXEC | INSERT | SELECT | DELETE | UPDATE |