Рекомендуется: как использовать ASP для отображения GIF -изображений базы данных доступа Напишите: 1: Прочитайте файл изображения GIF в память (переменная Strtemp). 2: Напишите в базу данных. Ниже приведено цитируемое содержимое: dim bintmp () как байт Dim conn как adodb.conn
| Ниже приведено цитируемое содержание: <% Response.buffer = true Server.scripttimeout = 9999999 При ошибке резюме следующим %> <!-#Включите файл = conn.asp-> <!-#Включите file = function.asp-> <! Doctype html public -// w3c // dtd xhtml 1.0 transitional // en http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd> <html xmlns = http: //www.w3.org/1999/xhtml> <голова> <meta http-equiv = content-type content = text/html; charset = gb2312 /> <meta http-equiv = content-language content = zh-cn />>> <Meta Content = all name = robots /> <стиль типа = текст/css> <!- тело, вход {font-size: 12px;} -> </style> <Title> ASP -файл загрузка </title> </head> <идентификатор тела = тело> <% CheckUser () Extname = xls 'разрешить расширение SavePath = upload 'savePath Если право (SavePath, 1) <>/ Then SavePath = savePath &/ 'add (/) после каталога CheckAndCreateFolder (SavePath) Uploadall_a = request.totalbytes 'Получите все содержимое клиента If (uploadall_a> 0) тогда Настройка uploadstream_c = server.createObject (adodb.stream) Uploadstream_c.type = 1 Uploadstream_c.open Uploadstream_c.write request.binaryRead (uploadall_a) Uploadstream_c.position = 0 FormDataall_d = uploadstream_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) Set formstream_h = server.createObject (adodb.stream) Formstream_h.type = 1 Formstream_h.open Uploadstream_c.position = formstart_f 1 Uploadstream_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)). Тогда SaveFile = server.mappath (savePath & filename_j) Если ошибка, тогда Response.write файл загрузка: <span style = color: red;> ошибка загрузки файла! </Span> <a href = & request.servervariables (url) &> повторная загрузка файла </a> <br/> Err.clear Еще SaveFile = CheckFileExists (SaveFile) SaveFilename = Mid (SaveFile, Instrrev (SaveFile,) 1) Session (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 Uploadstream_c.position = k-1 Uploadstream_c.copyto formstream_h, l Formstream_h.savetofile savefile, 2 SaveFilename = Mid (SaveFile, Instrrev (SaveFile,) 1) Dim Conn1, Driver1, DBPATH1, RS1, SQL1 'Создать объект соединения Установить conn1 = server.createObject (adodb.connection) Driver1 = Driver = {Microsoft Excel Driver (*.xls)}; Dbpath1 = dbq = & server.mappath (upload/& saveFilename) 'Открыть метод вызова для открытия базы данных Conn1.open Driver1 & dbpath1 SQL1 = SELECT * FROM [Sheet1 $] Установите rs1 = conn1.execute (sql1) Если rs1.eof и rs1.bof, тогда Response.write необходимые данные не найдены !! Еще Делать, пока не rs1.eof 'Вставьте в базу данных OpenDataBase Select * из ABC Если Len (rs1 (0)) = 7 то ctime = left (rs1 (0), 4) еще ctime = left (rs1 (0), 5) конец, если Rs.addnew rs (время) = ctime Rs.Update Закрыто () Rs1.movenext Петля Конец, если Rs1.close Установите rs1 = ничего Conn1.close Установите conn1 = ничего 'Завершить в базе данных Response.write file upload: <span style = color: red;> & savefilename & </span> Загрузка файла была успешной! <a href = 'choise.asp' '> продолжайте загружать файл </a> <br /> Конец, если Еще Response.write Файл. Загрузка: <span style = color: red;> Формат файла неверен! </Span> <a href = & request.servervariables (url) &> reupload file </a> <br/> Конец, если Еще %> <сценарий языка = javascript> <!- Функция validInput () { if (document.upform.upfile.value ==) { ПРЕДУПРЕЖДЕНИЕ (Пожалуйста, выберите файл загрузки!) document.upform.upfile.focus () вернуть ложь } вернуть правду } // -> </script> <form action = '< %= request.servervariables (url) %>' method = 'post' name = upform onsubmit = return valdInput () ectype = multipart/form-data> Загрузка файла: <input type = 'file' name = 'upfile' size = 40> <input type = 'propect' value = upload> </form> <% Конец, если Установить formstream_h = ничего Uploadstream.close Настройка uploadstream = ничего %> </body> </html> |
Поделиться: интерпретируйте кодекс инъекции ASP против SQL Ниже приведено указанное содержание: Dim SQL_INJDATA, SQL_INJ, SQL_GET, SQL_DATA, SQL_POST SQL_INJDATA = '| и | EXEC | INSERT | SELECT | DELETE | UPDATE |