Пример наконечника ASP: о программе для эксплуатационных форм

Вставка содержимого формы в базу данных с ASP.

<%

' -Loader.asp -

' - Версия 1.5.2

' - Последнее обновлено 5/5/2002

'

Фейсал Хан

'[email protected]

'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 успешно удален!

%>