Рекомендуется: Prontine: Используйте ASP, чтобы определить, действителен ли файл адрес Ниже приведен цитируемый контент: <% response.write (<Head> <style> <!-span {font-size: 9pt}-> </style> </head & g
| Ниже приведено цитируемое содержание: Вставка содержимого формы в базу данных с ASP. <% ' -Loader.asp - ' - Версия 1.5.2 ' - Последнее обновлено 5/5/2002 ' Фейсал Хан 'www.stardeveloper.com 'Класс для обработки бинарных загрузок Класс погрузчик Частный дикт Private sub class_initialize Установить dict = server.createObject (scripting.dictionary) Конец суб Приватный sub class_terminate Если isobject (intdict), тогда intdict.removeall Установить intdict = ничего Конец, если Если isobject (dict), тогда dict.removeall Установить DICT = ничего Конец, если Конец суб Общественная недвижимость Count = dict.count Конец собственности Общественный субнициализированный Если запрос.totalbytes> 0, тогда Dim Bindata bindata = request.binaryRead (request.totalbytes) GetData Bindata Конец, если Конец суб Публичная функция getFileData (имя) Если dict.exists (имя), то getFileData = dict (имя) .Item (значение) Еще GetFileData = Конец, если Конечная функция Публичная функция getValue (имя) Dim GV Если dict.exists (имя), то gv = cstr (dict (name) .item (value)) GV = слева (GV, Len (GV) -2) getValue = GV Еще getValue = Конец, если Конечная функция Публичная функция SavetoFile (имя, путь) Если dict.exists (имя), то Dim Temp temp = dict (name) .item (значение) Dim FSO Установить fso = server.createObject (scripting.filesystemobject) DIM -файл SET FILE = FSO.CREATETEXTFILE (PATH) Для tpoint = 1 к Lenb (температуру) file.write chr (ascb (midb (temp, tpoint, 1)))))))) Следующий file.close savetofile = true Еще savetofile = false Конец, если Конечная функция Публичная функция getFileName (имя) Если dict.exists (имя), то Dim Temp, Temppos temp = dict (имя) .item (имя файла) Temppos = 1 Instrrev (Temp, /) GetFilEname = Mid (Temp, Temppos) Еще getFilename = Конец, если Конечная функция Публичная функция getFilePath (имя) Если dict.exists (имя), то Dim Temp, Temppos temp = dict (имя) .item (имя файла) Temppos = Instrrev (Temp, /) GetFilePath = Mid (Temp, 1, Temppos) Еще GetFilePath = Конец, если Конечная функция Публичная функция getFilePathComplete (имя) Если dict.exists (имя), то getFilePathComplete = dict (имя) .Item (имя файла) Еще GetFilePathComplete = Конец, если Конечная функция Публичная функция getFilesize (имя) Если dict.exists (имя), то getFilesize = lenb (dict (name) .item (value)) Еще GetFilesize = 0 Конец, если Конечная функция Публичная функция getFilesizeTransLated (имя) Если dict.exists (имя), то temp = lenb (dict (name) .item (value)) Если Temp <= 1024, то getFilesizeTransLated = Temp & Bytes Еще temp = formatnumber ((temp / 1024), 2) getFilesizeTransLated = Temp & Kilobytes Конец, если Еще GetFilesizEtransLated = Конец, если Конечная функция Публичная функция getContentType (имя) Если dict.exists (имя), то getContentType = dict (name) .Item (contentType) Еще GetContentType = Конец, если Конечная функция Частный Sub getData (Rawdata) Dim Seperatator Сепаратор = Midb (Rawdata, 1, Instrb (1, Rawdata, Chrb (13)) - 1) Dim LenseParator LenseParator = Lenb (сепаратор) Dim CurrentPos CurrentPos = 1 Dim Instrbyte Instrbyte = 1 DIM Значение, MVALUE Dim Tempvalue Tempvalue = В то время как Instrbyte> 0 instrbyte = Instrb (CurrentPos, Rawdata, сепаратор) mvalue = instrbyte - currentPos Если mvalue> 1, то тогда значение = midb (rawdata, currentpos, mvalue) Dim Begpos, Endpos, Midvalue, Nvalue Dim Intdict Установить intdict = server.createObject (scripting.dictionary) Begpos = 1 Instrb (1, значение, Chrb (34)) Endpos = instrb (Begpos 1, значение, Chrb (34)) nvalue = endpos Dim Namen namen = midb (значение, begpos, endpos - begpos) Dim namevalue, Isvalid isvalid = true Если instrb (1, значение, stringtobyte (content-type))> 1 тогда Begpos = 1 Instrb (Endpos 1, значение, Chrb (34)) Endpos = instrb (Begpos 1, значение, Chrb (34)) Если Endpos = 0, тогда Endpos = Begpos 1 isvalid = false Конец, если MidValue = MidB (значение, Begpos, Endpos - Begpos) intdict.add Filename, Trim (BytetoString (MidValue)) Begpos = 14 Instrb (Endpos 1, значение, StringTobyte (контент-тип :)) Endpos = instrb (Begpos, значение, Chrb (13)) MidValue = MidB (значение, Begpos, Endpos - Begpos) intdict.add contenttype, trim (bytetostring (midvalue)) begpos = endpos 4 endpos = lenb (значение) namevalue = midb (значение, Begpos, ((Endpos - Begpos) - 1)) Еще namevalue = trim (bytetoString (midb (значение, nvalue 5))))))) Конец, если Если isValid = true, тогда intdict.add value, namevalue intdict.add name, namen dict.add bytetostring (namen), intdict Конец, если Конец, если CurrentPos = LenseParator Instrbyte Венд Конец суб Конечный класс Частная функция StringTobyte (ToConv) Dim Tempchar Для i = 1 к Лену (ToConv) tempchar = mid (toconv, i, 1) StringTobyte = StringTobyte & Chrb (ASCB (TempChar)) Следующий Конечная функция Частная функция BytetoString (TOCONV) Для i = 1 до lenb (toconv) BytetoString = BytetoString & Chr (ASCB (MIDB (TOCONV, I, 1))))))) Следующий Конечная функция %> 1. Пользовательский интерфейс: <сценарий языка = javascript> Функция Checkall (форма) {for (var i = 0; i <form.elements.length; i) {var e = form.elements [i]; if (e.name! = 'chkall') e.checked = form.chkall.cecked; } } </script> </head> <тело> <form method = post action = del.asp name = form1> <Таблица> <tr> <td> <input type = значение флажки = 111 name = tradename> Электронная почта 1 </td> </tr> <tr> <td> <input type = значение флажки = 111 name = tradename> Электронная почта 2 </td> </tr> <tr> <td> <input type = valuebox = 111 name = tradename> Электронная почта 3 </td> </tr> <tr> <td> <input type = valuebox = 111 name = tradename> Электронная почта 4 </td> </tr> <tr> <td> <input type = valuebox = 111 name = tradename> Электронная почта 5 </td> </tr> <tr> <td> <input type = valuebox = 111 name = tradename> Электронная почта 6 </td> </tr> <tr> <td bgcolor =#f1fbfc height = 25 colspan = 2> <p align = left> <input type = checkbox name = chkall value = on onclick = checkall (this.form)> <font color =#ff9900> выберите все отображаемые сообщения </font> </p> </td> <Центр> </tr> </table> </form> 2. Удалить файл del.asp <% «Эта строка записывает код, подключенный к базе данных Dim Id, Strid Strid = Для каждого Strid в request.form (tradename) Id = cint (strid) Если Strid <> Then Delrs = server.createObject (adodb.recordset) Conn.execute delete из tbname, где id = & cstr (id) Strid = конец, если Следующий Conn.close Установить conn = ничего Response.redirect успешно удален! %> |
Share: ASP Advanced: используйте ASP, чтобы определить, является ли файловый адрес действительным <%Response.write (<Head> <style> <!-span {font-size: 9pt}-> </style> </head>) на ошибке r