<%
'-loader.asp--
'-version1.5.2
'-lastupdated12/5/2002
'
Файсалхан
'[email protected]
'www.stardeveloper.com
'ClassForHandlingBinaryUploads
Загрузчик
ПЕРЕДАЧА
Privatesubclass_initialize
SetDict = server.createObject ("scripting.dictionary")
Заканчивая
PrivateBclass_terminate
Ifisobject (intdict) тогда
intdict.removeall
SetIntdict = ничего
Эндиф
Ifisobject (dict) затем
dict.removeall
SetDict = ничего
Эндиф
Заканчивая
PublicpropertygetCount
Count = dict.count
EndProperty
Publicsubinitialize
Ifrequest.totalbytes> 0then
Dimbindata
bindata = request.binaryRead (request.totalbytes)
getDataBindata
Эндиф
Заканчивая
PublicfunctiongetFileData (имя)
Ifdict.exists (имя) затем
getFileData = dict (name) .Item ("value")
Еще
getFileData = ""
Эндиф
Конечная функция
PublicfunctionGetValue (имя)
Dimgv
Ifdict.exists (имя) затем
gv = cstr (dict (name) .item ("value")))
GV = слева (GV, Len (GV) -2)
getValue = GV
Еще
getValue = ""
Эндиф
Конечная функция
