<%
'--Loader.asp--
'--version1.5.2
'--lastupdated12/5/2002
'
Faisalkhan
'[email protected]
'www.stardeveloper.com
'ClassForHandlingBinaryUploads
Classloader
Privado
Privatesubclass_initialize
SetDict = server.createObject ("scripting.dictionary")
Endsub
Privatesubclass_termine
IfisObject (intdict) então
intdict.removeall
SetIntDict = nada
Endif
IfisObject (dict) então
dict.removeall
SetDict = nada
Endif
Endsub
PublicPropertyGetCount
Contagem = dict.count
EndProperty
Publicsubinitialize
Ifrequest.totalbytes> 0hen
Dimbindata
bindata = request.binaryRead (request.totalbytes)
getDatabindata
Endif
Endsub
PublicFunctionGetFiledata (nome)
Ifdict.exists (nome) então
getfiledata = dict (nome) .item ("value")
Outro
getfiledata = ""
Endif
Função final
PublicFunctionGetValue (nome)
Dimgv
Ifdict.exists (nome) então
gv = cstr (dict (nome) .item ("value"))
GV = esquerda (GV, Len (GV) -2)
getValue = GV
Outro
getValue = ""
Endif
Função final
